Analytic study of the null singularity inside spherical charged black holes by Burko & 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[    501844,      12601]
NotebookOptionsPosition[    480397,      12292]
NotebookOutlinePosition[    480863,      12309]
CellTagsIndexPosition[    480820,      12306]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  Analytic study of the null singularity inside spherical \
charged black holes by Burko & 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.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.825843456962591*^9, 3.825843470538437*^9}, {
   3.825847202459041*^9, 3.82584720820269*^9}},
 TextAlignment->Center,ExpressionUUID->"1383d744-c881-4857-adc4-ff3aca7c8fe8"],

Cell["\<\
Geoff Cope
University of Utah
March 27, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.8258592212492456`*^9, 3.825859221672258*^9}},
 TextAlignment->Center,ExpressionUUID->"5e826fba-e9b0-4046-8462-4e6c9f9a4968"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "need", " ", "to", " ", "look", " ", "up", " ", "references", " ", "12", 
    " ", "and", " ", "13", " ", "in", " ", "last", " ", "part", " ", "of", 
    " ", "paper"}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.82585871834886*^9, 
  3.825858734602627*^9}},ExpressionUUID->"0a0820e2-a92e-4277-b33e-\
7883122c64c2"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"4bd24e29-5367-47f9-a2f1-\
1897286ea6ec"],

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->"98e6c221-9c11-4954-8f18-231162ca5615"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.825843522027536*^9, 
   3.825847241701211*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"bd957d4e-d6fc-4e20-a781-413a747b63aa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 
   3.843084275335219*^9},ExpressionUUID->"ac214f34-e733-49b2-864b-\
dd79aa9f604e"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Analytic study of the null singularity inside spherical charged black \
holes by Burko & Ori\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/9711032\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8218867746254797`*^9, 3.821886810805148*^9}, 
   3.823176507207197*^9, {3.823472730005904*^9, 3.823472744739744*^9}, {
   3.823597507106205*^9, 3.823597507709626*^9}, {3.8248234531732893`*^9, 
   3.824823465899825*^9}, {3.8262107973322973`*^9, 3.826210809698289*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"1d107892-b06a-491c-9255-d71aafbb1091"],

Cell[BoxData[
 TemplateBox[{
  "\"Analytic study of the null singularity inside spherical charged black \
holes by Burko & Ori\"", "https://arxiv.org/abs/gr-qc/9711032"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.821886813557355*^9, 3.8231765072073307`*^9, 3.823359428608782*^9, 
   3.8233607804338617`*^9, 3.823360880363216*^9, 3.823361224626254*^9, 
   3.823362098931829*^9, 3.823364030688095*^9, 3.823472745219315*^9, {
   3.8235975109202147`*^9, 3.823597528650549*^9}, 3.823618495400096*^9, 
   3.823683413880138*^9, 3.823683841884781*^9, 3.823684775280538*^9, 
   3.823688794413259*^9, 3.8236907771492443`*^9, 3.823704572455369*^9, 
   3.8239670361077127`*^9, 3.8239675178933*^9, 3.823970038708452*^9, 
   3.824025682120349*^9, 3.824823467820938*^9, 3.825843522166307*^9, 
   3.825847241807665*^9, 3.826210811723654*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"83348471-9436-4c99-98f6-2e59246dc27f"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Bell\[Dash]Szekeres Solution and Related Solutions of the Einstein\
\[Dash]Maxwell Equations Barrabes & Hogan\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/0608087\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824823489632637*^9, 3.8248235043563623`*^9}, 
   3.825287765518345*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"f134e352-b3f3-4eca-b3dc-cff890e1dba2"],

Cell[BoxData[
 TemplateBox[{
  "\"Bell\[Dash]Szekeres Solution and Related Solutions of the \
Einstein\[Dash]Maxwell Equations Barrabes & Hogan\"", 
   "https://arxiv.org/abs/gr-qc/0608087"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8248235047505407`*^9, 3.825287765518515*^9, 
  3.825843522191597*^9, 3.825847241821023*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"b71ce123-1506-4c8c-8a5f-c840be1838ca"],

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[4]:=",ExpressionUUID->"1ff0fc49-2e4e-416f-a483-84e9d8abff74"],

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

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"a64595e4-3dc0-46c9-99b0-\
b0233224d625"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.8252877782634068`*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"8dba0b3f-60b6-4109-ba8b-e5149679d022"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.825847241906024*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"2548d7fd-0b4c-449e-bd6e-506db297f532"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"9 Kb\"\>"}],
  SequenceForm["  (CleanSlate) Approximate kernel memory recovered: ", "9 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258472419101067`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"c3336871-4a30-4e25-8ea9-26da07eaa3ff"],

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

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"30f589ca-f0eb-4cce-8acc-59f67d6b5863"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"9a0223e0-c2be-4f54-bfe5-1591e48d80f0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825287791153748*^9},ExpressionUUID->"0f3f7035-c340-4f14-a140-\
959ce9e6d94e"],

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

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

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.825287791154132*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"c1a40104-8f67-4187-a85b-379ced1f3f79"]
}, 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->"60eb9d09-dc2d-460b-8b08-\
c63755f3e60f"],

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->"2f118e15-fe1d-42e8-8fec-9637d298446f"],

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->"b623b316-b02f-4c8d-a339-ebbe294cc9dc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8258474296554956`*^9, 
  3.825847443166574*^9}},ExpressionUUID->"c4b4a903-d5ef-40d4-a320-\
a949b07eddfe"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"f", "[", 
      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.825847248885104*^9, 3.825847282322599*^9}, 
   3.825847435691251*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"e0d93542-8f39-41e4-9404-e3bd88dc4419"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "du"}], " ", "dv", " ", 
   RowBox[{"f", "[", 
    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.825847282802827*^9, 3.825847435691675*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"19f7fd18-37ac-45e3-9f49-d6239c5c759c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825847285172009*^9, 3.825847314178993*^9}, 
   3.825847435691828*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"483260f9-1828-4f9e-93f8-faf8ebdc9356"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       RowBox[{"f", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}], "0", "0"},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       RowBox[{"f", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"r", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "2"], "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"r", "[", 
         RowBox[{"u", ",", "v"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825847295873653*^9, 3.8258473146452017`*^9}, 
   3.8258474356924353`*^9},
 CellLabel->
  "Out[19]//MatrixForm=",ExpressionUUID->"c0a32d9c-1550-4cff-a180-\
b834bd75742b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825847406953415*^9, 3.825847426006555*^9}, 
   3.82585876725736*^9},ExpressionUUID->"cd06b94d-f03b-48b2-81b3-\
0fc73b510981"],

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

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "11.17", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", "\"\<DoubleNull\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(dn\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.82584734790863*^9, 
   3.8258473734109373`*^9}, 3.8258474157897243`*^9, 3.82585876725804*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"87c70119-f584-408d-907b-a663745283f6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.714451`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8258473779100513`*^9, 3.825847415789811*^9, 
  3.825858767258155*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"2010e0d5-fa25-4683-a019-2747678957c7"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825847382680142*^9, 3.825847383239956*^9}, 
   3.825847415789888*^9, 3.825858767258271*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"a40aabb9-9660-447c-ae0a-eba1a4ed6d7d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "dn"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.825847383648428*^9, 3.8258474157900553`*^9, 
  3.825858767258367*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"34b27d0a-d438-49b8-868e-d700425b5674"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.825847415790168*^9, 
   3.825858767258506*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"3bef75b6-5627-400c-b3ba-aecb92b4a40e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "dn"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.825847399362392*^9, 3.825847415790242*^9}, 
   3.825858767258609*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"34217e18-c237-4da1-bd78-5aaed8176ce1"],

Cell[BoxData["\<\"DoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.825847399366049*^9, 3.825847415790318*^9}, 
   3.825858767258708*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"02b3473e-c42f-45e1-b22b-b065b046e0b4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], "0", "0"},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], "0", "0", "0"},
      {"0", "0", 
       SuperscriptBox[
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "2"], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.825847399393388*^9, 3.8258474157903757`*^9}, 
   3.8258587672587833`*^9},
 CellLabel->
  "Out[26]//TraditionalForm=",ExpressionUUID->"5d35d647-95de-4b7a-91de-\
609d81e2e067"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.8258474157904787`*^9, 
   3.825858767258916*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"f6538d5b-2119-4202-a0cd-879c8fc9af5a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.825847399444035*^9, 3.825847415790557*^9}, 
   3.825858767259019*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"25faf189-d1e6-4fe7-974d-6b94db2d983f"],

Cell[BoxData["\<\"ChristoffelSymbolDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.825847399448038*^9, 3.8258474157906322`*^9}, 
   3.8258587672591257`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"31ef7d21-4bba-4812-9206-515256507a32"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"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[{"2", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], 
             RowBox[{"f", "(", 
              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"},
           {"0"},
           {
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], 
             RowBox[{"f", "(", 
              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[{
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              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"},
           {
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], 
             RowBox[{"f", "(", 
              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"},
           {"0"},
           {
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], 
             RowBox[{"f", "(", 
              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"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.825847399481374*^9, 3.82584741579069*^9}, 
   3.825858767259212*^9},
 CellLabel->
  "Out[29]//TraditionalForm=",ExpressionUUID->"ec0bada7-a9dc-45a5-971a-\
a97707df2bec"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.825847415790793*^9, 
   3.82585876725935*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"6ee03419-11c8-4b97-8548-44a51669f26a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.825847399507972*^9, 3.825847415790873*^9}, 
   3.825858767259454*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"2a1057d0-895b-43a6-ad37-0c373670f563"],

Cell[BoxData["\<\"RiemannTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8258473995124702`*^9, 3.825847415790948*^9}, 
   3.8258587672595463`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"88b2396a-80a4-49e2-b27c-e6b4844835c3"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}], "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[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], "-", 
              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[{
                FractionBox[
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], 
                 RowBox[{"f", "(", 
                  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[{
              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", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]]},
          {"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[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}], 
           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"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 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[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], "-", 
              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[{
                FractionBox[
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]], "-", 
                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", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]]},
          {"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[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]], "-", 
                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[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                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"}], ")"}], " ", 
            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[{
                FractionBox[
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]], "-", 
                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[{
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]], "-", 
              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", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"4", " ", 
                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[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "+", 
                RowBox[{"4", " ", 
                 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[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}]},
          {"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"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]], 
           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[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}]},
          {"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]}], ")"}]}], 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "+", 
                RowBox[{"4", " ", 
                 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[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"4", " ", 
                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[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.82584739974819*^9, 3.8258474157910233`*^9}, 
   3.825858767259624*^9},
 CellLabel->
  "Out[32]//TraditionalForm=",ExpressionUUID->"96c514a7-30f8-491b-b609-\
f97859e883cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.82584741579114*^9, 
   3.82585876725976*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"03908440-772a-483d-a1cb-f752b45838d6"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.825847399768326*^9, 3.825847415791216*^9}, 
   3.8258587672598658`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"37b386d1-0e66-4a1d-bd60-77837b986a65"],

Cell[BoxData["\<\"RicciTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.825847399771117*^9, 3.825847415791292*^9}, 
   3.825858767259984*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"829194d3-6e3e-44b4-9b3e-208bcbf0ba3f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None], 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
        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[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]]}], "0", "0"},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None], 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
        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[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]]}], 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"f", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "+", 
           RowBox[{"4", " ", 
            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[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.825847399815234*^9, 3.825847415791359*^9}, 
   3.825858767260054*^9},
 CellLabel->
  "Out[35]//TraditionalForm=",ExpressionUUID->"e335c5b7-9def-49f8-a663-\
d18f3bf28676"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.82584741579147*^9, 
   3.8258587672602*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"7a02c465-c8fe-4c09-a270-bd24b3999ac4"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, {3.825847399828228*^9, 3.825847415791548*^9}, 
   3.825858767260297*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"e6e64502-d7c0-46e5-8687-2a394d06093a"],

Cell[BoxData["\<\"RicciScalarDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, {3.825847399831233*^9, 3.825847415791624*^9}, 
   3.8258587672603903`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"e3387a83-1512-4d60-900e-98bf23fc0844"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox[
     RowBox[{"8", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None]}], "+", 
        RowBox[{
         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[{
      RowBox[{"f", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{"4", " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{
        RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
        RowBox[{"\[PartialD]", "v"}]}],
       MultilineFunction->None]}], 
     SuperscriptBox[
      RowBox[{"f", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
    FractionBox[
     RowBox[{"4", " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     SuperscriptBox[
      RowBox[{"f", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "3"]], "+", 
    FractionBox["2", 
     SuperscriptBox[
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"]]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, {3.825847399856546*^9, 3.825847415791684*^9}, 
   3.8258587672604637`*^9},
 CellLabel->
  "Out[38]//TraditionalForm=",ExpressionUUID->"3f6fd91a-5a4d-43f5-ac0b-\
12f083f9e83c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.825847415791791*^9, 
   3.8258587672606087`*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"e6a33667-6d89-4218-828b-cba381c8ccf7"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.8258473998676147`*^9, 3.8258474157918673`*^9}, 3.825858767260721*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"a2aadb1e-ecaf-4ced-a65d-0c2828d9fe30"],

Cell[BoxData["\<\"KretschmannScalarDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.825847399870845*^9, 3.825847415791972*^9}, 3.825858767260819*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"3a39f2c4-96a5-43be-a9c7-01f3d54ddcb6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"f", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "4"]}]], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"16", " ", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None], ")"}], "2"], "+", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{
           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"]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "v"}]}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           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[{"8", " ", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           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[{"8", " ", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "5"], " ", 
        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", " ", 
        SuperscriptBox[
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "6"]}], ")"}]}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.825847399921693*^9, 3.825847415792062*^9}, 3.825858767260898*^9},
 CellLabel->
  "Out[41]//TraditionalForm=",ExpressionUUID->"80329025-3224-42b1-ab09-\
ee6c5ec7e626"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.825847415792241*^9, 3.825858767261038*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"3a73ab55-6945-4ef1-87ae-3789ce0ae988"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.825847399935523*^9, 3.825847415792362*^9}, 
   3.825858767261135*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"15b81c4f-fc01-46b2-a6ba-592bf9bbd303"],

Cell[BoxData["\<\"EinsteinTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.8258473999382553`*^9, 3.825847415792473*^9}, 
   3.825858767261228*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"1dcea2f9-66a0-4bdd-94a8-48975153efb4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, {3.825847399993449*^9, 3.825847415792542*^9}, 
   3.825858767261299*^9},
 CellLabel->
  "Out[44]//TraditionalForm=",ExpressionUUID->"dcf95f65-be88-4310-b279-\
48556696e217"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.825847415792652*^9, 3.825858767261449*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"560e9aa5-70b6-4bfa-9b41-b6af90617068"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, {3.825847400024611*^9, 3.825847415792734*^9}, 
   3.8258587672615547`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"e8999a89-1149-4452-8cde-5dc5b71a9e99"],

Cell[BoxData["\<\"WeylTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, {3.825847400027895*^9, 3.82584741579281*^9}, 
   3.825858767261649*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"10a7f104-7b6b-4155-9761-656d7a88a0fd"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            FractionBox["1", "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"4", " ", 
                RowBox[{"f", "(", 
                 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]}]}], ")"}]}], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
              FractionBox[
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"4", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   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]}]}], ")"}]}], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
              FractionBox[
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                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[{
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 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[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "-", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   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[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            FractionBox["1", "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"4", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   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]}]}], ")"}]}], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
              FractionBox[
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"4", " ", 
                RowBox[{"f", "(", 
                 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]}]}], ")"}]}], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
              FractionBox[
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}], "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", 
           FractionBox[
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                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[{
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 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[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "-", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   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[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 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[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "-", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                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[{
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 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[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "-", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                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[{
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "v"}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   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[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   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[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   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[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   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[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"]}]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  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[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}], ")"}]}], 
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "3"]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, {3.825847400548933*^9, 3.8258474157928753`*^9}, 
   3.825858767261772*^9},
 CellLabel->
  "Out[47]//TraditionalForm=",ExpressionUUID->"bb503242-fd0e-4e81-a4e8-\
18935b297e5e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.825847415792986*^9, 3.825858767261907*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"0d3d2a51-754c-4637-aeb9-f5acfef305a2"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825847400615739*^9, 3.8258474157930717`*^9}, 
   3.825858767262004*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"5f3a74b3-7e92-4029-b13d-8c55f2fc893b"],

Cell[BoxData["\<\"CottonTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8258474006207952`*^9, 3.825847415793148*^9}, 
   3.825858767262109*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"2fbbadf9-c40d-44b9-a16b-b19f58269de6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "+", 
                 RowBox[{"4", " ", 
                  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[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "+", 
                 RowBox[{"4", " ", 
                  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[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
              SuperscriptBox[
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "3"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    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], " ", 
                   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], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "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[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], ")"}], "2"]}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"]}]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    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], " ", 
                  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], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "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[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"6", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "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[{
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "+", 
                 RowBox[{"4", " ", 
                  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[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
              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[{
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    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], " ", 
                  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], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "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[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"6", " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
              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[{
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"r", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
               RowBox[{"(", 
                RowBox[{"-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "+", 
                 RowBox[{"4", " ", 
                  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[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    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], " ", 
                   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], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "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[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                SuperscriptBox[
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], ")"}], "2"]}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"r", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "+", 
                   RowBox[{"4", " ", 
                    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[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    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], " ", 
                    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], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "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[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox[
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                  RowBox[{"r", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "+", 
                    RowBox[{"4", " ", 
                    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[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    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], " ", 
                    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], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "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[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["v", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"r", "(", 
                    RowBox[{"u", ",", "v"}], ")"}], "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], "4"], " ", 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825847401522585*^9, 3.825847415793212*^9}, 
   3.825858767262239*^9},
 CellLabel->
  "Out[50]//TraditionalForm=",ExpressionUUID->"a2584f83-cd9f-4fe0-ad10-\
3f0ba1e50f62"],

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", 10005.},
 CellChangeTimes->{{3.825847490169467*^9, 3.825847493327306*^9}, 
   3.825858767262473*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"6b947354-12db-4296-8122-f98aae2132bd"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"]]},
      {
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"]]}
     },
     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.82584748151688*^9, 3.8258474938702517`*^9}, 
   3.825858767262899*^9},
 CellLabel->
  "Out[59]//TraditionalForm=",ExpressionUUID->"ccb1d945-e68c-4792-bb94-\
a1ec1918e1c3"],

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", 10005.},
 CellChangeTimes->{{3.8258441197041187`*^9, 3.8258441859359083`*^9}, 
   3.8258461724055853`*^9, {3.825847498249022*^9, 3.8258474985941277`*^9}, 
   3.825858767263123*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"3adeee00-f185-40bc-8cf4-28e6f7827512"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None], 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
        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[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]]}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"f", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "+", 
           RowBox[{"4", " ", 
            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[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82584748457835*^9, 3.825847499528689*^9}, 
   3.825858767263266*^9},
 CellLabel->
  "Out[62]//TraditionalForm=",ExpressionUUID->"564c8b76-cacc-41b1-a40f-\
957202dd5dac"]
}, Closed]],

Cell[CellGroupData[{

Cell["Stress Energy Tensors For Massless Scalar Field Equation 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258554874626217`*^9, 
  3.8258555121005983`*^9}},ExpressionUUID->"e5343a8b-d0c5-461e-bb6c-\
3d06774794c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Maybe", " ", "change", " ", "this", " ", "so", " ", "\[CapitalPhi]", " ", 
    "is", " ", "stricly", " ", "a", " ", "function", " ", "of", " ", "u", " ",
     "and", " ", "v", " ", "instead", " ", "of", " ", "as", " ", "in", " ", 
    RowBox[{"documentation", ":", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPhi]", "[", 
        RowBox[{"u", ",", "v"}], "]"}], 
       RowBox[{"Ylm", "[", 
        RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], " ", "-", " ", 
      RowBox[{"leave", " ", "off", " ", "spherical", " ", "harmonics"}], "  ",
       "-", " ", 
      RowBox[{"Tried", " ", "and", " ", "it", " ", "works"}]}]}]}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"phi", "=", 
   RowBox[{"ToTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[CapitalPhi]\>\""}], "}"}], ",", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"\[CapitalPhi]", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258475518277693`*^9, 3.82584756093361*^9}, {
   3.825855055332708*^9, 3.825855057058805*^9}, {3.825855317767098*^9, 
   3.825855320164693*^9}, 3.825855495952145*^9, {3.8258576308212643`*^9, 
   3.82585767673238*^9}, {3.8258587867905397`*^9, 
   3.8258587931408577`*^9}},ExpressionUUID->"57e2feb8-c178-4263-893c-\
176d914bb7a0"],

Cell[BoxData[
 TagBox["\<\"\[CapitalPhi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825847561274417*^9, 3.825855057686763*^9, 3.8258553209213257`*^9, 
   3.825855495952558*^9, {3.825857677246511*^9, 3.825857685540629*^9}, 
   3.825858359419202*^9},
 CellLabel->
  "Out[412]=",ExpressionUUID->"2af55605-4fa7-4b44-9695-291d682d1173"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Mu]"}]}], "]"}], 
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MergeTensors", "[", 
  RowBox[{
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Mu]"}]}], "]"}], 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847580539524*^9, 3.825847594701145*^9}, {
   3.82584764144578*^9, 3.825847647938925*^9}, 3.825855495952693*^9},
 CellLabel->
  "In[413]:=",ExpressionUUID->"094f728a-6b0b-4669-a5f2-a03f7cd634d8"],

Cell[BoxData[
 RowBox[{
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Mu]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Nu]", ""],
   DisplayForm]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847586610832*^9, 3.8258475956224194`*^9}, 
   3.825847648174531*^9, 3.825855061109247*^9, 3.825855335417755*^9, 
   3.8258554959527884`*^9, 3.825857685601841*^9, 3.825858359461656*^9},
 CellLabel->
  "Out[413]=",ExpressionUUID->"c21f75c2-e23d-4792-9b9a-6f4bf9e7a6f4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[CenterDot]", 
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "\[Mu]\[Nu]", 
   ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847586610832*^9, 3.8258475956224194`*^9}, 
   3.825847648174531*^9, 3.825855061109247*^9, 3.825855335417755*^9, 
   3.8258554959527884`*^9, 3.825857685601841*^9, 3.825858359473544*^9},
 CellLabel->
  "Out[414]=",ExpressionUUID->"61e5d852-edf1-42a4-8a26-bf37e7e3289f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "[", 
   RowBox[{
    RowBox[{"-", "\[Mu]"}], ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}], 
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "[", 
   RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Alpha]"}]}], "]"}], 
  RowBox[{"CovariantD", "[", 
   RowBox[{"phi", ",", 
    RowBox[{"-", "\[Beta]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MergeTensors", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], 
   RowBox[{
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}]}], "]"}], 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MultiplyTensorScalar", "[", 
  RowBox[{
   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]"}]}], "]"}]}], "]"}], ",", 
   FractionBox[
    RowBox[{"-", "1"}], "2"]}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258475975488033`*^9, 3.825847688091002*^9}, 
   3.825855495953086*^9},
 CellLabel->
  "In[415]:=",ExpressionUUID->"09dd7f22-2530-44ba-9685-b05cabec2b6f"],

Cell[BoxData[
 RowBox[{
  TagBox[
   SubsuperscriptBox[
    SuperscriptBox["g", "dn"], "", "\[Alpha]\[Beta]"],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    SuperscriptBox["g", "dn"], "\[Mu]\[Nu]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Alpha]", ""],
   DisplayForm], " ", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Beta]", ""],
   DisplayForm]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847599763513*^9, 3.8258476894547377`*^9}, 
   3.825855061170218*^9, 3.825855335510993*^9, 3.8258554959531813`*^9, 
   3.825857685650324*^9, 3.825858359498549*^9},
 CellLabel->
  "Out[415]=",ExpressionUUID->"b867fbda-71e0-455c-807d-35d6d085cff0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["g", "dn"], "\[CenterDot]", 
         SuperscriptBox["g", "dn"]}], ")"}], "\[CenterDot]", 
       RowBox[{"(", 
        RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
     "\[CenterDot]", 
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "\[Mu]\[Nu]", 
   ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847599763513*^9, 3.8258476894547377`*^9}, 
   3.825855061170218*^9, 3.825855335510993*^9, 3.8258554959531813`*^9, 
   3.825857685650324*^9, 3.825858359568742*^9},
 CellLabel->
  "Out[416]=",ExpressionUUID->"fa9b818e-5f2e-49d0-9106-a1be4e2ecbfb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "2"}], ")"}], "\[CenterDot]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["g", "dn"], "\[CenterDot]", 
           SuperscriptBox["g", "dn"]}], ")"}], "\[CenterDot]", 
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
       "\[CenterDot]", 
       RowBox[{"(", 
        RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}]}], ")"}], 
   "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847599763513*^9, 3.8258476894547377`*^9}, 
   3.825855061170218*^9, 3.825855335510993*^9, 3.8258554959531813`*^9, 
   3.825857685650324*^9, 3.825858359641185*^9},
 CellLabel->
  "Out[417]=",ExpressionUUID->"d9d68e43-c8fd-4e6f-9a49-91415a92b44a"],

Cell[BoxData[
 RowBox[{"AddTensors", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{"CovariantD", "[", 
      RowBox[{"phi", ",", 
       RowBox[{"-", "\[Mu]"}]}], "]"}], 
     RowBox[{"CovariantD", "[", 
      RowBox[{"phi", ",", 
       RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}], " ", ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"MultiplyTensorScalar", "[", 
    RowBox[{
     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]"}]}], "]"}]}], "]"}], ",", 
     FractionBox[
      RowBox[{"-", "1"}], "2"]}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847693661221*^9, 3.825847709291863*^9}, 
   3.8258554959535017`*^9},
 CellLabel->
  "In[418]:=",ExpressionUUID->"a4210fb0-b4a8-4d22-a28f-889ab0bf6b6f"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[CenterDot]", 
       RowBox[{"(", 
        RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "+", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "2"}], ")"}], "\[CenterDot]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["g", "dn"], "\[CenterDot]", 
             SuperscriptBox["g", "dn"]}], ")"}], "\[CenterDot]", 
           RowBox[{"(", 
            RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
         "\[CenterDot]", 
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}]}], ")"}]}],
     ")"}], "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82584770962745*^9, 3.825855061440156*^9, 
  3.825855335846589*^9, 3.8258554959535923`*^9, 3.825857685930818*^9, 
  3.825858359734535*^9},
 CellLabel->
  "Out[418]=",ExpressionUUID->"172cd9f7-32fa-4dad-bf0b-e5b9fbbb2522"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Ts", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Ts", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"MultiplyTensorScalar", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AddTensors", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MergeTensors", "[", 
       RowBox[{
        RowBox[{"CovariantD", "[", 
         RowBox[{"phi", ",", 
          RowBox[{"-", "\[Mu]"}]}], "]"}], 
        RowBox[{"CovariantD", "[", 
         RowBox[{"phi", ",", 
          RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"MultiplyTensorScalar", "[", 
       RowBox[{
        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]"}]}], "]"}]}], "]"}], ",", 
        FractionBox[
         RowBox[{"-", "1"}], "2"]}], "]"}]}], "]"}], " ", ",", " ", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", "\[Pi]"}]], ")"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847711972282*^9, 3.8258477458195677`*^9}, 
   3.825855495953763*^9},
 CellLabel->
  "In[419]:=",ExpressionUUID->"40f90b12-8127-44d8-9e79-fc9ab71be21f"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}], 
     RowBox[{
      SuperscriptBox["Pi", 
       RowBox[{"-", "1"}]], "\[CenterDot]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "2"}], ")"}], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["g", "dn"], "\[CenterDot]", 
                SuperscriptBox["g", "dn"]}], ")"}], "\[CenterDot]", 
              RowBox[{"(", 
               RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
            "\[CenterDot]", 
            RowBox[{"(", 
             RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}]}]}], ")"}], "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847733555084*^9, 3.825847746549255*^9}, 
   3.825855061547862*^9, 3.825855335983197*^9, 3.8258554959538593`*^9, 
   3.8258576860492973`*^9, 3.8258583598471603`*^9},
 CellLabel->
  "Out[420]=",ExpressionUUID->"c56ec05f-2f14-4791-9b07-41b3fccb0b0b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", " ", "Ts", " ", "]"}], "  ", "//", " ", 
   "MatrixForm"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847756108803*^9, 3.825847767250821*^9}, 
   3.8258554959539623`*^9},
 CellLabel->
  "In[421]:=",ExpressionUUID->"332373df-7e90-4289-b62f-cf14205d97db"],

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"], " ", 
         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[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "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]}], 
        RowBox[{"2", " ", "\[Pi]", " ", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825847760530857*^9, 3.8258477677883673`*^9}, 
   3.8258550616674*^9, 3.825855336137891*^9, 3.825855495954192*^9, 
   3.825857686091084*^9, 3.825858359874466*^9},
 CellLabel->
  "Out[421]//TraditionalForm=",ExpressionUUID->"6b763f26-451d-4e1e-9910-\
0563dca2ca13"]
}, Closed]],

Cell[CellGroupData[{

Cell["Energy Momentum Tensor of Electromagnetic Field Equation 3", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825855843572713*^9, 
  3.825855869882683*^9}},ExpressionUUID->"6c3183e2-455e-4fc5-86ae-\
28a22f62f29c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq3", " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      FractionBox[
       SuperscriptBox["Q", "2"], 
       RowBox[{"8", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"r", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "4"]}]], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"00", 
          RowBox[{"f", "/", "2"}], "0", "0"},
         {
          RowBox[{"f", "/", "2"}], "0", "0", "0"},
         {"0", "0", 
          SuperscriptBox[
           RowBox[{"r", "[", 
            RowBox[{"u", ",", "v"}], "]"}], "2"], "0"},
         {"0", "0", "0", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"r", "[", 
             RowBox[{"u", ",", "v"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
        }], "\[NoBreak]", ")"}]}], " ", "/.", " ", 
     RowBox[{"f", "\[Rule]", " ", 
      RowBox[{"f", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}]}]}], "  ", ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Needs", " ", "to", " ", "be", " ", "this", " ", "way", " ", "so", " ", 
     "can", " ", "set", " ", "equal", " ", "to", " ", "field", " ", 
     "equations", " ", "where", " ", "r"}], " ", "=", 
    RowBox[{"r", "[", 
     RowBox[{"u", ",", "v"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Also", ",", " ", 
    RowBox[{
     RowBox[{"doing", " ", "the", " ", "replacement", " ", "r"}], "\[Rule]", 
     " ", 
     RowBox[{
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"u", ",", "v"}], "]"}], " ", "works", " ", "when", " ", "r", 
       " ", "is", " ", "in", " ", "numberator", " ", "NOT", " ", "when", " ", 
       
       RowBox[{"it", "'"}], "s", " ", "in", " ", "the", " ", "denominator"}], 
      " ", "-", " ", 
      RowBox[{"figure", " ", "out", " ", "why"}]}]}]}], " ", "*)"}], "   ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8258555160927753`*^9, 3.825855593149375*^9}, 
   3.825855840374939*^9, {3.825857965196679*^9, 3.825857997355422*^9}, {
   3.825858128751964*^9, 3.825858164991816*^9}, 3.825858328933241*^9, {
   3.825858389684743*^9, 3.825858434989846*^9}},
 CellLabel->
  "In[463]:=",ExpressionUUID->"6650310e-6fc7-4e2b-b0d9-0a6d24f9aa7d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["Q", "2"], " ", 
        RowBox[{"f", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], 
       RowBox[{"16", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"r", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "4"]}]], "0", "0"},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["Q", "2"], " ", 
        RowBox[{"f", "[", 
         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"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
       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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.825855593453012*^9, 3.82585584037566*^9, 3.825857998273218*^9, 
   3.825858103219243*^9, 3.825858134171427*^9, 3.8258581652607737`*^9, {
   3.8258583304380713`*^9, 3.8258583598884087`*^9}, 3.8258584068051987`*^9, 
   3.8258584397764263`*^9},
 CellLabel->
  "Out[465]//MatrixForm=",ExpressionUUID->"e092a1bf-51b3-4733-b57b-\
bfd20b0ef133"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Tem", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"redo", " ", "as", " ", "superscript"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Tem", " ", "=", "\[IndentingNewLine]", "  ", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<Tem\>\"", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", " ", "eq3", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825855683842764*^9, 3.8258557505858507`*^9}, 
   3.825855840375874*^9},
 CellLabel->
  "In[466]:=",ExpressionUUID->"e208aa8f-a9c5-496d-aa51-861fa90aa0f1"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["Tem", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.825855719126164*^9, 3.825855750875751*^9, 3.8258558403762503`*^9, 
   3.8258580156408663`*^9, 3.8258581799196253`*^9, {3.8258583325593853`*^9, 
   3.825858359915147*^9}, 3.825858447723716*^9},
 CellLabel->
  "Out[467]=",ExpressionUUID->"e39de029-7818-4295-96d1-8367211d7489"],

Cell[BoxData[{
 RowBox[{"Tem", "[", 
  RowBox[{
   RowBox[{"-", "\[Mu]"}], ",", 
   RowBox[{"-", "\[Nu]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorValues", "[", 
   RowBox[{"Tem", "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], " ", "//", " ", 
  "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8258557574282207`*^9, 3.825855781449544*^9}, 
   3.825855840376401*^9},
 CellLabel->
  "In[468]:=",ExpressionUUID->"ebb36f57-b61b-4d57-9d96-f9b37c988b6b"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["Tem", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8258557658412848`*^9, 3.825855781762446*^9}, 
   3.8258558403765163`*^9, 3.825858015698094*^9, {3.82585817140547*^9, 
   3.8258581825120897`*^9}, {3.8258583342179403`*^9, 3.825858359928791*^9}, 
   3.825858447762753*^9},
 CellLabel->
  "Out[468]=",ExpressionUUID->"a45ab1bb-50cc-4149-9df8-db68cf60f71c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      FractionBox[
       RowBox[{
        SuperscriptBox["Q", "2"], " ", 
        RowBox[{"f", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], 
       RowBox[{"16", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"r", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "4"]}]], "0", "0"},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["Q", "2"], " ", 
        RowBox[{"f", "[", 
         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"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
       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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8258557658412848`*^9, 3.825855781762446*^9}, 
   3.8258558403765163`*^9, 3.825858015698094*^9, {3.82585817140547*^9, 
   3.8258581825120897`*^9}, {3.8258583342179403`*^9, 3.825858359928791*^9}, 
   3.82585844776755*^9},
 CellLabel->
  "Out[469]//MatrixForm=",ExpressionUUID->"675d4656-1670-4a16-9233-\
79f59ada5936"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Derivation of Equation 4 Using Documentation From GRTensors Wave Equations \
Example
See: GeneralRelativityTensors/tutorial/Examples - Wave equations\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82585536173324*^9, 3.825855394796399*^9}, {
  3.8258554352135477`*^9, 
  3.825855445491171*^9}},ExpressionUUID->"f7c355af-57fe-4f39-b84a-\
4dccd702bc65"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825855370882701*^9},
 CellLabel->
  "In[470]:=",ExpressionUUID->"39cf3ea5-db0d-4df5-bf4a-aee9e2b70a13"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.017439`", ",", 
   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", 10000.},
 CellChangeTimes->{3.8258549530907097`*^9, 3.825855061694408*^9, 
  3.825855336173253*^9, 3.8258553708828278`*^9, 3.825857709310383*^9, 
  3.825858015740809*^9, 3.825858359960577*^9, 3.825858447791677*^9},
 CellLabel->
  "Out[470]=",ExpressionUUID->"cd823748-a07d-4526-bd22-2e2ec2e39541"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"boxPhi1", "=", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{"waveScalar1", ",", 
     RowBox[{"ActWith", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Collect", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"_", "[", 
             RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",", 
            RowBox[{"_", "[", 
             RowBox[{"t", ",", "r"}], "]"}]}], "}"}], ",", "Simplify"}], 
         "]"}], "&"}], ")"}]}]}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825855370882951*^9},
 CellLabel->
  "In[471]:=",ExpressionUUID->"1e7b09d1-3356-4c40-ab5b-87b1dd1357d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.086083`", ",", 
   TagBox["\<\"(((-1)\[CenterDot]((\\!\\(\\*SuperscriptBox[\\(g\\), \\(dn\\)]\
\\)\[CenterDot]\[CapitalGamma])\[CenterDot](\[PartialD]\[CapitalPhi])))+(\\!\\\
(\\*SuperscriptBox[\\(g\\), \\(dn\\)]\\)\[CenterDot](\[PartialD](\[PartialD]\
\[CapitalPhi]))))\"\>",
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825854892757905*^9, 3.825854955289625*^9, 
  3.8258550618157177`*^9, 3.825855336291988*^9, 3.825855370883037*^9, 
  3.8258577094442673`*^9, 3.825858015859846*^9, 3.825858360071632*^9, 
  3.825858447885626*^9},
 CellLabel->
  "Out[471]=",ExpressionUUID->"08bc2a28-8584-4309-a76f-1512382068dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"boxPhi1", "//", "TensorValues"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.825855370883123*^9, {3.825855455269511*^9, 3.82585545663734*^9}},
 CellLabel->
  "In[472]:=",ExpressionUUID->"875983ac-7dcf-4504-81e5-c054fc080e98"],

Cell[BoxData[
 FormBox[
  RowBox[{"-", 
   FractionBox[
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None]}], "+", 
       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[{
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825854968794258*^9, 3.825855061826809*^9, 
  3.825855336302785*^9, 3.8258553708832083`*^9, 3.8258554571111393`*^9, 
  3.825857709482457*^9, 3.8258580159069567`*^9, 3.825858360100608*^9, 
  3.825858447904027*^9},
 CellLabel->
  "Out[472]//TraditionalForm=",ExpressionUUID->"3f92c856-fef0-4ba8-b397-\
524ec6be2f18"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"TensorValues", "[", "boxPhi1", "]"}], "[", 
           RowBox[{"[", "4", "]"}], "]"}], " ", "\[Equal]", "0"}], ",", " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPhi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "/.", " ", 
     RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], " ", "//", " ", 
    "Expand"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82585515924889*^9, 3.825855223864745*^9}, {
   3.825855338439354*^9, 3.825855339902294*^9}, 3.8258553708845453`*^9, {
   3.8258578257620153`*^9, 3.825857835098351*^9}},
 CellLabel->
  "In[473]:=",ExpressionUUID->"fd8d07c2-bb39-4507-8989-b939b395fc89"],

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", 10000.},
 CellChangeTimes->{{3.825855159533778*^9, 3.8258552243314667`*^9}, {
   3.825855336496714*^9, 3.825855370884754*^9}, {3.825857827720335*^9, 
   3.8258578353613567`*^9}, 3.8258580159622717`*^9, 3.825858360133152*^9, 
   3.825858447923551*^9},
 CellLabel->
  "Out[475]//TraditionalForm=",ExpressionUUID->"9dfb4377-c4dd-4945-b172-\
c02b93700b21"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"eq4a", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "-", 
     RowBox[{"eq4a", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "\[Equal]", " ", "0"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8258552312334023`*^9, 3.825855259896077*^9}, 
   3.825855370884885*^9},
 CellLabel->
  "In[476]:=",ExpressionUUID->"d8e3f87b-7e06-4504-8571-4be5997f9b38"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "v"}]}],
     MultilineFunction->None], "+", 
    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"}], ")"}]]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825855243477643*^9, 3.8258552604423943`*^9}, {
   3.825855336552685*^9, 3.825855370885106*^9}, 3.825857847395549*^9, 
   3.825858016002336*^9, 3.8258583601702337`*^9, 3.825858447943883*^9},
 CellLabel->
  "Out[478]//TraditionalForm=",ExpressionUUID->"32ca929d-ffd5-4d5b-b808-\
39998a44711a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Field Equations:  Equations 4-8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825857528831481*^9, 3.8258575640163393`*^9}, 
   3.8258589444383593`*^9},ExpressionUUID->"cc380a1c-fe40-47e8-a7bd-\
81f05bb5a52e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "rhsWood", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "The", " ", "right", " ", "hand", " ", "side", " ", "is", " ", "made", 
     " ", "of", " ", "wood"}], ",", " ", 
    RowBox[{
    "the", " ", "left", " ", "hand", " ", "side", " ", "is", " ", "made", " ",
      "of", " ", "marble"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"rhsWood", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"MultiplyTensorScalar", "[", 
   RowBox[{
    RowBox[{"MergeTensors", "[", 
     RowBox[{"AddTensors", "[", 
      RowBox[{"Ts", ",", "Tem"}], "]"}], "]"}], ",", 
    RowBox[{"8", "\[Pi]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258559222517357`*^9, 3.8258560216716633`*^9}, 
   3.825857538660758*^9, 3.825858944438613*^9},
 CellLabel->
  "In[482]:=",ExpressionUUID->"d14292e4-cabe-4596-861c-fefd320fde66"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", "8", ")"}], 
     RowBox[{
      RowBox[{"(", "Pi", ")"}], "\[CenterDot]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "4"}], ")"}], 
          RowBox[{
           SuperscriptBox["Pi", 
            RowBox[{"-", "1"}]], "\[CenterDot]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], 
               "\[CenterDot]", 
               RowBox[{"(", 
                RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], "+", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "/", "2"}], ")"}], "\[CenterDot]", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["g", "dn"], "\[CenterDot]", 
                    SuperscriptBox["g", "dn"]}], ")"}], "\[CenterDot]", 
                   RowBox[{"(", 
                    RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
                 "\[CenterDot]", 
                 RowBox[{"(", 
                  RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}]}], 
              ")"}]}], ")"}]}]}], ")"}], "+", "Tem"}], ")"}]}]}], ")"}], 
   "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825855923447485*^9, 3.825855982830411*^9}, {
   3.825856013643083*^9, 3.825856022129805*^9}, 3.82585753866117*^9, 
   3.825857869609758*^9, 3.825858016113104*^9, 3.825858202741864*^9, 
   3.8258583602707233`*^9, 3.8258584480304937`*^9, 3.825858944438747*^9},
 CellLabel->
  "Out[483]=",ExpressionUUID->"b5bfdd3f-9249-4d67-a1f5-ec650bdd4062"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", " ", "rhsWood", " ", "]"}], "  ", "//", " ", 
   "MatrixForm"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82585603956047*^9, 3.825856071575281*^9}, 
   3.825857538661314*^9, 3.825858944438876*^9},
 CellLabel->
  "In[484]:=",ExpressionUUID->"f87a93d4-5553-4cc1-8427-a976f3dc4340"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"]}], 
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "4"]}]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["Q", "2"], " ", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "4"]}]], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], ")"}], "2"]}], "0", "0"},
      {"0", "0", 
       RowBox[{"8", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "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]}], 
           RowBox[{"2", " ", "\[Pi]", " ", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]], "+", 
          FractionBox[
           SuperscriptBox["Q", "2"], 
           RowBox[{"8", " ", "\[Pi]", " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"8", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox[
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "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]}], 
           RowBox[{"2", " ", "\[Pi]", " ", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}]], "+", 
          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", 10001.},
 CellChangeTimes->{{3.825856045843034*^9, 3.8258560721739883`*^9}, 
   3.825857538661668*^9, 3.825857872240535*^9, 3.825858016164415*^9, 
   3.825858204591627*^9, 3.82585836031017*^9, 3.8258584480661583`*^9, 
   3.825858944438961*^9},
 CellLabel->
  "Out[484]//TraditionalForm=",ExpressionUUID->"1b574467-5da5-4209-9033-\
f17abd362112"],

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.825858944439106*^9},
 CellLabel->
  "In[515]:=",ExpressionUUID->"4e850b49-fe21-47fe-9617-a0ed6be93bbd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825858924587647*^9, 3.825858944439218*^9}},
 CellLabel->
  "Out[515]=",ExpressionUUID->"5ff3412b-077c-43df-b92a-970f775befa0"],

Cell[BoxData["\<\"EinsteinTensorDoubleNull\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258589245918303`*^9, 3.825858944439331*^9}},
 CellLabel->
  "Out[516]=",ExpressionUUID->"ce21e38e-81ef-4b8d-9570-11374f183313"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "+", 
         RowBox[{"4", " ", 
          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[{"2", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "2"]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["v", "2"]}],
           MultilineFunction->None]}]}], 
        RowBox[{
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"r", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"u", ",", "v"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"u", ",", "v"}], ")"}], "3"]]}
     },
     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.825858924640008*^9, 3.825858944439767*^9}},
 CellLabel->
  "Out[517]//TraditionalForm=",ExpressionUUID->"58b452e1-ed7b-4a8d-9baf-\
fc034cbd2303"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "fieldEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "]"}], "\[Equal]", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", " ", "rhsWood", " ", "]"}], " ", "]"}]}], 
    "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825856106095562*^9, 3.8258561495106983`*^9}, {
   3.825856197653887*^9, 3.825856213444199*^9}, 3.825857538661818*^9, 
   3.825858944439954*^9},
 CellLabel->
  "In[485]:=",ExpressionUUID->"479ddf14-2434-427d-839d-30e30094afdf"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"f", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], "\[LongEqual]", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "+", 
          RowBox[{"4", " ", 
           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[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "4"]}]]}]},
      {"True"},
      {"True"},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "+", 
          RowBox[{"4", " ", 
           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[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["Q", "2"], " ", 
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"r", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "4"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"f", "(", 
            RowBox[{"u", ",", "v"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["v", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          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[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "v"}]}],
              MultilineFunction->None]}]}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "3"]], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "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]}], 
            RowBox[{"2", " ", "\[Pi]", " ", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], "+", 
           FractionBox[
            SuperscriptBox["Q", "2"], 
            RowBox[{"8", " ", "\[Pi]", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], ")"}]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"r", "(", 
              RowBox[{"u", ",", "v"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"u", ",", "v"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"r", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "v"}]}],
              MultilineFunction->None]}]}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "3"]], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "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]}], 
            RowBox[{"2", " ", "\[Pi]", " ", 
             RowBox[{"f", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["Q", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
            RowBox[{"8", " ", "\[Pi]", " ", 
             SuperscriptBox[
              RowBox[{"r", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "2"]}]]}], ")"}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825856110089025*^9, 3.825856150210517*^9}, 
   3.8258562158619127`*^9, 3.8258575386622467`*^9, 3.825857880702766*^9, 
   3.825858016331101*^9, {3.8258581921639643`*^9, 3.825858207123515*^9}, 
   3.8258583604178753`*^9, 3.8258584481632223`*^9, 3.8258589444400663`*^9},
 CellLabel->
  "Out[487]//TraditionalForm=",ExpressionUUID->"d4be9ba0-8cae-4fb7-8546-\
f9c888856b01"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq5a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "close", " ", "enough", " ", "me", " ", "thinks"}],
    " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5a", " ", "=", " ", "\[IndentingNewLine]", 
   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"}]}], " ", "//", " ", "Apart"}], 
    " ", "//", " ", "Expand"}]}], "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258564186700563`*^9, 3.825856469637433*^9}, {
   3.825856563660193*^9, 3.825856588538995*^9}, {3.825857162875396*^9, 
   3.825857164074299*^9}, 3.825857538662447*^9, {3.825857917281414*^9, 
   3.825857924257121*^9}, {3.825858269961458*^9, 3.8258582725845423`*^9}, 
   3.825858944440279*^9},
 CellLabel->
  "In[488]:=",ExpressionUUID->"de482de4-4b09-4ec2-aab9-4981c607c5d7"],

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"], " ", 
      RowBox[{"f", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "3"]}]], "-", 
    FractionBox[
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}], 
     RowBox[{"4", " ", 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825856419583646*^9, 3.825856470207315*^9}, 
   3.8258565888575583`*^9, 3.8258570643216*^9, 3.825857164399082*^9, 
   3.825857538662717*^9, {3.8258578996629868`*^9, 3.8258579253472853`*^9}, 
   3.8258580163803253`*^9, {3.825858055458159*^9, 3.825858057247257*^9}, 
   3.8258582148368797`*^9, 3.825858277577071*^9, 3.825858360460759*^9, 
   3.825858448186246*^9, 3.825858944440362*^9},
 CellLabel->
  "Out[490]//TraditionalForm=",ExpressionUUID->"60c95dca-9190-4621-85d7-\
bd474afaea39"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq5", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "close", " ", "enough", " ", "me", " ", "thinks"}],
    " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{"Expand", "[", "eq5a", " ", "]"}], ",", " ", 
     RowBox[{"f", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825857929403376*^9, 3.825857936055546*^9}, 
   3.825858051332529*^9, {3.825858219336673*^9, 3.825858234793336*^9}, {
   3.825858274979514*^9, 3.825858318210395*^9}, 3.825858375085116*^9, {
   3.825858463612282*^9, 3.8258585182612123`*^9}, 3.825858944440538*^9},
 CellLabel->
  "In[509]:=",ExpressionUUID->"1d80d9e3-c14f-4a26-98f4-64364151244f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        SuperscriptBox["Q", "2"], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"r", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "3"]}]], "-", 
       FractionBox["1", 
        RowBox[{"4", " ", 
         RowBox[{"r", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]]}], ")"}]}], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825858474773219*^9, 3.82585851910732*^9}, 
   3.825858944440813*^9},
 CellLabel->
  "Out[511]//TraditionalForm=",ExpressionUUID->"15b17bf0-51f8-4882-8af7-\
89f72a2fd273"],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq5", " ", "/.", " ", 
   RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825857040970387*^9, 3.825857041169656*^9}, 
   3.82585753866286*^9, 3.8258589444409323`*^9},
 CellLabel->
  "In[491]:=",ExpressionUUID->"1cab42c5-3ef0-4856-a40b-cdaf06f49bcf"],

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[{"\[Pi]", " ", 
      SuperscriptBox["Q", "2"], " ", 
      RowBox[{"f", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"\[Pi]r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "4"]}]], "-", 
    FractionBox[
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}], 
     RowBox[{"4", " ", 
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825857041684245*^9, 3.825857067634157*^9}, 
   3.8258571681722*^9, 3.825857538663425*^9, 3.8258580164434767`*^9, 
   3.825858360582212*^9, 3.8258584482156878`*^9, 3.825858944441023*^9},
 CellLabel->
  "Out[491]//TraditionalForm=",ExpressionUUID->"dfd05cd3-3d47-40fb-8277-\
6122e80a5607"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq6", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "close", " ", "but", " ", "needs", " ", "to", " ", 
    "be", " ", "checked", " ", "and", " ", 
    RowBox[{"I", "'"}], "m", " ", "too", " ", "tired"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{"fieldEquations", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", 
           RowBox[{
            SuperscriptBox["f", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "  ", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{"(", 
        RowBox[{"eq5", " ", "/.", " ", 
         RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], ")"}]}], "//", " ", 
      "Expand"}], ")"}], " ", "/.", " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq6", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825856823667242*^9, 3.8258568729467983`*^9}, {
   3.825856991275708*^9, 3.8258569999219837`*^9}, {3.825857055728242*^9, 
   3.8258571723720617`*^9}, {3.825857233352351*^9, 3.82585729050415*^9}, 
   3.8258575386636047`*^9, 3.825858944441218*^9},
 CellLabel->
  "In[512]:=",ExpressionUUID->"669ee697-9bf0-44d5-84ed-94f4ab291d3c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["Q", "2"], " ", 
       SuperscriptBox[
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "4"]]}], "+", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"f", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"r", "(", 
        RowBox[{"u", ",", "v"}], ")"}], "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{"f", "(", 
       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]}], 
     SuperscriptBox[
      RowBox[{"r", "(", 
       RowBox[{"u", ",", "v"}], ")"}], "2"]], "-", 
    RowBox[{"2", " ", 
     RowBox[{"f", "(", 
      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]}], "+", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825856827645795*^9, {3.8258568598378277`*^9, 3.8258568740177927`*^9}, {
   3.825856992887781*^9, 3.825857000290032*^9}, {3.825857056349195*^9, 
   3.8258571728099527`*^9}, {3.825857246119937*^9, 3.8258572626064987`*^9}, 
   3.825857538663721*^9, 3.8258580164921703`*^9, 3.825858360617168*^9, 
   3.825858448248165*^9, 3.8258585563754168`*^9, 3.8258589444414883`*^9},
 CellLabel->
  "Out[514]//TraditionalForm=",ExpressionUUID->"65235054-a570-414c-b0f5-\
049de4b5793d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq7", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"I", "'"}], "ll", " ", "be", " ", "damned"}], ",", " ", 
    RowBox[{
    "that", " ", "looks", " ", "close", " ", "enough", " ", "to", " ", 
     "almost", " ", "right"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"fieldEquations", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", 
         RowBox[{
          SuperscriptBox["r", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
     RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], " ", "//", " ", "Apart"}]}],
   "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825856223996614*^9, 3.825856293556909*^9}, {
   3.825856326480521*^9, 3.8258563386074533`*^9}, 3.8258575386645412`*^9, 
   3.825858944441711*^9},
 CellLabel->
  "In[496]:=",ExpressionUUID->"e8c02e3d-d52e-40a5-857c-9133c6b78abe"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["u", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None]}], 
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}]], "-", 
    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", 10001.},
 CellChangeTimes->{{3.8258562247612467`*^9, 3.825856294013933*^9}, 
   3.8258575386648827`*^9, 3.825858016584531*^9, 3.825858360693223*^9, 
   3.825858448300605*^9, 3.8258589444417877`*^9},
 CellLabel->
  "Out[498]//TraditionalForm=",ExpressionUUID->"96fa9b84-41f3-4166-841f-\
4c90c3c87286"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq8", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"I", "'"}], "ll", " ", "be", " ", "damned"}], ",", " ", 
    RowBox[{
    "that", " ", "looks", " ", "close", " ", "enough", " ", "to", " ", 
     "almost", " ", "right"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"fieldEquations", "[", 
          RowBox[{"[", "6", "]"}], "]"}], " ", ",", 
         RowBox[{
          SuperscriptBox["r", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
     RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], " ", "//", " ", "Apart"}]}],
   "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8258563648801317`*^9, 3.825856376734913*^9}, 
   3.825857538665092*^9, 3.8258589444420767`*^9},
 CellLabel->
  "In[499]:=",ExpressionUUID->"0e71ba63-5176-4987-a4a1-c15193d53a1e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"r", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["v", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"f", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"r", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     RowBox[{"f", "(", 
      RowBox[{"u", ",", "v"}], ")"}]], "-", 
    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", 10001.},
 CellChangeTimes->{3.8258563772077923`*^9, 3.825857538665593*^9, 
  3.82585801662643*^9, 3.825858360728949*^9, 3.825858448320442*^9, 
  3.825858944442477*^9},
 CellLabel->
  "Out[501]//TraditionalForm=",ExpressionUUID->"3da993d0-a30e-4ebc-91e7-\
7b03fde832bc"]
}, Closed]]
},
WindowSize->{1265, 651},
WindowMargins->{{-1273, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"7497936d-1ee8-4e4a-9e9f-81c502254746"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1282, 19, 159, "Title",ExpressionUUID->"1383d744-c881-4857-adc4-ff3aca7c8fe8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1865, 43, 795, 14, 76, "Author",ExpressionUUID->"5e826fba-e9b0-4046-8462-4e6c9f9a4968",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[2675, 60, 385, 9, 41, "Input",ExpressionUUID->"0a0820e2-a92e-4277-b33e-7883122c64c2"],
Cell[CellGroupData[{
Cell[3085, 73, 228, 4, 69, "Section",ExpressionUUID->"4bd24e29-5367-47f9-a2f1-1897286ea6ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3316, 79, 433, 9, 63, "Input",ExpressionUUID->"98e6c221-9c11-4954-8f18-231162ca5615",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3752, 90, 1177, 19, 43, "Output",ExpressionUUID->"bd957d4e-d6fc-4e20-a781-413a747b63aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4966, 114, 545, 9, 55, "Section",ExpressionUUID->"ac214f34-e733-49b2-864b-dd79aa9f604e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5514, 125, 679, 11, 63, "Input",ExpressionUUID->"1d107892-b06a-491c-9255-d71aafbb1091",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6196, 138, 970, 16, 43, "Output",ExpressionUUID->"83348471-9436-4c99-98f6-2e59246dc27f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7169, 156, 500, 9, 63, "Input",ExpressionUUID->"f134e352-b3f3-4eca-b3dc-cff890e1dba2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7672, 167, 467, 9, 43, "Output",ExpressionUUID->"b71ce123-1506-4c8c-8a5f-c840be1838ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8142, 178, 583, 10, 84, "Input",ExpressionUUID->"1ff0fc49-2e4e-416f-a483-84e9d8abff74",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8728, 190, 1220, 20, 43, "Output",ExpressionUUID->"735091cd-fdc6-405b-8eef-47e97c5c5e7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[9985, 215, 251, 4, 55, "Section",ExpressionUUID->"a64595e4-3dc0-46c9-99b0-b0233224d625",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[10239, 221, 1668, 45, 189, "Input",ExpressionUUID->"8dba0b3f-60b6-4109-ba8b-e5149679d022",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11910, 268, 1449, 25, 24, "Print",ExpressionUUID->"2548d7fd-0b4c-449e-bd6e-506db297f532",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13362, 295, 1463, 25, 24, "Print",ExpressionUUID->"c3336871-4a30-4e25-8ea9-26da07eaa3ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14828, 322, 1325, 21, 41, "Output",ExpressionUUID->"e5c5862f-f042-4d4b-853e-b1a4b94c91ba",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16156, 345, 268, 4, 41, "Input",ExpressionUUID->"30f589ca-f0eb-4cce-8acc-59f67d6b5863",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16427, 351, 308, 5, 41, "Input",ExpressionUUID->"9a0223e0-c2be-4f54-bfe5-1591e48d80f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[16772, 361, 266, 5, 55, "Section",ExpressionUUID->"0f3f7035-c340-4f14-a140-959ce9e6d94e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[17041, 368, 3865, 88, 630, "Input",ExpressionUUID->"827a84f3-6358-490b-b492-3dd5ca005347",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20909, 458, 3225, 100, 483, "Output",ExpressionUUID->"ed5d4059-f887-42b8-9a55-bedebe9ec360",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[24137, 560, 675, 16, 63, "Input",ExpressionUUID->"c1a40104-8f67-4187-a85b-379ced1f3f79",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24849, 581, 362, 6, 55, "Section",ExpressionUUID->"60eb9d09-dc2d-460b-8b08-c63755f3e60f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[25214, 589, 1659, 41, 126, "Input",ExpressionUUID->"2f118e15-fe1d-42e8-8fec-9637d298446f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26876, 632, 1056, 26, 84, "Input",ExpressionUUID->"b623b316-b02f-4c8d-a339-ebbe294cc9dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27969, 663, 227, 4, 55, "Section",ExpressionUUID->"c4b4a903-d5ef-40d4-a320-a949b07eddfe",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28199, 669, 859, 22, 86, "Input",ExpressionUUID->"e0d93542-8f39-41e4-9404-e3bd88dc4419",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29061, 693, 674, 19, 44, "Output",ExpressionUUID->"19f7fd18-37ac-45e3-9f49-d6239c5c759c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29738, 714, 657, 13, 105, "Input",ExpressionUUID->"483260f9-1828-4f9e-93f8-faf8ebdc9356",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30398, 729, 1363, 42, 123, "Output",ExpressionUUID->"c0a32d9c-1550-4cff-a180-b834bd75742b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[31798, 776, 253, 4, 55, "Section",ExpressionUUID->"cd06b94d-f03b-48b2-81b3-0fc73b510981",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[32054, 782, 5750, 130, 714, "Input",ExpressionUUID->"3bdbec97-2dde-4f46-9810-78bfc7768840",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37807, 914, 1078, 21, 65, "Input",ExpressionUUID->"87c70119-f584-408d-907b-a663745283f6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[38888, 937, 309, 6, 41, "Output",ExpressionUUID->"2010e0d5-fa25-4683-a019-2747678957c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39200, 945, 284, 4, 41, "Input",ExpressionUUID->"a40aabb9-9660-447c-ae0a-eba1a4ed6d7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39487, 951, 1110, 34, 45, "Output",ExpressionUUID->"34b27d0a-d438-49b8-868e-d700425b5674",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[40600, 987, 836, 19, 84, "Input",ExpressionUUID->"3bef75b6-5627-400c-b3ba-aecb92b4a40e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41439, 1008, 589, 12, 45, "Output",ExpressionUUID->"34217e18-c237-4da1-bd78-5aaed8176ce1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42031, 1022, 510, 8, 41, "Output",ExpressionUUID->"02b3473e-c42f-45e1-b22b-b065b046e0b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42544, 1032, 1671, 47, 126, "Output",ExpressionUUID->"5d35d647-95de-4b7a-91de-609d81e2e067",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[44218, 1081, 841, 19, 84, "Input",ExpressionUUID->"f6538d5b-2119-4202-a0cd-879c8fc9af5a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45062, 1102, 705, 14, 45, "Output",ExpressionUUID->"25faf189-d1e6-4fe7-974d-6b94db2d983f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45770, 1118, 609, 9, 41, "Output",ExpressionUUID->"31ef7d21-4bba-4812-9206-515256507a32",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46382, 1129, 15610, 450, 434, "Output",ExpressionUUID->"ec0bada7-a9dc-45a5-971a-a97707df2bec",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[61995, 1581, 835, 19, 84, "Input",ExpressionUUID->"6ee03419-11c8-4b97-8548-44a51669f26a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62833, 1602, 581, 11, 45, "Output",ExpressionUUID->"2a1057d0-895b-43a6-ad37-0c373670f563",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[63417, 1615, 529, 8, 41, "Output",ExpressionUUID->"88b2396a-80a4-49e2-b27c-e6b4844835c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[63949, 1625, 47413, 1214, 588, "Output",ExpressionUUID->"96c514a7-30f8-491b-b609-f97859e883cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[111365, 2841, 832, 19, 84, "Input",ExpressionUUID->"03908440-772a-483d-a1cb-f752b45838d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[112200, 2862, 566, 11, 45, "Output",ExpressionUUID->"37b386d1-0e66-4a1d-bd60-77837b986a65",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[112769, 2875, 522, 8, 41, "Output",ExpressionUUID->"829194d3-6e3e-44b4-9b3e-208bcbf0ba3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[113294, 2885, 8620, 244, 212, "Output",ExpressionUUID->"e335c5b7-9def-49f8-a663-d18f3bf28676",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[121917, 3131, 833, 19, 84, "Input",ExpressionUUID->"7a02c465-c8fe-4c09-a270-bd24b3999ac4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[122753, 3152, 529, 10, 41, "Output",ExpressionUUID->"e6e64502-d7c0-46e5-8687-2a394d06093a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[123285, 3164, 526, 8, 41, "Output",ExpressionUUID->"e3387a83-1512-4d60-900e-98bf23fc0844",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[123814, 3174, 2856, 85, 86, "Output",ExpressionUUID->"3f6fd91a-5a4d-43f5-ac0b-12f083f9e83c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[126673, 3261, 769, 18, 84, "Input",ExpressionUUID->"e6a33667-6d89-4218-828b-cba381c8ccf7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[127445, 3281, 359, 7, 41, "Output",ExpressionUUID->"a2aadb1e-ecaf-4ced-a65d-0c2828d9fe30",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[127807, 3290, 356, 5, 41, "Output",ExpressionUUID->"3a39f2c4-96a5-43be-a9c7-01f3d54ddcb6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[128166, 3297, 8800, 246, 122, "Output",ExpressionUUID->"80329025-3224-42b1-ab09-ee6c5ec7e626",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[136969, 3545, 814, 18, 84, "Input",ExpressionUUID->"3a73ab55-6945-4ef1-87ae-3789ce0ae988",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[137786, 3565, 494, 10, 45, "Output",ExpressionUUID->"15b81c4f-fc01-46b2-a6ba-592bf9bbd303",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[138283, 3577, 457, 7, 41, "Output",ExpressionUUID->"1dcea2f9-66a0-4bdd-94a8-48975153efb4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[138743, 3586, 9459, 261, 218, "Output",ExpressionUUID->"dcf95f65-be88-4310-b279-48556696e217",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[148205, 3849, 879, 19, 84, "Input",ExpressionUUID->"560e9aa5-70b6-4bfa-9b41-b6af90617068",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[149087, 3870, 581, 11, 45, "Output",ExpressionUUID->"e8999a89-1149-4452-8cde-5dc5b71a9e99",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[149671, 3883, 519, 8, 41, "Output",ExpressionUUID->"10a7f104-7b6b-4155-9761-656d7a88a0fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[150193, 3893, 82910, 2022, 592, "Output",ExpressionUUID->"bb503242-fd0e-4e81-a4e8-18935b297e5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[233106, 5917, 739, 17, 84, "Input",ExpressionUUID->"0d3d2a51-754c-4637-aeb9-f5acfef305a2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[233848, 5936, 334, 7, 45, "Output",ExpressionUUID->"5f3a74b3-7e92-4029-b13d-8c55f2fc893b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[234185, 5945, 285, 4, 41, "Output",ExpressionUUID->"2fbbadf9-c40d-44b9-a16b-b19f58269de6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[234473, 5951, 136149, 3226, 488, "Output",ExpressionUUID->"a2584f83-cd9f-4fe0-ad10-3f0ba1e50f62",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[370625, 9179, 1816, 47, 210, "Input",ExpressionUUID->"6b947354-12db-4296-8122-f98aae2132bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[372444, 9228, 8071, 227, 260, "Output",ExpressionUUID->"ccb1d945-e68c-4792-bb94-a1ec1918e1c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[380518, 9457, 1885, 48, 210, "Input",ExpressionUUID->"3adeee00-f185-40bc-8cf4-28e6f7827512",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[382406, 9507, 6803, 198, 254, "Output",ExpressionUUID->"564c8b76-cacc-41b1-a40f-957202dd5dac",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[389246, 9710, 262, 4, 55, "Section",ExpressionUUID->"e5343a8b-d0c5-461e-bb6c-3d06774794c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[389511, 9716, 1493, 33, 84, "Input",ExpressionUUID->"57e2feb8-c178-4263-893c-176d914bb7a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[391007, 9751, 400, 9, 41, "Output",ExpressionUUID->"2af55605-4fa7-4b44-9695-291d682d1173",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[391410, 9762, 759, 20, 63, "Input",ExpressionUUID->"094f728a-6b0b-4669-a5f2-a03f7cd634d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[392172, 9784, 660, 17, 45, "Output",ExpressionUUID->"c21f75c2-e23d-4792-9b9a-6f4bf9e7a6f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[392835, 9803, 645, 16, 45, "Output",ExpressionUUID->"61e5d852-edf1-42a4-8a26-bf37e7e3289f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[393483, 9821, 2065, 62, 128, "Input",ExpressionUUID->"09dd7f22-2530-44ba-9685-b05cabec2b6f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[395551, 9885, 858, 25, 46, "Output",ExpressionUUID->"b867fbda-71e0-455c-807d-35d6d085cff0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[396412, 9912, 829, 23, 47, "Output",ExpressionUUID->"fa9b818e-5f2e-49d0-9106-a1be4e2ecbfb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[397244, 9937, 991, 28, 47, "Output",ExpressionUUID->"d9d68e43-c8fd-4e6f-9a49-91415a92b44a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[398238, 9967, 1373, 38, 107, "Input",ExpressionUUID->"a4210fb0-b4a8-4d22-a28f-889ab0bf6b6f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[399614, 10007, 1260, 36, 47, "Output",ExpressionUUID->"172cd9f7-32fa-4dad-bf0b-e5b9fbbb2522",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[400877, 10045, 1769, 45, 178, "Input",ExpressionUUID->"40f90b12-8127-44d8-9e79-fc9ab71be21f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[402649, 10092, 1560, 43, 47, "Output",ExpressionUUID->"c56ec05f-2f14-4791-9b07-41b3fccb0b0b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[404212, 10137, 396, 9, 41, "Input",ExpressionUUID->"332373df-7e90-4289-b62f-cf14205d97db",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[404611, 10148, 3126, 87, 182, "Output",ExpressionUUID->"6b763f26-451d-4e1e-9910-0563dca2ca13",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[407774, 10240, 258, 4, 55, "Section",ExpressionUUID->"6c3183e2-455e-4fc5-86ae-28a22f62f29c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[408035, 10246, 2548, 64, 257, "Input",ExpressionUUID->"6650310e-6fc7-4e2b-b0d9-0a6d24f9aa7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[410586, 10312, 2033, 59, 165, "Output",ExpressionUUID->"e092a1bf-51b3-4733-b57b-bfd20b0ef133",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[412622, 10373, 768, 19, 84, "Input",ExpressionUUID->"e208aa8f-a9c5-496d-aa51-861fa90aa0f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[413393, 10394, 450, 10, 45, "Output",ExpressionUUID->"e39de029-7818-4295-96d1-8367211d7489",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[413846, 10406, 577, 16, 63, "Input",ExpressionUUID->"ebb36f57-b61b-4d57-9d96-f9b37c988b6b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[414426, 10424, 476, 10, 45, "Output",ExpressionUUID->"a45ab1bb-50cc-4149-9df8-db68cf60f71c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[414905, 10436, 2009, 58, 165, "Output",ExpressionUUID->"675d4656-1670-4a16-9233-79f59ada5936",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[416951, 10499, 407, 9, 93, "Section",ExpressionUUID->"f7c355af-57fe-4f39-b84a-4dccd702bc65",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[417361, 10510, 382, 9, 41, "Input",ExpressionUUID->"39cf3ea5-db0d-4df5-bf4a-aee9e2b70a13",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[417746, 10521, 1224, 35, 49, "Output",ExpressionUUID->"cd823748-a07d-4526-bd22-2e2ec2e39541",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[418973, 10558, 747, 20, 41, "Input",ExpressionUUID->"1e7b09d1-3356-4c40-ab5b-87b1dd1357d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[419723, 10580, 725, 14, 45, "Output",ExpressionUUID->"08bc2a28-8584-4309-a76f-1512382068dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[420451, 10596, 337, 8, 41, "Input",ExpressionUUID->"875983ac-7dcf-4504-81e5-c054fc080e98",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[420791, 10606, 2004, 57, 84, "Output",ExpressionUUID->"3f92c856-fef0-4ba8-b397-524ec6be2f18",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[422798, 10665, 1279, 31, 107, "Input",ExpressionUUID->"fd8d07c2-bb39-4507-8989-b939b395fc89",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[424080, 10698, 1811, 53, 78, "Output",ExpressionUUID->"9dfb4377-c4dd-4945-b172-c02b93700b21",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[425894, 10753, 662, 16, 105, "Input",ExpressionUUID->"d8e3f87b-7e06-4504-8571-4be5997f9b38",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[426559, 10771, 1767, 52, 78, "Output",ExpressionUUID->"32ca929d-ffd5-4d5b-b808-39998a44711a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[428363, 10828, 272, 4, 55, "Section",ExpressionUUID->"cc380a1c-fe40-47e8-a7bd-81f05bb5a52e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[428638, 10834, 942, 22, 84, "Input",ExpressionUUID->"d14292e4-cabe-4596-861c-fefd320fde66",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[429583, 10858, 2031, 53, 47, "Output",ExpressionUUID->"b5bfdd3f-9249-4d67-a1f5-ec650bdd4062",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[431617, 10913, 420, 9, 41, "Input",ExpressionUUID->"f87a93d4-5553-4cc1-8427-a976f3dc4340",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[432040, 10924, 4550, 125, 182, "Output",ExpressionUUID->"1b574467-5da5-4209-9033-f17abd362112",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[436593, 11051, 649, 17, 84, "Input",ExpressionUUID->"4e850b49-fe21-47fe-9617-a0ed6be93bbd",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[437245, 11070, 302, 7, 45, "Output",ExpressionUUID->"5ff3412b-077c-43df-b92a-970f775befa0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[437550, 11079, 265, 4, 41, "Output",ExpressionUUID->"ce21e38e-81ef-4b8d-9570-11374f183313",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[437818, 11085, 9264, 257, 218, "Output",ExpressionUUID->"58b452e1-ed7b-4a8d-9baf-fc034cbd2303",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[447085, 11344, 954, 21, 105, "Input",ExpressionUUID->"479ddf14-2434-427d-839d-30e30094afdf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[448042, 11367, 13722, 378, 478, "Output",ExpressionUUID->"d4be9ba0-8cae-4fb7-8546-f9c888856b01",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[461767, 11747, 1522, 37, 107, "Input",ExpressionUUID->"de482de4-4b09-4ec2-aab9-4981c607c5d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[463292, 11786, 1852, 53, 80, "Output",ExpressionUUID->"60c95dca-9190-4621-85d7-bd474afaea39",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[465147, 11841, 980, 22, 105, "Input",ExpressionUUID->"1d80d9e3-c14f-4a26-98f4-64364151244f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[466130, 11865, 1548, 49, 80, "Output",ExpressionUUID->"15b17bf0-51f8-4882-8af7-89f72a2fd273",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[467681, 11916, 400, 9, 41, "Input",ExpressionUUID->"1cab42c5-3ef0-4856-a40b-cdaf06f49bcf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[468084, 11927, 1738, 52, 80, "Output",ExpressionUUID->"dfd05cd3-3d47-40fb-8277-6122e80a5607",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[469825, 11981, 1723, 43, 107, "Input",ExpressionUUID->"669ee697-9bf0-44d5-84ed-94f4ab291d3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[471551, 12026, 3025, 90, 81, "Output",ExpressionUUID->"65235054-a570-414c-b0f5-049de4b5793d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[474579, 12118, 1427, 37, 107, "Input",ExpressionUUID->"e8c02e3d-d52e-40a5-857c-9133c6b78abe",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[476009, 12157, 1510, 46, 79, "Output",ExpressionUUID->"96fa9b84-41f3-4166-841f-4c90c3c87286",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[477522, 12205, 1377, 36, 107, "Input",ExpressionUUID->"0e71ba63-5176-4987-a4a1-c15193d53a1e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[478902, 12243, 1479, 46, 79, "Output",ExpressionUUID->"3da993d0-a30e-4ebc-91e7-7b03fde832bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]]
}
]
*)