Applications of Arnowitt Deser Misner quantization of some metrics with at least two parameter isometry groups by Lapedes - Colliding Plane Waves Khan Penrose Szekeres.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[    523712,      13076]
NotebookOptionsPosition[    506929,      12832]
NotebookOutlinePosition[    507395,      12849]
CellTagsIndexPosition[    507352,      12846]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Applications of Arnowitt Deser Misner quantization of some metrics with at \
least two parameter isometry groups by Lapedes - Colliding Plane Waves Khan \
Penrose Szekeres\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.827991128705386*^9, 
   3.827991132320956*^9}, {3.827992663416297*^9, 3.8279926679446497`*^9}, 
   3.828002571005631*^9, {3.828435487218956*^9, 3.828435494634301*^9}, {
   3.828455314498684*^9, 3.828455317626096*^9}, {3.82845929819172*^9, 
   3.828459314167211*^9}, {3.82846914237554*^9, 3.828469146910945*^9}, {
   3.828471572443717*^9, 3.8284715890511923`*^9}, {3.828529438373527*^9, 
   3.8285294469068527`*^9}, {3.828533473276997*^9, 3.8285334845643597`*^9}, {
   3.828605529086955*^9, 3.828605544687042*^9}, {3.8286904376033077`*^9, 
   3.828690443890785*^9}, {3.8287894528609467`*^9, 3.828789480877036*^9}, {
   3.828799096740452*^9, 3.828799108533012*^9}, {3.828814117044565*^9, 
   3.8288141187243*^9}, {3.828858846895076*^9, 3.82885884811847*^9}, {
   3.8302575971329727`*^9, 3.830257618980235*^9}, {3.830272080479986*^9, 
   3.830272104782937*^9}, {3.830274402129635*^9, 3.830274428320294*^9}, {
   3.830274779265142*^9, 3.830274785584303*^9}, {3.8302768462396393`*^9, 
   3.830276861967502*^9}, 3.855878698163829*^9},
 TextAlignment->Center,ExpressionUUID->"a27cf56e-784c-45c3-8e28-4612d3386681"],

Cell["\<\
Geoff Cope
University of Utah
May 17th, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.828435825642728*^9, 3.828435825914054*^9}, {
   3.828529454210647*^9, 3.8285294546106777`*^9}, {3.828605611022828*^9, 
   3.828605614494376*^9}, {3.828789446589561*^9, 3.828789449005583*^9}, {
   3.8288141882697697`*^9, 3.828814193485182*^9}, {3.828858875623746*^9, 
   3.828858879278551*^9}, {3.830265542459395*^9, 3.8302655479803743`*^9}},
 TextAlignment->Center,ExpressionUUID->"f4985e8d-0d86-4fe0-aa93-70af4f21f477"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"ac1db5f9-8519-4986-9e7d-\
1e422b8382d2"],

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[4]:=",ExpressionUUID->"f087dcf1-3e70-4de9-9431-892fd4163280"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.827991252970625*^9, 3.827992769438249*^9, 
   3.8284359064920053`*^9, 3.828455531917368*^9, 3.828459339591674*^9, 
   3.828469241787932*^9, 3.828471664239974*^9, 3.8284721155283823`*^9, 
   3.828530571609256*^9, 3.828533466311865*^9, 3.828605666606776*^9, 
   3.828611773790597*^9, 3.82861654226705*^9, 3.828690472516346*^9, 
   3.828693683718005*^9, 3.828696145626916*^9, 3.828697685976324*^9, 
   3.828789577672448*^9, 3.828799204299177*^9, 3.828803846851424*^9, 
   3.828806278746703*^9, 3.828814185433984*^9, 3.8288338117285624`*^9, 
   3.8288341327645693`*^9, 3.828858949744699*^9, 3.828859274913085*^9, 
   3.8288629564377623`*^9, 3.8288631705507107`*^9, 3.828864762563582*^9, 
   3.8288658476756067`*^9, 3.828867772240056*^9, 3.830257921374703*^9, 
   3.830272132074224*^9, 3.830274874502583*^9, 3.830277038068775*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"9bf47d9c-3208-4678-ae67-b27d52bc860f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Paper", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, {3.828691206350932*^9, 
   3.828691209871169*^9}, {3.828703099384598*^9, 3.828703101328167*^9}, {
   3.843084628129343*^9, 
   3.8430846297669373`*^9}},ExpressionUUID->"903d1000-54ba-468a-85cd-\
e02d57666e65"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Applications of Arnowitt Deser Misner quantization of some metrics \
with at least two parameter isometry groups by Lapedes\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.15.946\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.84308453958206*^9, 3.843084560279172*^9}, 
   3.8430846355351057`*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"96d902c7-632f-4fa4-84f9-69379a5f27cf"],

Cell[BoxData[
 TemplateBox[{
  "\"Applications of Arnowitt Deser Misner quantization of some metrics with \
at least two parameter isometry groups by Lapedes\"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.15.946"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8286912020313883`*^9, 3.828691215854142*^9}, 
   3.828693683857308*^9, 3.8286961457682734`*^9, 3.828697686881715*^9, 
   3.828789577797557*^9, 3.828799204434359*^9, 3.828803847046526*^9, 
   3.828806278922769*^9, 3.828814185556189*^9, 3.8288338118573027`*^9, 
   3.828834132828142*^9, 3.8288589497839003`*^9, 3.828859275184395*^9, 
   3.82886295672435*^9, 3.8288631707178087`*^9, 3.828864762682382*^9, 
   3.828865847696671*^9, 3.828867772259657*^9, 3.8302579213880167`*^9, 
   3.830272132190464*^9, 3.830274874554844*^9, 3.8302770381588078`*^9, {
   3.843084581251109*^9, 3.843084635536005*^9}},
 CellLabel->"Out[76]=",ExpressionUUID->"0aa9f962-38fa-46ba-8cf6-69abc9520a20"],

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}, 
   3.8430845812552557`*^9, 3.843084635536326*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"11e335e2-d1d8-48c8-91eb-25d4ca2b4ba9"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823423099506456*^9, 3.823432318651514*^9, 
   3.823435952067443*^9, 3.8234364867187634`*^9, 3.827953519196068*^9, 
   3.8279912531398478`*^9, 3.82799276981394*^9, 3.828435906604476*^9, 
   3.8284555319651403`*^9, 3.828459339728232*^9, 3.828469241841896*^9, 
   3.828471664397444*^9, 3.828472115564139*^9, 3.8285305717465467`*^9, 
   3.828533467524692*^9, 3.8286056666461067`*^9, 3.828611773832769*^9, 
   3.828616542410379*^9, 3.8286904727410803`*^9, 3.8286936838711443`*^9, 
   3.82869614578473*^9, 3.828697686909205*^9, 3.828789578026733*^9, 
   3.828799204647397*^9, 3.828803847272649*^9, 3.828806279147031*^9, 
   3.828814185773818*^9, 3.8288338121009283`*^9, 3.828834133036652*^9, 
   3.828858949902772*^9, 3.828859275450337*^9, 3.8288629570287933`*^9, 
   3.8288631709441347`*^9, 3.828864762809704*^9, 3.828865847932207*^9, 
   3.828867772487808*^9, 3.8302579215563307`*^9, 3.830272132396597*^9, 
   3.830274874768466*^9, 3.830277038388665*^9, 3.843084581255474*^9, 
   3.843084635536742*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"638de27e-bf49-4c04-a9e1-882cfe47a622"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.828806689104821*^9},ExpressionUUID->"35b1327b-aacd-461c-b02e-\
a8795e42ffba"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.828806689105043*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"0297f25e-ebdf-4234-9de2-3952a470cbe7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.828789578115527*^9, 3.828799204762722*^9, 
   3.8288038473503647`*^9, 3.828806280080041*^9, 3.828806689105138*^9, 
   3.8288141858769903`*^9, 3.828833812193956*^9, 3.828834133179943*^9, 
   3.828858950064399*^9, 3.828859275539399*^9, 3.828862957119445*^9, 
   3.828863171652452*^9, 3.828864762870928*^9, 3.828865847990973*^9, 
   3.828867772550511*^9, 3.830257921690177*^9, 3.830272132505918*^9, 
   3.83027487489435*^9, 3.830277038493904*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"60521059-8098-4b3d-92d4-9c6a4806cd48"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"34 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "34 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.828469241959221*^9, 3.8284716644571867`*^9, 
   3.828472115722972*^9, 3.828530571883527*^9, 3.828533467717411*^9, 
   3.828605666780765*^9, 3.828611773924569*^9, 3.82861654251404*^9, 
   3.828690472852253*^9, 3.828693683937971*^9, 3.8286961458514643`*^9, 
   3.828697686995554*^9, 3.828789578115527*^9, 3.828799204762722*^9, 
   3.8288038473503647`*^9, 3.828806280080041*^9, 3.828806689105138*^9, 
   3.8288141858769903`*^9, 3.828833812193956*^9, 3.828834133179943*^9, 
   3.828858950064399*^9, 3.828859275539399*^9, 3.828862957119445*^9, 
   3.828863171652452*^9, 3.828864762870928*^9, 3.828865847990973*^9, 
   3.828867772550511*^9, 3.830257921690177*^9, 3.830272132505918*^9, 
   3.83027487489435*^9, 3.8302770384995747`*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"9ffeb8de-fb3c-4d46-87da-04e16cdac84e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827991253218878*^9, 
   3.827992769998845*^9, 3.8284359066702137`*^9, 3.828455532087866*^9, 
   3.82845933980285*^9, 3.828469241964273*^9, 3.828471664461882*^9, 
   3.828472115727516*^9, 3.8285305718886538`*^9, 3.82853346772556*^9, 
   3.8286056667871323`*^9, 3.828611773929594*^9, 3.828616542519825*^9, 
   3.828690472858699*^9, 3.828693683944024*^9, 3.82869614585636*^9, 
   3.828697687001523*^9, 3.8287895781234426`*^9, 3.828799204770609*^9, 
   3.828803847356839*^9, 3.828806280086404*^9, 3.828806689105328*^9, 
   3.828814185882605*^9, 3.828833812202352*^9, 3.828834133188683*^9, 
   3.828858950068405*^9, 3.828859275549589*^9, 3.828862957127707*^9, 
   3.828863171659013*^9, 3.8288647628760147`*^9, 3.82886584799824*^9, 
   3.8288677725571413`*^9, 3.830257921697464*^9, 3.8302721325123167`*^9, 
   3.830274874902814*^9, 3.830277038500955*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"c9e26f92-d623-412d-bce8-eb6bb9d0bae9"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.828806689105419*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"e84ec4d4-13f7-48e7-8eab-f0fd19ac7dbb"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8287882026748323`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"c44916b0-26fe-460a-a6d8-f6894fdba4cb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"3ac225b3-0d87-49c3-8907-\
85fbb576be55"],

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

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

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"M", " ", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "0"}], " ", ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Mass", " ", "of", " ", "Schwarzschild", " ", "is", " ", "constant"}], " ",
    "*)"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "use", " ", "M", " ", "for", " ", "mass", " ", "and", " ", "m", 
    " ", "for", " ", "null", " ", "vector"}], " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82869475118476*^9, 3.828694761903348*^9}, 
   3.828695041652215*^9, {3.828697403799129*^9, 3.8286974141262493`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"c3375476-a89c-4aec-86fc-1dfa1a909bf8"]
}, 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->"1070e000-6e63-4f01-8114-\
17ec089ca9f2"],

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[8]:=",ExpressionUUID->"38a83e8a-7587-4ab5-a5a9-1041aac66acf"],

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[10]:=",ExpressionUUID->"0e890ed1-f643-47ff-82bd-9e7d4308f653"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 17 Converted To Null Coordinates", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830272348974118*^9, 3.830272361791353*^9}, {
  3.830274809153145*^9, 3.83027481033611*^9}, {3.830276702856172*^9, 
  3.830276707519495*^9}, {3.830276832672366*^9, 
  3.830276834591703*^9}},ExpressionUUID->"7c26aa97-dcf7-40e2-84d8-\
2bac30bbc7fb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq17", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", "M"}], "]"}], "  ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["dt", "2"]}], "+", 
       SuperscriptBox["dz", "2"]}], ")"}]}], "  ", "-", " ", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"-", "U"}], "]"}], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Exp", "[", "V", "]"}], " ", 
        RowBox[{"Cosh", "[", "W", "]"}], " ", 
        SuperscriptBox["dx", "2"]}], "-", " ", 
       RowBox[{"2", " ", 
        RowBox[{"Sinh", "[", "W", "]"}], " ", "dx", " ", "dy"}], " ", "+", 
       " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", "V"}], "]"}], " ", 
        RowBox[{"Cosh", "[", "W", "]"}], " ", 
        SuperscriptBox["dy", "2"]}]}], ")"}]}]}], "  ", "/.", " ", 
   RowBox[{"W", "\[Rule]", " ", "0", " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830272140360881*^9, 3.8302721855601273`*^9}, {
   3.830272319553565*^9, 3.830272323079133*^9}, 3.830272354559792*^9, {
   3.830274813801265*^9, 3.830274853904512*^9}, {3.830276958802722*^9, 
   3.830277010734572*^9}, {3.830277049094015*^9, 3.830277049500403*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"0d8de47c-4dd4-4b98-af21-53b724522aa5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "M"}]]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "U"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["dy", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "V"}]]}], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", "V"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8302721864978*^9, {3.830272354559991*^9, 3.830272364833167*^9}, 
   3.830274884889698*^9, {3.83027701635495*^9, 3.830277049968013*^9}},
 CellLabel->"Out[16]=",ExpressionUUID->"6be6ff58-d483-4f02-8983-60622f1dda8e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq17", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ", "]"}], 
  "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8302721883674383`*^9, 3.8302722055513277`*^9}, {
  3.8302723251766148`*^9, 3.830272354560111*^9}, {3.830274856673596*^9, 
  3.830274862696666*^9}, {3.830277025557267*^9, 3.830277026427753*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"c60be082-0c02-4adc-93dc-84854631e44e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "M"}]]}], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "U"}], "+", "V"}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "U"}], "-", "V"}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "M"}]]}]}
    },
    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.83027219660537*^9, 3.830272205958645*^9}, {
  3.830272354560261*^9, 3.830272364884735*^9}, {3.8302748644161787`*^9, 
  3.830274886760722*^9}, {3.8302770294269*^9, 3.830277051874097*^9}},
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"2331b793-1e4f-4e79-8dbc-\
4dcf6bf1096f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17c", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq17c", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"M", "\[Rule]", " ", 
      RowBox[{"M", "[", 
       RowBox[{"t", ",", "z"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"U", "\[Rule]", " ", 
      RowBox[{"U", "[", 
       RowBox[{"t", ",", "z"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"V", "\[Rule]", " ", 
      RowBox[{"V", "[", 
       RowBox[{"t", ",", "z"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq17c", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830272213511426*^9, 3.8302722354635973`*^9}, {
  3.8302723274083033`*^9, 3.8302723545603952`*^9}, {3.8302748905374737`*^9, 
  3.830274912680502*^9}, {3.830275420321229*^9, 3.8302754246483517`*^9}, {
  3.830277056668955*^9, 3.830277100995984*^9}, {3.83027714039742*^9, 
  3.8302771409157677`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"7d6cff87-1a8e-4113-b948-c813c5a6a087"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"M", "\[Rule]", 
       RowBox[{"M", "[", 
        RowBox[{"t", ",", "z"}], "]"}]}]},
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{"U", "[", 
        RowBox[{"t", ",", "z"}], "]"}]}]},
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{"V", "[", 
        RowBox[{"t", ",", "z"}], "]"}]}]}
    },
    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.83027223573248*^9, {3.8302723545605288`*^9, 3.830272364894438*^9}, 
   3.8302749133853273`*^9, {3.830275408842944*^9, 3.8302754291691713`*^9}, 
   3.830277104245329*^9, {3.8302771370272703`*^9, 3.830277141390671*^9}},
 CellLabel->
  "Out[29]//TableForm=",ExpressionUUID->"74042467-3d6b-4a6b-ab6c-\
58ff25b968a0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric17a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric17a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq17", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ", "]"}], 
    "  ", "/.", " ", "eq17c"}]}], "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric17a", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830272243152095*^9, 3.8302722632469788`*^9}, {
  3.830272336776403*^9, 3.8302723545606623`*^9}, {3.830274916330188*^9, 
  3.830274928048326*^9}, {3.830275088479566*^9, 3.830275090438498*^9}, {
  3.83027542664145*^9, 3.8302754268163567`*^9}, {3.830277108724655*^9, 
  3.830277118755773*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"07793849-e12e-43e5-8ff6-7f2f3f199ee1"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"M", "(", 
           RowBox[{"t", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"V", "(", 
           RowBox[{"t", ",", "z"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"t", ",", "z"}], ")"}]}]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"U", "(", 
            RowBox[{"t", ",", "z"}], ")"}]}], "-", 
          RowBox[{"V", "(", 
           RowBox[{"t", ",", "z"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"M", "(", 
           RowBox[{"t", ",", "z"}], ")"}]}]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830272245912541*^9, 3.830272263657709*^9}, {
   3.830272354560767*^9, 3.8302723649256077`*^9}, 3.830274928805861*^9, 
   3.830275092211471*^9, 3.8302754307859497`*^9, {3.830277119678895*^9, 
   3.830277144570539*^9}},
 CellLabel->
  "Out[32]//TraditionalForm=",ExpressionUUID->"021ba601-8330-449b-9f65-\
853ff8f246b6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nullCoordinates", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nullCoordinates", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"v", " ", "\[Equal]", " ", 
      RowBox[{"t", "+", "z"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"u", " ", "\[Equal]", " ", 
      RowBox[{"t", "-", "z"}]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nullCoordinates", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830275100983629*^9, 3.83027514431877*^9}, {
   3.8302752754526873`*^9, 3.830275287736349*^9}, 3.830276699139502*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"09f43758-b12f-45c9-ac97-a0603461b478"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"v", "\[Equal]", 
       RowBox[{"t", "+", "z"}]}]},
     {
      RowBox[{"u", "\[Equal]", 
       RowBox[{"t", "-", "z"}]}]}
    },
    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.830275288462213*^9, 3.830275433324368*^9, 
  3.830276699139884*^9, 3.830277156750373*^9},
 CellLabel->
  "Out[35]//TableForm=",ExpressionUUID->"040f5129-97c5-43c4-8551-\
b5aac67a2fe5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "nullCoordinates", "  ", "]"}], " ", "/.", " ", 
   "dtReplace"}], "  ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8302752907461443`*^9, 3.830275306632037*^9}, 
   3.830276699140039*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"d2378eaa-44b6-48a2-b289-294166b25266"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dv", "\[Equal]", 
       RowBox[{"dt", "+", "dz"}]}]},
     {
      RowBox[{"du", "\[Equal]", 
       RowBox[{"dt", "-", "dz"}]}]}
    },
    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.830275300288872*^9, 3.830275307669941*^9}, 
   3.830275435683436*^9, 3.830276699140296*^9, 3.830277158508163*^9},
 CellLabel->
  "Out[36]//TableForm=",ExpressionUUID->"4bb1f32a-520d-4f11-9421-\
b6a8d7b9e405"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "nullCoordinates", "  ", "]"}], " ", "/.", " ",
        "dtReplace"}], " ", ")"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dz"}], "}"}]}], " ", "]"}], "]"}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830275332618278*^9, 3.830275353760034*^9}, 
   3.830276699140437*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"4a028ca3-e054-43be-9ff9-cfeaad1ebb05"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dt", "\[Rule]", 
       FractionBox[
        RowBox[{"du", "+", "dv"}], "2"]}]},
     {
      RowBox[{"dz", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "du"}], "+", "dv"}], ")"}]}]}]}
    },
    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.830275345327373*^9, 3.8302753544012127`*^9}, 
   3.8302766991406803`*^9, 3.8302771608630133`*^9},
 CellLabel->
  "Out[37]//TableForm=",ExpressionUUID->"4a659820-9818-4cd6-8873-\
d8c3cf8a2fb2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq17a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq17", "  ", "/.", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Dt", "[", " ", "nullCoordinates", "  ", "]"}], " ", "/.", 
          " ", "dtReplace"}], " ", ")"}], " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"dt", ",", "dz"}], "}"}]}], " ", "]"}], "]"}]}], "  ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830275358713149*^9, 3.830275387704502*^9}, 
   3.830276699140833*^9, {3.830277171180562*^9, 3.83027718782974*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"e2758fe1-806b-45e5-a5e3-776f663c973d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "M"}]]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "U"}], "-", "V"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dy", "2"], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "V"}]]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830275365495701*^9, 3.830275389399581*^9}, 
   3.830275439244946*^9, 3.830276699141035*^9, {3.830277178787704*^9, 
   3.830277188508027*^9}},
 CellLabel->"Out[42]=",ExpressionUUID->"823fe3cb-9baa-4e74-a734-d364da3f6bcf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq17a", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], " ", "]"}], 
  "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830275441913739*^9, 3.830275453815962*^9}, 
   3.830276699141151*^9, {3.830277182557337*^9, 3.83027718289956*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"5998c3ef-adec-4a02-87fb-5dc5feca0fb3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "M"}]]}], "0", "0"},
     {
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "M"}]]}], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "U"}], "+", "V"}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.830275449726705*^9, 3.830275454599039*^9}, 
   3.8302766991413403`*^9, {3.830277183445901*^9, 3.83027719015974*^9}},
 CellLabel->
  "Out[43]//MatrixForm=",ExpressionUUID->"0b33a552-ba18-479d-acc9-\
f21419342b21"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq17b", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"M", "\[Rule]", " ", 
      RowBox[{"M", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"U", "\[Rule]", " ", 
      RowBox[{"U", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"V", "\[Rule]", " ", 
      RowBox[{"V", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8302754578180113`*^9, 3.830275479936208*^9}, 
   3.830276699141567*^9, {3.830277194852725*^9, 3.8302772216113873`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"c7f2d2f8-482e-44be-bb35-fd565639c1de"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric17", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric17", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq17a", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], " ", "]"}], 
    "   ", "/.", " ", "eq17b"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric17", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8302754981125593`*^9, 3.8302755196959143`*^9}, 
   3.830276699141734*^9, {3.830277226700592*^9, 3.83027723708374*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"432d67d6-345a-477b-971d-9f4cb59a59b1"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0"},
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], "-", 
          RowBox[{"V", "(", 
           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", 10004.},
 CellChangeTimes->{{3.830275500679151*^9, 3.830275520248846*^9}, 
   3.830276699142061*^9, 3.830277238300089*^9},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"770e8c90-9ebf-4045-b7e3-\
2e5eae1c780e"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Calculation of Tensors Associated With Metric 17 In Null Coordinates\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.830272504703133*^9, 3.8302725419357557`*^9}, {
  3.830276712215684*^9, 3.830276715479909*^9}, {3.830277243228018*^9, 
  3.830277243675355*^9}},ExpressionUUID->"d74ba4e5-8bbc-4fc4-95b0-\
9d8239ef84d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.819639535112979*^9, 3.819639560098693*^9}, 
   3.821109141509594*^9, 3.821109340369235*^9, 3.821110229350811*^9, {
   3.824511755669795*^9, 3.824511758917903*^9}, {3.8302725123222637`*^9, 
   3.830272541935935*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"a9592030-c4ca-40be-ad93-40d028d93f14"],

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.830272454671814*^9, 
   3.830272461249446*^9}, {3.830272512322772*^9, 3.830272541936379*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"65473348-d082-4493-88e2-72553677f148"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "4.76", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric17\>\"", ",", " ", "metric17", ",", " ", "\"\<KhanPenrose\>\"",
      ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(kp\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "y", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8278816087737007`*^9, 
   3.8278816137482233`*^9}, {3.830272428487422*^9, 3.830272450717841*^9}, {
   3.830272482766519*^9, 3.8302725419365377`*^9}, {3.830274938161613*^9, 
   3.830274983416881*^9}, {3.83027552372138*^9, 3.830275525264522*^9}, {
   3.8302772491734056`*^9, 
   3.8302772857242928`*^9}},ExpressionUUID->"9af76888-b5b0-4fcd-acd7-\
54c9f5af9d19"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.762453`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775263226*^9, 3.8209334477859497`*^9, 3.820937492203586*^9, 
   3.821110229351104*^9, 3.824381620813415*^9, 3.8243818500635223`*^9, 
   3.8243823106417093`*^9, 3.824511842095233*^9, 3.8245141677564774`*^9, 
   3.827878634964815*^9, 3.827881401184404*^9, 3.8279088610540543`*^9, 
   3.827912744283607*^9, 3.8302724725680103`*^9, {3.8302725123230343`*^9, 
   3.83027254193668*^9}, 3.8302749759970617`*^9, 3.8302755326107187`*^9, 
   3.8302772799225607`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"a607d1ba-d08d-4014-adbc-219a8e9bf09b"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203697*^9, 3.8211102293511972`*^9, {3.8302725123231287`*^9, 
   3.830272541936843*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"12043283-c7a5-4e01-851e-6c212d747de1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "kp"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775365534*^9, 3.820933447849365*^9, 3.8209374922039557`*^9, 
   3.821110229351309*^9, 3.824381620902643*^9, 3.824381850166397*^9, 
   3.824382314366207*^9, 3.8245118421618633`*^9, 3.824514167829878*^9, 
   3.8278786350256853`*^9, 3.8278814012293863`*^9, 3.8279088611347723`*^9, 
   3.827912744356597*^9, {3.8302724895415773`*^9, 3.830272541936966*^9}, 
   3.8302749760823593`*^9, 3.830275532650579*^9, 3.830277280045392*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"05fcc00f-1b23-4e89-a99d-7a5b53ace356"],

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.830272541937142*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"21e3639c-a44c-4ca5-8c49-515d99c2a415"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "kp"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.830272499528089*^9, 3.83027254193727*^9, 3.8302749760931*^9, 
  3.8302755326618137`*^9, 3.8302772800619783`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"1c1f9552-3db5-42e8-9cb3-e7a9019add6d"],

Cell[BoxData["\<\"KhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.830272499528089*^9, 3.83027254193727*^9, 3.8302749760931*^9, 
  3.8302755326618137`*^9, 3.8302772800667562`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"f8a20bcd-0edc-41ad-8c19-be6c9532351a"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0"},
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0", "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], "-", 
          RowBox[{"V", "(", 
           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.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.830272499528089*^9, 3.83027254193727*^9, 3.8302749760931*^9, 
  3.8302755326618137`*^9, 3.830277280069201*^9},
 CellLabel->
  "Out[56]//TraditionalForm=",ExpressionUUID->"166f2ebb-869a-4c8b-b5a6-\
57acc5c42dce"],

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.830272541937647*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"a6c3b651-1a9a-4870-a2d2-cf018b29313a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.830272499576475*^9, 
   3.8302725419377413`*^9, 3.830274976134181*^9, 3.830275532691152*^9, 
   3.830277280107699*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"249ae89d-5f8f-4fd4-946e-0bcbfe8278f0"],

Cell[BoxData["\<\"ChristoffelSymbolKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.830272499576475*^9, 
   3.8302725419377413`*^9, 3.830274976134181*^9, 3.830275532691152*^9, 
   3.830277280110765*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"4c7d13ca-5e61-4080-bd2a-7b1268f91e7e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], "+", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], "+", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None]}], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.830272499576475*^9, 
   3.8302725419377413`*^9, 3.830274976134181*^9, 3.830275532691152*^9, 
   3.830277280155241*^9},
 CellLabel->
  "Out[59]//TraditionalForm=",ExpressionUUID->"3bd74e3f-5e41-4891-9863-\
7d87a1f5f183"],

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.8302725419380083`*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"bd7505ce-707f-4782-a680-fdebdd705679"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.830272499666822*^9, 3.830272541938096*^9, 3.83027497618988*^9, 
  3.830275532737507*^9, 3.830277280169087*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"12967ddb-29bc-4e66-92d4-e50eab70a14e"],

Cell[BoxData["\<\"RiemannTensorKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.830272499666822*^9, 3.830272541938096*^9, 3.83027497618988*^9, 
  3.830275532737507*^9, 3.830277280176784*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"5f70dce2-70b8-4747-af92-c4bbabbbb037"],

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[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  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[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  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[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"M", "(", 
               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[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  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[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "v"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None]}], ")"}]}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["v", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.830272499666822*^9, 3.830272541938096*^9, 3.83027497618988*^9, 
  3.830275532737507*^9, 3.830277280886291*^9},
 CellLabel->
  "Out[62]//TraditionalForm=",ExpressionUUID->"3815b39c-152c-45c7-ad43-\
6ba80424ff8c"],

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.830272541938389*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"2c69b118-f87d-4852-9815-c179d8ff8553"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.830272500288843*^9, 3.830272541938466*^9, 3.830274976655944*^9, 
  3.8302755330773287`*^9, 3.830277280915432*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"ba901681-0114-4d4e-bd92-ac00246a7fdb"],

Cell[BoxData["\<\"RicciTensorKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.830272500288843*^9, 3.830272541938466*^9, 3.830274976655944*^9, 
  3.8302755330773287`*^9, 3.830277280920928*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"28c9777a-102a-4f45-8aed-d21a98fbfc7c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}]}], 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}]}], 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "+", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.830272500288843*^9, 3.830272541938466*^9, 3.830274976655944*^9, 
  3.8302755330773287`*^9, 3.830277280986041*^9},
 CellLabel->
  "Out[65]//TraditionalForm=",ExpressionUUID->"e6b55ab3-bc92-4923-8d17-\
62e1d2ecf708"],

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.830272541939227*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"c9b21a64-c2d2-4515-b73e-ac3dc52b55f4"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.830272500374714*^9, 3.830272541939332*^9, 3.8302749767372503`*^9, 
  3.830275533130373*^9, 3.830277281039618*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"7e050be0-ad77-4855-8b15-119ad70ffd86"],

Cell[BoxData["\<\"RicciScalarKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.830272500374714*^9, 3.830272541939332*^9, 3.8302749767372503`*^9, 
  3.830275533130373*^9, 3.830277281045453*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"33026168-c540-4bff-9318-6c3c146d434e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"M", "(", 
      RowBox[{"u", ",", "v"}], ")"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"M", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "v"}]}],
           MultilineFunction->None], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}]}], ")"}]}]}], "+", 
      RowBox[{"3", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.830272500374714*^9, 3.830272541939332*^9, 3.8302749767372503`*^9, 
  3.830275533130373*^9, 3.8302772810488443`*^9},
 CellLabel->
  "Out[68]//TraditionalForm=",ExpressionUUID->"35e9a495-cfd3-4cac-893b-\
0773b8ca27e4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.827662880133422*^9, 
   3.827662883948599*^9}, {3.827881581825639*^9, 3.8278815881690893`*^9}, {
   3.830272541939625*^9, 3.830272558111624*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"83c3c7e6-50f8-4f84-9520-518a2f9153e7"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.830272558468858*^9, 3.830272571356236*^9}, 
   3.830274976779736*^9, 3.830275533158001*^9, 3.8302772810588512`*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"16161533-e75c-4f4e-80bd-e34dcde4265d"],

Cell[BoxData["\<\"KretschmannScalarKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.830272558468858*^9, 3.830272571356236*^9}, 
   3.830274976779736*^9, 3.830275533158001*^9, 3.8302772810644817`*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"c77289e9-5d71-4975-948f-773ffebc203c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"2", " ", 
      RowBox[{"M", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None]}], "-", 
             RowBox[{"3", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "v"}]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "v"}]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "v"}]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"M", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"M", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}],
                  MultilineFunction->None]}]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], ")"}]}],
          "+", 
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None], "-", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"M", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"M", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"M", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"4", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"2", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["v", "2"]}],
        MultilineFunction->None], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], ")"}], "2"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.830272558468858*^9, 3.830272571356236*^9}, 
   3.830274976779736*^9, 3.830275533158001*^9, 3.830277281179319*^9},
 CellLabel->
  "Out[71]//TraditionalForm=",ExpressionUUID->"8f9fc7a0-1d5f-47b2-9e5e-\
31468e81ba02"],

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.830272541939742*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"a3a06345-ab29-4877-9c45-56792a5f8675"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.830272500416404*^9, 
   3.830272541939826*^9, 3.830274976876212*^9, 3.830275533205916*^9, 
   3.830277281191759*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"aa82e279-b73b-4669-91c1-61c2f84210b7"],

Cell[BoxData["\<\"EinsteinTensorKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.830272500416404*^9, 
   3.830272541939826*^9, 3.830274976876212*^9, 3.830275533205916*^9, 
   3.8302772811973743`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"98aede2a-581c-4ea3-96c5-8b2c9ecc867c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}]}], 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], "0", "0"},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}], 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "+", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.830272500416404*^9, 
   3.830272541939826*^9, 3.830274976876212*^9, 3.830275533205916*^9, 
   3.830277281265951*^9},
 CellLabel->
  "Out[74]//TraditionalForm=",ExpressionUUID->"7c774fd8-fecc-43fa-a3f7-\
5a615de0ee42"],

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.830272541940085*^9},
 CellLabel->"In[75]:=",ExpressionUUID->"5ccab961-e87c-4a1c-a6c2-3b5516fb38fd"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.830272500502474*^9, 
   3.830272541940177*^9, 3.8302749769724607`*^9, 3.8302755332652607`*^9, 
   3.830277281279212*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"02081e61-0710-4934-91bc-231e80ce71bd"],

Cell[BoxData["\<\"WeylTensorKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.830272500502474*^9, 
   3.830272541940177*^9, 3.8302749769724607`*^9, 3.8302755332652607`*^9, 
   3.8302772812850227`*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"b28e1aa1-f18a-47d6-8461-02ba779b4e4b"],

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", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                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[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 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[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], "-", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"M", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["v", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"M", "(", 
               RowBox[{"u", ",", "v"}], ")"}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "v"}], ")"}]}], 
                RowBox[{"\[PartialD]", "v"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.830272500502474*^9, 
   3.830272541940177*^9, 3.8302749769724607`*^9, 3.8302755332652607`*^9, 
   3.830277281727557*^9},
 CellLabel->
  "Out[77]//TraditionalForm=",ExpressionUUID->"1076876e-865b-4563-81c7-\
ac54dd542c9b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, {
   3.8302725419405193`*^9, 3.830272548949272*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"75003b09-9ac3-4381-9122-1e665b89bb06"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8302725493565817`*^9, 3.830272571356564*^9}, 
   3.8302749772619762`*^9, 3.8302755334401093`*^9, 3.830277281751677*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"5c40ca28-60e8-4433-bf97-7ed53e178daa"],

Cell[BoxData["\<\"CottonTensorKhanPenrose\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8302725493565817`*^9, 3.830272571356564*^9}, 
   3.8302749772619762`*^9, 3.8302755334401093`*^9, 3.8302772817571983`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"5876183a-9d8a-41be-91f0-7af667f86187"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "6"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], 
              ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "6"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "6"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], 
              ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "6"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "+", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "v"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "6"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], 
              ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "6"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "6"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "v"}]}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], 
              ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "6"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"M", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}], "-", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"M", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "v"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "v"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"M", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"6", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["v", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "v"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "v"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["v", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "v"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "v"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "v"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
           {"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.8302725493565817`*^9, 3.830272571356564*^9}, 
   3.8302749772619762`*^9, 3.8302755334401093`*^9, 3.83027728238694*^9},
 CellLabel->
  "Out[80]//TraditionalForm=",ExpressionUUID->"f166c1d5-cba4-49d0-85ec-\
03b8b1403146"],

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.825431523906328*^9, 3.825431542481595*^9}, 
   3.825432499771943*^9, {3.827878572899869*^9, 3.827878576866337*^9}, 
   3.8278803788974257`*^9, {3.830272607063506*^9, 3.830272608600156*^9}, {
   3.830274995786599*^9, 3.8302749975720377`*^9}, {3.830275564792823*^9, 
   3.830275567624762*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"dc1127af-5cb3-49a6-8870-f9ab213a9f40"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "+", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.825431543441904*^9, 3.825432499772155*^9, 3.825435079884231*^9, 
   3.827837755628983*^9, 3.827841206934636*^9, 3.827868459070862*^9, 
   3.827878642314026*^9, 3.827880378897513*^9, 3.827881407844583*^9, 
   3.827908867795082*^9, 3.82791275197268*^9, {3.830272590911984*^9, 
   3.830272617353353*^9}, {3.830274977772534*^9, 3.830275007082625*^9}, 
   3.8302755337717943`*^9, 3.8302755681388607`*^9, 3.830277282512434*^9},
 CellLabel->
  "Out[83]//TraditionalForm=",ExpressionUUID->"179e09db-1ccd-43e0-9a39-\
3279b5716be8"],

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.825431414757538*^9, 3.825431415990245*^9}, {
   3.8254314525403976`*^9, 3.825431514201144*^9}, 3.8254324997726727`*^9, {
   3.827878582868266*^9, 3.827878585658217*^9}, 3.827880378897749*^9, {
   3.830272612431081*^9, 3.830272614200362*^9}, {3.8302750015707493`*^9, 
   3.830275003412364*^9}, {3.830275573330021*^9, 3.830275576344667*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"dfe76f47-b171-40a7-989e-245c668678fc"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"M", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "v"}], ")"}]}], 
          RowBox[{"\[PartialD]", "v"}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "+", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}], "-", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"M", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "v"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "v"}]}],
               MultilineFunction->None]}], ")"}]}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.830272593380279*^9, 3.830272619532792*^9}, 
   3.83027447058007*^9, 3.830274977849236*^9, 3.830275009468182*^9, 
   3.830275533822343*^9, 3.83027557695112*^9, 3.830277282597865*^9},
 CellLabel->
  "Out[86]//TraditionalForm=",ExpressionUUID->"2ad92e99-52c4-4092-9cf2-\
88734d25114b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Field Equations For Metric 17", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8302779266681833`*^9, 
  3.8302779461081963`*^9}},ExpressionUUID->"ef759eb8-deb2-4a6a-9e7f-\
bfacfbe48ada"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq59a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "The", " ", "exponential", " ", "satisfies", " ", "this", " ", 
     "equation"}], " ", "-", " ", 
    RowBox[{"see", " ", "next", " ", "line"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq59a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], "  ", ",", 
        RowBox[{
         SuperscriptBox["U", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq59a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277395630617*^9, 3.830277459470043*^9}, {
   3.8302778281898518`*^9, 3.83027785679694*^9}, 3.830277935243444*^9},
 CellLabel->
  "In[133]:=",ExpressionUUID->"58b629c8-2fbf-4c50-acd3-396c5eb915db"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"U", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"U", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "u"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"U", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "v"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277397126254*^9, 3.83027741226094*^9}, 
   3.830277459861911*^9, {3.830277830146536*^9, 3.8302778572618*^9}, 
   3.830277935243784*^9},
 CellLabel->
  "Out[135]//TraditionalForm=",ExpressionUUID->"a9bf7a6c-3aae-45cf-8db6-\
3079d279487e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"-", 
          RowBox[{"U", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}], ",", "v"}], "]"}], ",", 
      "u"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277431335115*^9, 3.830277452693953*^9}, 
   3.830277935243957*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"a6b1b86f-9b70-40af-b148-c4e36316cd86"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"U", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "v"}]}],
      MultilineFunction->None]}], ")"}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277446195842*^9, 3.8302774532366056`*^9}, 
   3.830277935244235*^9},
 CellLabel->
  "Out[92]//TraditionalForm=",ExpressionUUID->"79e4c4e7-1cd8-413a-bbdf-\
92e29350ccd5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq59b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq59b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         SuperscriptBox["U", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq59b", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277490910368*^9, 3.830277547750065*^9}, 
   3.830277935244442*^9},
 CellLabel->
  "In[101]:=",ExpressionUUID->"4ca73eaa-99b5-4893-ae09-a3f7c899b80c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"U", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["u", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None]}]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277491930182*^9, 3.83027754823098*^9}, 
   3.8302779352446537`*^9},
 CellLabel->
  "Out[103]//TraditionalForm=",ExpressionUUID->"73aae325-8292-4a10-8388-\
473a36e102ad"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq59c", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq59c", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{
         SuperscriptBox["U", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq59c", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277570062985*^9, 3.830277580485917*^9}, 
   3.8302779352448187`*^9},
 CellLabel->
  "In[104]:=",ExpressionUUID->"1bf0b4cb-78c0-4dbc-aa1f-2486bf7c2cec"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"U", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["v", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None]}]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.830277581175672*^9, 3.8302779352450733`*^9},
 CellLabel->
  "Out[106]//TraditionalForm=",ExpressionUUID->"bea3e7bb-3061-4616-8f0b-\
7bfe5985328b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq59d", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq59d", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{"Eliminate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"nonzeroEinstein", " ", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], " ", ",", 
              RowBox[{
               RowBox[{"nonzeroEinstein", " ", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}]}], " ", 
             "}"}], " ", ",", 
            RowBox[{
             SuperscriptBox["V", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "v"}], "]"}]}], "]"}], ",", 
          RowBox[{
           SuperscriptBox["M", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], "  ", ")"}], "   ", "/.", 
    " ", 
    RowBox[{"(", 
     RowBox[{"eq59a", "  ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq59d", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277774140584*^9, 3.830277814245277*^9}, {
   3.830277867085216*^9, 3.830277879732697*^9}, 3.830277935245284*^9},
 CellLabel->
  "In[136]:=",ExpressionUUID->"9e57b41b-c2d2-44fa-b626-dfe04b86d193"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"M", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None]}], "-", 
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.830277797684754*^9, 3.830277880285733*^9, 
  3.830277935245462*^9},
 CellLabel->
  "Out[138]//TraditionalForm=",ExpressionUUID->"a3e93531-dbfd-4c8b-bc30-\
22f0333f5dd7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq59e", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq59e", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"Eliminate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroEinstein", " ", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], " ", ",", 
            RowBox[{
             RowBox[{"nonzeroEinstein", " ", "[", 
              RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}]}], " ", "}"}],
           " ", ",", 
          RowBox[{
           SuperscriptBox["U", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}], ",", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq59e", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8302776048483257`*^9, 3.83027767541152*^9}, {
   3.830277706157434*^9, 3.8302777469712954`*^9}, 3.830277935245655*^9},
 CellLabel->
  "In[120]:=",ExpressionUUID->"c1795867-ff52-4ebe-81fc-e244077d9736"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "v"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}], 
        RowBox[{"\[PartialD]", "v"}],
        MultilineFunction->None]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.830277610445643*^9, 3.830277675977417*^9}, {
   3.830277710420618*^9, 3.8302777474454823`*^9}, 3.830277935245823*^9},
 CellLabel->
  "Out[122]//TraditionalForm=",ExpressionUUID->"cb20e32c-eac0-41d1-a3c5-\
a816fb5d29c0"]
}, Closed]]
},
WindowSize->{1273, 665},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"cf1d83ce-5735-431e-84b6-c31838737541"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2089, 31, 283, "Title",ExpressionUUID->"a27cf56e-784c-45c3-8e28-4612d3386681",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2672, 55, 945, 16, 76, "Author",ExpressionUUID->"f4985e8d-0d86-4fe0-aa93-70af4f21f477",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3654, 76, 228, 4, 69, "Section",ExpressionUUID->"ac1db5f9-8519-4986-9e7d-1e422b8382d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3885, 82, 433, 9, 63, "Input",ExpressionUUID->"f087dcf1-3e70-4de9-9431-892fd4163280",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4321, 93, 1801, 27, 43, "Output",ExpressionUUID->"9bf47d9c-3208-4678-ae67-b27d52bc860f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6159, 125, 668, 11, 55, "Section",ExpressionUUID->"903d1000-54ba-468a-85cd-e02d57666e65",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6830, 138, 547, 11, 63, "Input",ExpressionUUID->"96d902c7-632f-4fa4-84f9-69379a5f27cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7380, 151, 1014, 16, 43, "Output",ExpressionUUID->"0aa9f962-38fa-46ba-8cf6-69abc9520a20",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8397, 169, 634, 11, 84, "Input",ExpressionUUID->"11e335e2-d1d8-48c8-91eb-25d4ca2b4ba9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9034, 182, 1891, 30, 43, "Output",ExpressionUUID->"638de27e-bf49-4c04-a9e1-882cfe47a622",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[10962, 217, 251, 4, 55, "Section",ExpressionUUID->"35b1327b-aacd-461c-b02e-a8795e42ffba",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11216, 223, 1667, 45, 189, "Input",ExpressionUUID->"0297f25e-ebdf-4234-9de2-3952a470cbe7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12886, 270, 2034, 33, 24, "Print",ExpressionUUID->"60521059-8098-4b3d-92d4-9c6a4806cd48",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14923, 305, 2053, 34, 24, "Print",ExpressionUUID->"9ffeb8de-fb3c-4d46-87da-04e16cdac84e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16979, 341, 1991, 30, 41, "Output",ExpressionUUID->"c9e26f92-d623-412d-bce8-eb6bb9d0bae9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[18973, 373, 268, 4, 41, "Input",ExpressionUUID->"e84ec4d4-13f7-48e7-8eab-f0fd19ac7dbb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[19244, 379, 261, 4, 41, "Input",ExpressionUUID->"c44916b0-26fe-460a-a6d8-f6894fdba4cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[19542, 388, 240, 4, 55, "Section",ExpressionUUID->"3ac225b3-0d87-49c3-8907-85fbb576be55",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[19785, 394, 3122, 71, 504, "Input",ExpressionUUID->"c48fa9aa-d4af-45c2-aba2-c546702f3201",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[22910, 467, 3582, 96, 393, "Output",ExpressionUUID->"17c4aa9e-5820-405a-a7a2-6078771841c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[26495, 565, 735, 16, 41, "Input",ExpressionUUID->"c3375476-a89c-4aec-86fc-1dfa1a909bf8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27267, 586, 362, 6, 55, "Section",ExpressionUUID->"1070e000-6e63-4f01-8114-17ec089ca9f2",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[27632, 594, 1659, 41, 126, "Input",ExpressionUUID->"38a83e8a-7587-4ab5-a5a9-1041aac66acf",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[29294, 637, 1056, 26, 84, "Input",ExpressionUUID->"0e890ed1-f643-47ff-82bd-9e7d4308f653",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[30387, 668, 399, 6, 55, "Section",ExpressionUUID->"7c26aa97-dcf7-40e2-84d8-2bac30bbc7fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30789, 676, 1474, 36, 86, "Input",ExpressionUUID->"0d8de47c-4dd4-4b98-af21-53b724522aa5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32266, 714, 911, 26, 44, "Output",ExpressionUUID->"6be6ff58-d483-4f02-8983-60622f1dda8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33180, 742, 584, 11, 41, "Input",ExpressionUUID->"c60be082-0c02-4adc-93dc-84854631e44e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33767, 755, 1365, 39, 113, "Output",ExpressionUUID->"2331b793-1e4f-4e79-8dbc-4dcf6bf1096f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35135, 796, 1142, 23, 168, "Input",ExpressionUUID->"7d6cff87-1a8e-4113-b948-c813c5a6a087",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36280, 821, 1144, 34, 87, "Output",ExpressionUUID->"74042467-3d6b-4a6b-ab6c-58ff25b968a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37427, 857, 965, 19, 105, "Input",ExpressionUUID->"07793849-e12e-43e5-8ff6-7f2f3f199ee1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38395, 878, 1845, 52, 108, "Output",ExpressionUUID->"021ba601-8330-449b-9f65-853ff8f246b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40243, 932, 803, 15, 147, "Input",ExpressionUUID->"09f43758-b12f-45c9-ac97-a0603461b478",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41049, 949, 840, 26, 67, "Output",ExpressionUUID->"040f5129-97c5-43c4-8551-b5aac67a2fe5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41892, 977, 398, 8, 41, "Input",ExpressionUUID->"d2378eaa-44b6-48a2-b289-294166b25266",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42293, 987, 871, 26, 69, "Output",ExpressionUUID->"4bb1f32a-520d-4f11-9421-b6a8d7b9e405",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43167, 1015, 608, 15, 41, "Input",ExpressionUUID->"4a028ca3-e054-43be-9ff9-cfeaad1ebb05",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43778, 1032, 992, 31, 83, "Output",ExpressionUUID->"4a659820-9818-4cd6-8873-d8c3cf8a2fb2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[44773, 1065, 892, 19, 84, "Input",ExpressionUUID->"e2758fe1-806b-45e5-a5e3-776f663c973d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45668, 1086, 781, 21, 44, "Output",ExpressionUUID->"823fe3cb-9baa-4e74-a734-d364da3f6bcf",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46452, 1109, 506, 10, 41, "Input",ExpressionUUID->"5998c3ef-adec-4a02-87fb-5dc5feca0fb3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46961, 1121, 1262, 37, 113, "Output",ExpressionUUID->"0b33a552-ba18-479d-acc9-f21419342b21",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[48226, 1160, 897, 19, 147, "Input",ExpressionUUID->"c7f2d2f8-482e-44be-bb35-fd565639c1de",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[49126, 1181, 790, 16, 105, "Input",ExpressionUUID->"432d67d6-345a-477b-971d-9f4cb59a59b1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[49919, 1199, 1685, 49, 108, "Output",ExpressionUUID->"770e8c90-9ebf-4045-b7e3-2e5eae1c780e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[51641, 1253, 373, 7, 55, "Section",ExpressionUUID->"d74ba4e5-8bbc-4fc4-95b0-9d8239ef84d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[52017, 1262, 518, 11, 41, "Input",ExpressionUUID->"a9592030-c4ca-40be-ad93-40d028d93f14",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[52538, 1275, 5757, 130, 714, "Input",ExpressionUUID->"65473348-d082-4493-88e2-72553677f148",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[58298, 1407, 1183, 24, 65, "Input",ExpressionUUID->"9af76888-b5b0-4fcd-acd7-54c9f5af9d19",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59484, 1433, 704, 12, 41, "Output",ExpressionUUID->"a607d1ba-d08d-4014-adbc-219a8e9bf09b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60191, 1447, 291, 5, 41, "Input",ExpressionUUID->"12043283-c7a5-4e01-851e-6c212d747de1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60485, 1454, 1474, 39, 45, "Output",ExpressionUUID->"05fcc00f-1b23-4e89-a99d-7a5b53ace356",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[61962, 1495, 810, 18, 84, "Input",ExpressionUUID->"21e3639c-a44c-4ca5-8c49-515d99c2a415",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62775, 1515, 719, 13, 45, "Output",ExpressionUUID->"1c1f9552-3db5-42e8-9cb3-e7a9019add6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[63497, 1530, 641, 9, 41, "Output",ExpressionUUID->"f8a20bcd-0edc-41ad-8c19-be6c9532351a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[64141, 1541, 2030, 54, 108, "Output",ExpressionUUID->"166f2ebb-869a-4c8b-b5a6-57acc5c42dce",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[66174, 1597, 813, 18, 84, "Input",ExpressionUUID->"a6c3b651-1a9a-4870-a2d2-cf018b29313a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[66990, 1617, 846, 16, 45, "Output",ExpressionUUID->"249ae89d-5f8f-4fd4-946e-0bcbfe8278f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[67839, 1635, 747, 11, 41, "Output",ExpressionUUID->"4c7d13ca-5e61-4080-bd2a-7b1268f91e7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[68589, 1648, 19497, 545, 368, "Output",ExpressionUUID->"3bd74e3f-5e41-4891-9863-7d87a1f5f183",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[88089, 2195, 812, 18, 84, "Input",ExpressionUUID->"bd7505ce-707f-4782-a680-fdebdd705679",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[88904, 2215, 710, 12, 45, "Output",ExpressionUUID->"12967ddb-29bc-4e66-92d4-e50eab70a14e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[89617, 2229, 655, 9, 41, "Output",ExpressionUUID->"5f70dce2-70b8-4747-af92-c4bbabbbb037",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[90275, 2240, 117921, 2933, 488, "Output",ExpressionUUID->"3815b39c-152c-45c7-ad43-6ba80424ff8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[208199, 5175, 808, 18, 84, "Input",ExpressionUUID->"2c69b118-f87d-4852-9815-c179d8ff8553",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[209010, 5195, 700, 12, 45, "Output",ExpressionUUID->"ba901681-0114-4d4e-bd92-ac00246a7fdb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[209713, 5209, 659, 9, 41, "Output",ExpressionUUID->"28c9777a-102a-4f45-8aed-d21a98fbfc7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[210375, 5220, 12325, 344, 158, "Output",ExpressionUUID->"e6b55ab3-bc92-4923-8d17-62e1d2ecf708",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[222703, 5566, 810, 18, 84, "Input",ExpressionUUID->"c9b21a64-c2d2-4515-b73e-ac3dc52b55f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[223516, 5586, 662, 11, 41, "Output",ExpressionUUID->"7e050be0-ad77-4855-8b15-119ad70ffd86",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[224181, 5599, 658, 9, 41, "Output",ExpressionUUID->"33026168-c540-4bff-9318-6c3c146d434e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[224842, 5610, 2568, 70, 74, "Output",ExpressionUUID->"35e9a495-cfd3-4cac-893b-0773b8ca27e4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[227413, 5682, 867, 19, 84, "Input",ExpressionUUID->"83c3c7e6-50f8-4f84-9520-518a2f9153e7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[228283, 5703, 333, 6, 41, "Output",ExpressionUUID->"16161533-e75c-4f4e-80bd-e34dcde4265d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[228619, 5711, 335, 4, 41, "Output",ExpressionUUID->"c77289e9-5d71-4975-948f-773ffebc203c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[228957, 5717, 19150, 545, 260, "Output",ExpressionUUID->"8f9fc7a0-1d5f-47b2-9e5e-31468e81ba02",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[248110, 6264, 792, 18, 84, "Input",ExpressionUUID->"a3a06345-ab29-4877-9c45-56792a5f8675",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[248905, 6284, 636, 12, 45, "Output",ExpressionUUID->"aa82e279-b73b-4669-91c1-61c2f84210b7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[249544, 6298, 600, 9, 41, "Output",ExpressionUUID->"98aede2a-581c-4ea3-96c5-8b2c9ecc867c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[250147, 6309, 11933, 329, 158, "Output",ExpressionUUID->"7c774fd8-fecc-43fa-a3f7-5a615de0ee42",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[262083, 6640, 857, 19, 84, "Input",ExpressionUUID->"5ccab961-e87c-4a1c-a6c2-3b5516fb38fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[262943, 6661, 721, 13, 45, "Output",ExpressionUUID->"02081e61-0710-4934-91bc-231e80ce71bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[263667, 6676, 665, 10, 41, "Output",ExpressionUUID->"b28e1aa1-f18a-47d6-8461-02ba779b4e4b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[264335, 6688, 77434, 1974, 488, "Output",ExpressionUUID->"1076876e-865b-4563-81c7-ac54dd542c9b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[341772, 8664, 793, 18, 84, "Input",ExpressionUUID->"75003b09-9ac3-4381-9122-1e665b89bb06",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[342568, 8684, 382, 7, 45, "Output",ExpressionUUID->"5c40ca28-60e8-4433-bf97-7ed53e178daa",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[342953, 8693, 336, 4, 41, "Output",ExpressionUUID->"5876183a-9d8a-41be-91f0-7af667f86187",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[343292, 8699, 121354, 2921, 398, "Output",ExpressionUUID->"f166c1d5-cba4-49d0-85ec-03b8b1403146",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[464649, 11622, 2021, 50, 210, "Input",ExpressionUUID->"dc1127af-5cb3-49a6-8870-f9ab213a9f40",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[466673, 11674, 10620, 299, 188, "Output",ExpressionUUID->"179e09db-1ccd-43e0-9a39-3279b5716be8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[477296, 11975, 2078, 50, 210, "Input",ExpressionUUID->"dfe76f47-b171-40a7-989e-245c668678fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[479377, 12027, 10894, 304, 188, "Output",ExpressionUUID->"2ad92e99-52c4-4092-9cf2-88734d25114b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[490308, 12336, 233, 4, 55, "Section",ExpressionUUID->"ef759eb8-deb2-4a6a-9e7f-bfacfbe48ada",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[490544, 12342, 1363, 36, 107, "Input",ExpressionUUID->"58b629c8-2fbf-4c50-acd3-396c5eb915db",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[491910, 12380, 1046, 31, 72, "Output",ExpressionUUID->"a9bf7a6c-3aae-45cf-8db6-3079d279487e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[492959, 12413, 632, 17, 41, "Input",ExpressionUUID->"a6b1b86f-9b70-40af-b148-c4e36316cd86",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[493594, 12432, 1177, 36, 76, "Output",ExpressionUUID->"79e4c4e7-1cd8-413a-bbdf-92e29350ccd5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[494774, 12470, 1066, 28, 107, "Input",ExpressionUUID->"4ca73eaa-99b5-4893-ae09-a3f7c899b80c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[495843, 12500, 1642, 51, 74, "Output",ExpressionUUID->"73aae325-8292-4a10-8388-473a36e102ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[497488, 12553, 1068, 28, 107, "Input",ExpressionUUID->"1bf0b4cb-78c0-4dbc-aa1f-2486bf7c2cec",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[498559, 12583, 1615, 50, 74, "Output",ExpressionUUID->"bea3e7bb-3061-4616-8f0b-7bfe5985328b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[500177, 12635, 1944, 50, 128, "Input",ExpressionUUID->"9e57b41b-c2d2-44fa-b626-dfe04b86d193",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[502124, 12687, 1524, 47, 74, "Output",ExpressionUUID->"a3e93531-dbfd-4c8b-bc30-22f0333f5dd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[503651, 12736, 1684, 44, 107, "Input",ExpressionUUID->"c1795867-ff52-4ebe-81fc-e244077d9736",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[505338, 12782, 1575, 47, 74, "Output",ExpressionUUID->"cb20e32c-eac0-41d1-a3c5-a816fb5d29c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]]
}
]
*)