Colliding plane waves with W = M = 0 by Ivanov.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[    551138,      14070]
NotebookOptionsPosition[    531458,      13786]
NotebookOutlinePosition[    531920,      13803]
CellTagsIndexPosition[    531877,      13800]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  Colliding plane waves with W = M = 0 by Ivanov\
\>", "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}},
 TextAlignment->Center,ExpressionUUID->"dd1fd1d2-ef76-44e0-833b-901b272b2f22"],

Cell["\<\
Geoff Cope
University of Utah
April 26th, 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}},
 TextAlignment->Center,ExpressionUUID->"b85a412b-a21f-4d64-a95a-620dcea58869"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{"Add", " ", "Newman", " ", "Penrose"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.8284717462545567`*^9, 
  3.8284717510749617`*^9}},ExpressionUUID->"2b495783-4a6e-4dfd-9e7b-\
3cff55994a46"],

Cell[BoxData[
 RowBox[{"(*", " ", "\[IndentingNewLine]", 
  RowBox[{"Check", " ", 
   RowBox[{
    RowBox[{"References", "!!"}], "!!"}]}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.828471436706461*^9, 
  3.828471443031919*^9}},ExpressionUUID->"98b11a63-07ca-4857-8181-\
1cbf6c581afc"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"fd2f3ffd-f0f7-4af6-b725-\
ba127b451200"],

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[10]:=",ExpressionUUID->"5056f2ee-79fe-45cd-a6a7-ea8116bf1620"],

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},
 CellLabel->"Out[10]=",ExpressionUUID->"ba595a01-3def-42bb-8c99-106236143e14"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.84308879472646*^9, 
   3.843088800633676*^9}},ExpressionUUID->"48091760-dbd0-4a7b-9e05-\
a12c0e48128e"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding plane waves with W = M = 0 by Ivanov\>\"", ",", 
   "\[IndentingNewLine]", "\"\<https://arxiv.org/abs/gr-qc/9705029\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843088775501276*^9, 3.843088794726815*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"f0188a56-52a4-4ab1-9bdd-74c2929bcbe3"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding plane waves with W = M = 0 by Ivanov\"", 
   "https://arxiv.org/abs/gr-qc/9705029"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843088790065755*^9, 3.843088794728458*^9}},
 CellLabel->"Out[89]=",ExpressionUUID->"4cfb5a6b-db38-4ea9-9382-19933e7b1409"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"6a5057b4-18c0-405e-acae-\
cf3a4fbc50e6"],

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", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"289a66fb-2d6a-4abb-97b0-4227dbb0af0c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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},
 CellLabel->
  "During evaluation of \
In[13]:=",ExpressionUUID->"8a9ab5e5-9dc5-446c-9f8a-3bcb27cf39fa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"33 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "33 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.828469241963048*^9},
 CellLabel->
  "During evaluation of \
In[13]:=",ExpressionUUID->"3511d6f1-8cf6-42d2-b513-8c2fd35dd352"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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},
 CellLabel->"Out[0]=",ExpressionUUID->"e3ccdf84-cb82-4fd7-bfb1-587c6a9b96f5"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"0d545c9e-154f-4804-b0e5-06634cea3993"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"01ae53ce-3a59-42b3-bbde-\
74623c4e6322"],

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", "[", "\[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", "[", "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}},
 CellLabel->"In[3]:=",ExpressionUUID->"942b75e5-ab4c-42c6-a28d-1f3b41328f68"],

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", "[", "\[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", "[", "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},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"483b37e0-a9dc-4a71-bef0-214296b059db"]
}, 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->"d1d14b0e-c321-47a7-92dc-\
4f2f010a5047"],

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[6]:=",ExpressionUUID->"340f2cf9-1725-46f6-a028-217a76db4d46"],

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[8]:=",ExpressionUUID->"56e481c8-1169-4b23-93a4-6b4972eb9bb6"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Line Element and Metric 1:  Colliding Plane Waves With Constant Aligned \
Polarization\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828469372335599*^9, 
  3.828469398791095*^9}},ExpressionUUID->"9bca76dd-af43-4429-b88a-\
75dff7fa82f4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", "M"}], "]"}], " ", "du", " ", "dv"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"-", "U"}], "]"}], 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", "V", "]"}], " ", 
       SuperscriptBox["dx", "2"]}], "+", " ", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"-", "V"}], "]"}], " ", 
       SuperscriptBox["dy", "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82846920353815*^9, 3.828469237415262*^9}, 
   3.828469378875588*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"fdc87d61-d9cf-42ed-9b55-69e4a3ede28a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv", " ", 
   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.8284692420627403`*^9, 3.828469378876421*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"5d7bee17-a662-4389-a414-f8edd0b0a277"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq1", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], " ", "//",
   " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828469285249621*^9, 3.8284692958393517`*^9}, 
   3.8284693788765697`*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"872b5de5-f654-465e-b1cb-06e5aba5bfe3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "M"}]], "0", "0"},
     {
      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.8284692961326303`*^9, 3.828469378876939*^9},
 CellLabel->
  "Out[15]//MatrixForm=",ExpressionUUID->"3f42fe10-223f-44ee-863a-\
b5e941280e94"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1a", " ", "=", " ", 
   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]", 
     RowBox[{"P", "\[Rule]", " ", 
      RowBox[{"P", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"Q", "\[Rule]", " ", 
      RowBox[{"Q", "[", 
       RowBox[{"u", ",", "v"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8284692529509172`*^9, 3.828469283023024*^9}, 
   3.828469378877102*^9, {3.828470131732667*^9, 3.828470145035849*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"eed8fec4-8914-4df8-87d1-ccc29f03ed49"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"M", "\[Rule]", 
       RowBox[{"M", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]},
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{"U", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]},
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{"V", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]},
     {
      RowBox[{"P", "\[Rule]", 
       RowBox[{"P", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]},
     {
      RowBox[{"Q", "\[Rule]", 
       RowBox[{"Q", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.828469283269906*^9, 3.828469378877578*^9, 
  3.828470146445559*^9},
 CellLabel->
  "Out[104]//TableForm=",ExpressionUUID->"c3f42538-8521-4946-9def-\
b12166890321"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq1", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], "  ", 
    "/.", " ", "eq1a"}]}], "    ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828469310487891*^9, 3.82846932514391*^9}, 
   3.8284693788777637`*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"666fb2d7-3e0c-4d53-b43a-e03e864568c3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        RowBox[{"M", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}]], "0", "0"},
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        RowBox[{"M", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}]], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"U", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "+", 
         RowBox[{"V", "[", 
          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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828469311736574*^9, 3.828469325443437*^9}, 
   3.828469378878076*^9},
 CellLabel->
  "Out[19]//MatrixForm=",ExpressionUUID->"c06dee0a-b8e5-4798-831d-\
cd8a51698a94"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", " ", "metric1", " ", "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82846932751271*^9, 3.828469344399334*^9}, 
   3.8284693788782063`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"d5fd18c1-a706-4193-b44e-4cc51e57e8a8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"M", "[", 
        RowBox[{"u", ",", "v"}], "]"}]], "0", "0"},
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"M", "[", 
        RowBox[{"u", ",", "v"}], "]"}]], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"U", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "-", 
         RowBox[{"V", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        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$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.828469344643099*^9, 3.828469378878503*^9},
 CellLabel->
  "Out[22]//MatrixForm=",ExpressionUUID->"4feb7e52-7d1d-443a-9079-\
cecdd99382b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric1", " ", ".", " ", "inverse1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8284693470490026`*^9, 3.8284693788786163`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"6c9aa4a8-e23f-4543-8541-e1793b7b5ab6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828469354984417*^9, 3.828469378878957*^9}},
 CellLabel->
  "Out[23]//MatrixForm=",ExpressionUUID->"b83e5c46-68a9-462b-ab75-\
b064d3346aaa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse1", "  ", ".", " ", "metric1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82846936479739*^9, 3.8284693788790693`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"e711f2b7-2aee-4e9b-9e84-e883bae3b626"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828469368878056*^9, 3.828469378879327*^9}},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"cf3c6880-706f-4aed-bdd6-\
c6688760077e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82847000696107*^9, 
  3.828470029735577*^9}},ExpressionUUID->"a9352083-1250-4919-b723-\
d9a10a82c5ef"],

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.828469422921736*^9, 
   3.828469428795122*^9}, 3.828470019008404*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"1fde8ad4-cce6-4857-99b4-dbf4b3b1f6a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "22.68", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric1\>\"", ",", " ", "metric1", ",", " ", "\"\<PlaneWaves\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(pw\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "x", ",", " ", "y"}], " ", "}"}], ",", " ", 
     "\"\<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.828469439600842*^9, 3.8284694564075747`*^9}, 
   3.8284700190085907`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"be04bafd-cadd-421c-9c90-154a135d3bbd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.775105`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8284694626726303`*^9, 3.828470019008717*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"151bccd7-ef0c-4249-83c6-a8eaf6591807"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.828469459079842*^9, 3.8284694594401493`*^9}, 
   3.82847001900881*^9},ExpressionUUID->"af729d62-e62e-4e50-bb40-\
a8348cbe0e0c"],

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.8284700190089407`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"c4246339-8373-4435-99c7-3504c66f4a7e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "pw"], "\[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.8284694725337477`*^9, 3.828470019009041*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"6e7ca2b6-21b8-4cde-a2cb-a9dac681bacb"],

Cell[BoxData["\<\"PlaneWaves\"\>"], "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.828469472538725*^9, 3.828470019009145*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"a010078d-0a8e-4981-b4a7-aad2e788924d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         RowBox[{"M", "(", 
          RowBox[{"u", ",", "v"}], ")"}]}]], "0", "0"},
      {
       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.828469472568343*^9, 3.828470019009232*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"ad3c61fd-56d4-4aeb-b619-\
ef7d65fef4a7"],

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.8284700190093613`*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"053edf52-7c4c-45f3-bee6-53c16d0f3295"],

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.828469472623417*^9, 
   3.828470019009452*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"f95abcba-1b18-4059-a057-6911b4174bf9"],

Cell[BoxData["\<\"ChristoffelSymbolPlaneWaves\"\>"], "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.8284694726264963`*^9, 
   3.82847001900954*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"413d3a74-083c-4bb4-bb1e-46e9d50a0b69"],

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[{"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[{
           {"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[{
               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[{"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"},
           {"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[{
               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.828469472691689*^9, 
   3.828470019009603*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"9bbfffbd-7575-4661-84aa-\
12113cf6b937"],

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.8284700190097322`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"38df406a-5c64-4132-aae6-d74497319f0c"],

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.8284694727091217`*^9, 3.828470019009823*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"f7c8e01f-0978-46cb-8d71-bf2afdb155f8"],

Cell[BoxData["\<\"RiemannTensorPlaneWaves\"\>"], "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.828469472712206*^9, 3.828470019009926*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"400d7f3d-42bf-44a5-9486-1e3e24bbad8b"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            RowBox[{"-", 
             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", 
           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[{
            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", "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[{"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]}]}], ")"}]}]},
          {"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[{"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]}]}], ")"}]}], "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[{"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]}]}], ")"}]}]},
          {"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[{"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]}]}], ")"}]}], "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.82846947341861*^9, 3.828470019009997*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"86f977a6-95e2-4355-a29c-\
fe7ddb10750b"],

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.82847001901013*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"2f4ef8a5-5b34-4b34-a6f2-06f7874032d2"],

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.828469473449609*^9, 3.828470019010219*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"78f5274b-b4b3-4b0c-8e5c-9e60b6f7248f"],

Cell[BoxData["\<\"RicciTensorPlaneWaves\"\>"], "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.828469473452516*^9, 3.828470019010312*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"b5ec97bd-304f-4868-a67c-5ab0dc3b710a"],

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[{
        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[{
        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.828469473527689*^9, 3.828470019010385*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"1ab1324d-28b1-4566-8c6a-\
854aec4031c0"],

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.828470019010523*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"f5a8b2f1-4986-4316-8199-963f451ce9fd"],

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.8284694735406713`*^9, 3.828470019010626*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"b18950f7-6749-418a-a149-246056b501f1"],

Cell[BoxData["\<\"RicciScalarPlaneWaves\"\>"], "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.828469473544313*^9, 3.828470019010743*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"21b091b7-5c25-4c00-a6a3-e16697654000"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    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.828469473570838*^9, 3.828470019010811*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"e7bc653e-00c0-4c10-b410-\
afafd151d008"],

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.8284694876962442`*^9, 3.828469492025711*^9}, 3.8284700190109863`*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"da769b89-1622-4f26-9238-3441ce985ee8"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8284694928552923`*^9, 3.8284700190110826`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"6702f735-276c-427c-b1ad-7c96f39806a7"],

Cell[BoxData["\<\"KretschmannScalarPlaneWaves\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.828469492859667*^9, 3.8284700190111723`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"90e994dd-f313-41a1-b951-70982d367ebd"],

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.828469492980358*^9, 3.828470019011241*^9},
 CellLabel->
  "Out[56]//TraditionalForm=",ExpressionUUID->"7ad37037-a78a-4058-8299-\
e1be0b071c0d"],

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.828470019011372*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"9f84e373-eaf2-4dcd-9a1d-e21785d97b19"],

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.828469473625967*^9, 
   3.8284700190114613`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"47301afc-12a2-4afd-90a9-423821325742"],

Cell[BoxData["\<\"EinsteinTensorPlaneWaves\"\>"], "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.828469473629448*^9, 
   3.82847001901154*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"9779aa5a-dc69-41ab-9381-a1d32ca5d142"],

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[{
        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[{
        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.828469473700472*^9, 
   3.828470019011599*^9},
 CellLabel->
  "Out[46]//TraditionalForm=",ExpressionUUID->"1e8e50ef-0b00-4d23-b83d-\
eba7404b04cf"],

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.82847001901178*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"3d150ce3-5ca8-4d0c-91ff-30ccced0a720"],

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.828469473724286*^9, 
   3.828470019011911*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"f421dc62-cced-4ae7-a950-6e1bdba1197d"],

Cell[BoxData["\<\"WeylTensorPlaneWaves\"\>"], "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.8284694737266693`*^9, 
   3.828470019011999*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"563f2a81-4ced-4dd4-97a6-e4e09eb3759b"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "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", 
           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[{
            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", "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[{
            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", 
           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[{
            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", "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.828469474147328*^9, 
   3.8284700190120583`*^9},
 CellLabel->
  "Out[49]//TraditionalForm=",ExpressionUUID->"6f0a1124-3f15-4ccf-9de6-\
d097827a7750"],

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.828469476161312*^9, 3.8284694814656973`*^9}, 3.8284700190121727`*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"460f7a95-8f98-4cbf-a2f3-71eb6f4ecce4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.828469482808926*^9, 3.828470019012259*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"c2a9ccf4-91c8-4315-a161-ecd4cbbc9130"],

Cell[BoxData["\<\"CottonTensorPlaneWaves\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.828469482812899*^9, 3.828470019012342*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"16c74433-33cb-4208-a262-44356c04d302"],

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[{
             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[{
             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[{
             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[{
             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[{"-", 
                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[{"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"]}]}], ")"}]}]}
          },
          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[{"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[{
                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"]}]}], ")"}]}]},
           {"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.8284694834243298`*^9, 3.828470019012409*^9},
 CellLabel->
  "Out[53]//TraditionalForm=",ExpressionUUID->"f5bba3d9-8ed2-4256-b434-\
0b8fc2b0b1b6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Vacuum Field Equations For Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8284699119859753`*^9, 
  3.828469930816287*^9}},ExpressionUUID->"f409dd95-f1c1-4632-b98c-\
a17ca5afd82e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroRicci", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8284597142108927`*^9, 3.828459797441636*^9}, {
   3.82845986778545*^9, 3.82845988119462*^9}, 3.828460310517069*^9, {
   3.828469538145379*^9, 3.828469554106443*^9}, {3.8284699488031397`*^9, 
   3.828469962898664*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"b6c0a746-2dbd-4afe-a935-805a9f0807ea"],

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[{
        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[{
        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", 10000.},
 CellChangeTimes->{{3.828459717206181*^9, 3.828459727748857*^9}, 
   3.8284597621502028`*^9, 3.828459798128481*^9, {3.828459869460194*^9, 
   3.828459881565275*^9}, 3.828460310517447*^9, {3.8284695337078333`*^9, 
   3.828469554596765*^9}, {3.8284699488036957`*^9, 3.8284699628988*^9}, 
   3.8284706991603622`*^9},
 CellLabel->
  "Out[165]//TraditionalForm=",ExpressionUUID->"4322a800-2592-4d73-a7ef-\
5bf2c8c9db77"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.828459806786847*^9, 3.828459830154263*^9}, {
   3.828459891128193*^9, 3.8284599082077837`*^9}, 3.828460310517646*^9, {
   3.828469559273267*^9, 3.828469567847636*^9}, {3.8284699488040113`*^9, 
   3.828469962898917*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"b12c2643-6f1a-464e-9a6d-b1ca32ee9eb0"],

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[{
        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[{
        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", 10000.},
 CellChangeTimes->{
  3.8284695682093487`*^9, {3.828469948804122*^9, 3.828469962899008*^9}},
 CellLabel->
  "Out[68]//TraditionalForm=",ExpressionUUID->"ac1d0756-a6b2-48a6-903e-\
b558aa64436c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3a", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Expand", "[", 
    RowBox[{"MultiplySides", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroRicci", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             SuperscriptBox["U", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
        RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], ")"}], ",", "2"}], "]"}],
     "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.828469780681157*^9, 3.828469835256888*^9}, {
  3.828469891177792*^9, 3.828469918845487*^9}},
 CellLabel->
  "In[166]:=",ExpressionUUID->"955521ad-efbd-457a-9636-f717f06e80aa"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"U", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["u", "2"]}],
     MultilineFunction->None]}], "\[LongEqual]", 
   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", 10000.},
 CellChangeTimes->{{3.828469781710167*^9, 3.8284698130690947`*^9}, 
   3.8284699188457527`*^9, 3.828470702240374*^9},
 CellLabel->
  "Out[168]//TraditionalForm=",ExpressionUUID->"443ba830-c45d-4a90-8847-\
f40e270b8ff7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3b", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Expand", "[", 
    RowBox[{"MultiplySides", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroRicci", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", 
            RowBox[{
             SuperscriptBox["U", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
        RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], ")"}], ",", "2"}], "]"}],
     "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3b", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.828469843169842*^9, 3.828469876266308*^9}, 
   3.828469918845842*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"31fd5430-98c6-491a-9ce2-b958396a7aa5"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"U", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["v", "2"]}],
     MultilineFunction->None]}], "\[LongEqual]", 
   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", 10000.},
 CellChangeTimes->{{3.828469855053094*^9, 3.8284698768532343`*^9}, 
   3.82846991884593*^9},
 CellLabel->
  "Out[96]//TraditionalForm=",ExpressionUUID->"f3340500-37f3-4607-a742-\
770263f5b4f1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4", " ", "=", " ", "\[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[{"eq4", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82846958190514*^9, 3.8284696272722607`*^9}, 
   3.828469918846127*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"84a9168b-e3ab-49b8-b90b-7e9eb0e5cc48"],

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", 10000.},
 CellChangeTimes->{{3.8284695792871933`*^9, 3.828469627912136*^9}, 
   3.828469918846875*^9},
 CellLabel->
  "Out[76]//TraditionalForm=",ExpressionUUID->"95f68cf6-d42b-4548-aa73-\
9e34ddfe90aa"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Expand", "[", 
    RowBox[{"MultiplySides", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Solve", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"nonzeroRicci", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], "  ", ",", 
             RowBox[{
              SuperscriptBox["M", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
         RowBox[{"(", " ", 
          RowBox[{"eq4", " ", "/.", " ", 
           RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "   ", "/.",
         " ", 
        RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], ")"}], ",", "2"}], "]"}],
     "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8284696522274446`*^9, 3.8284697441601562`*^9}, 
   3.8284699188473263`*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"3df08946-8df1-4ddd-b6b3-6be59cd7de54"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"M", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "v"}]}],
     MultilineFunction->None]}], "\[LongEqual]", 
   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", 10000.},
 CellChangeTimes->{{3.828469650022325*^9, 3.828469744715514*^9}, 
   3.828469918847941*^9},
 CellLabel->
  "Out[87]//TraditionalForm=",ExpressionUUID->"493210c1-3d89-4698-af2c-\
700518d4620a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Reduction of Line Element 1 To Line Element 8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828471271368752*^9, 
  3.828471308159251*^9}},ExpressionUUID->"e08b0020-b15b-406f-940b-\
9247c61585b6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq9", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq9", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"P", " ", "\[Equal]", " ", 
      RowBox[{"Exp", "[", 
       FractionBox[
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"U", "+", "V"}], ")"}]}], "2"], "]"}]}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"Q", " ", "\[Equal]", " ", 
      RowBox[{"Exp", "[", 
       FractionBox[
        RowBox[{"(", 
         RowBox[{"V", "-", "U"}], ")"}], "2"], "]"}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq9", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828470061333212*^9, 3.82847011848342*^9}, 
   3.8284712918707542`*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"6a8b79c5-5ec9-4205-9cc1-ce49c265af32"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"P", "\[Equal]", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "U"}], "-", "V"}], ")"}]}]]}]},
     {
      RowBox[{"Q", "\[Equal]", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "U"}], "+", "V"}], ")"}]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.828470119605371*^9, 3.828471291871606*^9},
 CellLabel->
  "Out[101]//TableForm=",ExpressionUUID->"3eec33d2-6a5a-4afd-bdc3-\
65525bb82f26"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq9", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"U", ",", "V"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], " ", "/.", " ", 
   RowBox[{
    RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], "  ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828470163030476*^9, 3.828470223978548*^9}, 
   3.828471291871799*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"f37becf0-3ea1-41e8-b80d-74ebeab3bde0"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          SqrtBox["P"], " ", 
          SqrtBox["Q"]}], "]"}]}]}]},
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          SqrtBox["P"], 
          SqrtBox["Q"]], "]"}]}]}]}
    },
    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.82847016005336*^9, 3.828470224246882*^9}, 
   3.8284712918722477`*^9},
 CellLabel->
  "Out[113]//TableForm=",ExpressionUUID->"a338198e-7c31-4450-9c55-\
94d9b6ec2340"],

Cell[BoxData[{"eq1", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1", " ", "/.", " ", 
   RowBox[{"M", "\[Rule]", " ", "0"}]}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq8", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq1", " ", "/.", " ", 
      RowBox[{"M", "\[Rule]", " ", "0"}]}], "  ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Solve", "[", " ", 
          RowBox[{"eq9", " ", ",", " ", 
           RowBox[{"{", 
            RowBox[{"U", ",", "V"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
        RowBox[{
         RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], " ", "/.", 
       " ", 
       RowBox[{
        RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], "  ", ")"}]}], 
    "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify", 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828470228740655*^9, 3.82847027211399*^9}, 
   3.828471291872456*^9},
 CellLabel->
  "In[123]:=",ExpressionUUID->"84595473-9620-41a3-9217-0cd6aec5474c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv", " ", 
   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", 10001.},
 CellChangeTimes->{{3.828470229578657*^9, 3.828470272811117*^9}, 
   3.828471291872575*^9},
 CellLabel->
  "Out[123]=",ExpressionUUID->"58ed8479-04cf-47c9-a9ec-dc40a959a1d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "-", 
  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", 10001.},
 CellChangeTimes->{{3.828470229578657*^9, 3.828470272814967*^9}, 
   3.828471291872683*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"ef46431e-1db9-480a-a376-a69debf948bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "-", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", 
   SuperscriptBox["P", "2"]}], "-", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", 
   SuperscriptBox["Q", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828470229578657*^9, 3.828470272817728*^9}, 
   3.828471291873269*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"015c05b0-8258-4455-b9bd-9aa04c62cd45"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Transformation and Simplification of Vacuum Field Equations to Give Equations \
10-13\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284713177039223`*^9, 
  3.828471372423623*^9}},ExpressionUUID->"7a6b5cce-5f6c-4640-8299-\
dd65718f2f92"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "uvmReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uvmReplace", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Solve", "[", " ", 
             RowBox[{"eq9", " ", ",", " ", 
              RowBox[{"{", 
               RowBox[{"U", ",", "V"}], "}"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], " ", "/.", 
          " ", 
          RowBox[{
           RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], " ", ")"}], 
        "  ", "/.", " ", "eq1a"}], " ", ")"}], " ", ",", " ", 
      RowBox[{
       RowBox[{"M", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "\[Rule]", " ", "0"}]}], " ", "}"}], 
    "  ", "//", " ", "Flatten"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"uvmReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284703038273363`*^9, 3.828470345116411*^9}, {
   3.828470501954324*^9, 3.828470555954028*^9}, 3.828471330858432*^9},
 CellLabel->
  "In[151]:=",ExpressionUUID->"99e4f9b8-f83b-4cde-8c16-cc437c16621b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"U", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          SqrtBox[
           RowBox[{"P", "[", 
            RowBox[{"u", ",", "v"}], "]"}]], " ", 
          SqrtBox[
           RowBox[{"Q", "[", 
            RowBox[{"u", ",", "v"}], "]"}]]}], "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"V", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          SqrtBox[
           RowBox[{"P", "[", 
            RowBox[{"u", ",", "v"}], "]"}]], 
          SqrtBox[
           RowBox[{"Q", "[", 
            RowBox[{"u", ",", "v"}], "]"}]]], "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"M", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "\[Rule]", "0"}]}
    },
    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", 10002.},
 CellChangeTimes->{{3.8284703067466173`*^9, 3.828470311398973*^9}, 
   3.8284703453727303`*^9, {3.828470549121769*^9, 3.828470556199741*^9}, 
   3.828471330859048*^9},
 CellLabel->
  "Out[153]//TableForm=",ExpressionUUID->"2b7cd603-6a94-4d41-b438-\
58d559329c9d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "uvmDerivatives", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uvmDerivatives", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", " ", "\[IndentingNewLine]", 
       RowBox[{"uvmReplace", "  ", ",", " ", "\[IndentingNewLine]", 
        RowBox[{"D", "[", " ", 
         RowBox[{"uvmReplace", "  ", ",", " ", "u"}], " ", "]"}], "  ", ",", 
        " ", "\[IndentingNewLine]", 
        RowBox[{"D", "[", " ", 
         RowBox[{"uvmReplace", "  ", ",", " ", "v"}], " ", "]"}], "  ", ",", 
        " ", "\[IndentingNewLine]", 
        RowBox[{"D", "[", " ", 
         RowBox[{"uvmReplace", "  ", ",", " ", 
          RowBox[{"{", 
           RowBox[{"u", ",", "2"}], "}"}]}], " ", "]"}], "  ", ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"D", "[", " ", 
         RowBox[{"uvmReplace", "  ", ",", " ", 
          RowBox[{"{", 
           RowBox[{"v", ",", "2"}], "}"}]}], " ", "]"}], "  ", ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"D", "[", " ", 
           RowBox[{"uvmReplace", "  ", ",", " ", "u"}], " ", "]"}], " ", ",", 
          "v"}], "]"}]}], "\[IndentingNewLine]", "}"}], " ", "//", " ", 
      "Flatten"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}],
   "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"uvmDerivatives", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284703506706743`*^9, 3.828470460212777*^9}, {
   3.828470530837674*^9, 3.828470546748927*^9}, 3.82847133085929*^9},
 CellLabel->
  "In[154]:=",ExpressionUUID->"15bcb593-295c-45c9-8518-803b72979c6b"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "\[Rule]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"log", "(", 
          RowBox[{
           SqrtBox[
            RowBox[{"P", "(", 
             RowBox[{"u", ",", "v"}], ")"}]], " ", 
           SqrtBox[
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}]]}], ")"}]}]}]},
      {
       RowBox[{
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "\[Rule]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"log", "(", 
          FractionBox[
           SqrtBox[
            RowBox[{"P", "(", 
             RowBox[{"u", ",", "v"}], ")"}]], 
           SqrtBox[
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}]]], ")"}]}]}]},
      {
       RowBox[{
        RowBox[{"M", "(", 
         RowBox[{"u", ",", "v"}], ")"}], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], 
          RowBox[{"Q", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], 
          RowBox[{"Q", "(", 
           RowBox[{"u", ",", "v"}], ")"}]], "-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], 
          RowBox[{"P", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], 
          RowBox[{"Q", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], 
          RowBox[{"Q", "(", 
           RowBox[{"u", ",", "v"}], ")"}]], "-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"P", "(", 
             RowBox[{"u", ",", "v"}], ")"}]}], 
           RowBox[{"\[PartialD]", "v"}],
           MultilineFunction->None], 
          RowBox[{"P", "(", 
           RowBox[{"u", ",", "v"}], ")"}]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", "v"}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], 
          SuperscriptBox[
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"], "-", 
           RowBox[{
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], 
          SuperscriptBox[
           RowBox[{"Q", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], 
          SuperscriptBox[
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"Q", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["v", "2"]}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "v"}],
             MultilineFunction->None], ")"}], "2"], 
          SuperscriptBox[
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], ")"}], "2"], "-", 
           RowBox[{
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["v", "2"]}],
             MultilineFunction->None]}]}], 
          SuperscriptBox[
           RowBox[{"Q", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["v", "2"]}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"P", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "v"}],
             MultilineFunction->None], ")"}], "2"], 
          SuperscriptBox[
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["v", "2"]}],
             MultilineFunction->None]}], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"Q", "(", 
                RowBox[{"u", ",", "v"}], ")"}]}], 
              RowBox[{"\[PartialD]", "v"}],
              MultilineFunction->None], ")"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"Q", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["v", "2"]}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "+", 
         FractionBox[
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "v"}],
             MultilineFunction->None]}], "-", 
           RowBox[{
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}]}], 
          SuperscriptBox[
           RowBox[{"Q", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], 
          SuperscriptBox[
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "v"}]}],
            MultilineFunction->None], 
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}]]}], "+", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"Q", "(", 
             RowBox[{"u", ",", "v"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "v"}]}],
             MultilineFunction->None]}], "-", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"Q", "(", 
               RowBox[{"u", ",", "v"}], ")"}]}], 
             RowBox[{"\[PartialD]", "v"}],
             MultilineFunction->None]}]}], 
          SuperscriptBox[
           RowBox[{"Q", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"P", "(", 
              RowBox[{"u", ",", "v"}], ")"}]}], 
            RowBox[{"\[PartialD]", "v"}],
            MultilineFunction->None]}], 
          SuperscriptBox[
           RowBox[{"P", "(", 
            RowBox[{"u", ",", "v"}], ")"}], "2"]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"M", "(", 
           RowBox[{"u", ",", "v"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "v"}]}],
         MultilineFunction->None], "\[Rule]", "0"}]}
     },
     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", 10002.},
 CellChangeTimes->{{3.828470358895637*^9, 3.828470394962446*^9}, {
   3.8284704526804028`*^9, 3.828470460778777*^9}, 3.828470563740074*^9, 
   3.828471330859827*^9},
 CellLabel->
  "Out[156]//TraditionalForm=",ExpressionUUID->"44d518ac-ec14-4f7c-9b58-\
18fff9d5e982"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq10a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Probably", " ", "just", " ", "need", " ", "numerator"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq10a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq3a", " ", "/.", " ", "uvmDerivatives"}], " ", "//", " ", 
      "Expand"}], " ", "//", " ", "Simplify"}], "   ", "//", " ", 
    "Together"}]}], "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq10a", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284706068785458`*^9, 3.828470607125812*^9}, {
   3.82847073604956*^9, 3.828470796320215*^9}, 
   3.828471330860005*^9},ExpressionUUID->"99bd7839-5b11-4c8b-901c-\
dfacda6f9807"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"P", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["u", "2"]}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      RowBox[{"Q", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["u", "2"]}],
       MultilineFunction->None]}]}], 
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}]], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.828470709738434*^9, {3.8284707400616426`*^9, 3.82847074498312*^9}, 
   3.8284707771908092`*^9, 3.8284713308603973`*^9},
 CellLabel->
  "Out[174]//TraditionalForm=",ExpressionUUID->"539b3886-945b-4b18-8123-\
f7c07f1cf10e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Numerator", "[", 
    RowBox[{"eq10a", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", " ", "0"}], " ", "//",
   " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82847114308895*^9, 3.8284711529518137`*^9}, 
   3.828471330860516*^9},
 CellLabel->
  "In[201]:=",ExpressionUUID->"2e7cf00e-e68c-4fc7-85c1-3576bf32cc1c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"Q", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["u", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"P", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["u", "2"]}],
      MultilineFunction->None]}]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828471139951199*^9, 3.828471153447815*^9}, 
   3.828471330860812*^9},
 CellLabel->
  "Out[201]//TraditionalForm=",ExpressionUUID->"c3fd777b-18b1-4f70-80c1-\
cbad49001d67"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq10b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Probably", " ", "just", " ", "need", " ", "numerator"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq10b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq3b", " ", "/.", " ", "uvmDerivatives"}], " ", "//", " ", 
      "Expand"}], " ", "//", " ", "Simplify"}], "   ", "//", " ", 
    "Together"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq10b", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284704734346113`*^9, 3.828470477943741*^9}, {
   3.828470573026783*^9, 3.8284705910815268`*^9}, {3.828470800592585*^9, 
   3.828470837895967*^9}, 3.828471330860979*^9},
 CellLabel->
  "In[176]:=",ExpressionUUID->"b1cae94c-e866-413d-840d-5285b25804b1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"P", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["v", "2"]}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      RowBox[{"Q", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["v", "2"]}],
       MultilineFunction->None]}]}], 
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}]], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828470474543207*^9, 3.82847047842004*^9}, {
   3.828470578023734*^9, 3.828470591645274*^9}, 3.8284708038320217`*^9, 
   3.828470838484476*^9, 3.8284713308613577`*^9},
 CellLabel->
  "Out[178]//TraditionalForm=",ExpressionUUID->"18991891-4f3e-46f7-9921-\
e891ce983fd7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Numerator", "[", 
    RowBox[{"eq10b", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", " ", "0"}], " ", "//",
   " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828471165720133*^9, 3.8284711774240017`*^9}, 
   3.8284713308721027`*^9},
 CellLabel->
  "In[204]:=",ExpressionUUID->"877b3d3b-f600-4907-9724-425ec3b35eea"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"Q", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["v", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"P", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["v", "2"]}],
      MultilineFunction->None]}]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284711675513353`*^9, 3.82847117796693*^9}, 
   3.828471330872538*^9},
 CellLabel->
  "Out[204]//TraditionalForm=",ExpressionUUID->"7205f4fb-1a05-4249-b277-\
040d17de8261"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"eq4", " ", "/.", " ", "uvmDerivatives"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}], ")"}], "    ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284706183265877`*^9, 3.828470633397943*^9}, {
   3.828470884424492*^9, 3.828470886670437*^9}, {3.8284709960183983`*^9, 
   3.828470998359557*^9}, 3.828471330872703*^9},
 CellLabel->
  "In[197]:=",ExpressionUUID->"3a693c6b-216a-46fc-839e-f1f8c2920012"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"P", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{
        RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
        RowBox[{"\[PartialD]", "v"}]}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      RowBox[{"Q", "(", 
       RowBox[{"u", ",", "v"}], ")"}], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{
        RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
        RowBox[{"\[PartialD]", "v"}]}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}]}], 
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}]], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828470619706675*^9, 3.8284706338475647`*^9}, 
   3.828470894093401*^9, 3.828471095703075*^9, 3.828471330872994*^9},
 CellLabel->
  "Out[197]//TraditionalForm=",ExpressionUUID->"c9a87c9f-e98f-4701-baac-\
acd4fd123e7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Numerator", "[", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"eq4", " ", "/.", " ", "uvmDerivatives"}], " ", "//", " ", 
       "Expand"}], " ", "//", " ", "Simplify"}], ")"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828471004839979*^9, 3.8284710144319897`*^9}, {
   3.828471105456132*^9, 3.828471106927168*^9}, 3.828471330873124*^9},
 CellLabel->
  "In[198]:=",ExpressionUUID->"3b48caf3-e665-4333-9c39-15046c69babb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"P", "(", 
     RowBox[{"u", ",", "v"}], ")"}], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"Q", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "v"}]}],
     MultilineFunction->None]}], "+", 
   RowBox[{
    RowBox[{"Q", "(", 
     RowBox[{"u", ",", "v"}], ")"}], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"P", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "v"}]}],
     MultilineFunction->None]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"P", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "v"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"Q", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "u"}],
     MultilineFunction->None]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"P", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "u"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"Q", "(", 
       RowBox[{"u", ",", "v"}], ")"}]}], 
     RowBox[{"\[PartialD]", "v"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828471007725979*^9, 3.82847101484696*^9}, 
   3.8284711075676527`*^9, 3.8284713308734083`*^9},
 CellLabel->
  "Out[198]//TraditionalForm=",ExpressionUUID->"1a7632f6-9e22-486d-ba6b-\
8d7a22651fdf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Probably", " ", "just", " ", "need", " ", "numerator"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"eq5", " ", "/.", " ", "uvmDerivatives"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], "    ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82847067805182*^9, 3.828470678299552*^9}, {
   3.828470899185092*^9, 3.828470935478388*^9}, 
   3.828471330873509*^9},ExpressionUUID->"72b0fa8e-f517-43ad-bb44-\
f18abc01835e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}]}], 
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}]], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.828470678969624*^9, {3.8284709018895407`*^9, 3.828470927470351*^9}, 
   3.828471330873581*^9},
 CellLabel->
  "Out[183]//TraditionalForm=",ExpressionUUID->"c6a2c08b-015e-4877-907d-\
454fcb935a19"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Numerator", "[", 
    RowBox[{"eq12", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[Equal]", " ", "0"}], " ", "//",
   "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828471195721764*^9, 3.828471223719677*^9}, 
   3.828471330873706*^9},
 CellLabel->
  "In[205]:=",ExpressionUUID->"5cf0a9fc-9a9f-4777-b21e-d90187351853"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"P", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"Q", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"P", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"Q", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None]}]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.828471224392767*^9, 3.828471330873993*^9},
 CellLabel->
  "Out[205]//TraditionalForm=",ExpressionUUID->"aa28d81f-6869-4fb9-aa5c-\
c9a575c2e572"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Numerator", "[", 
        RowBox[{"eq12", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "\[Equal]", " ", "0"}], 
      " ", ",", 
      RowBox[{
       SuperscriptBox["Q", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828470969671906*^9, 3.828470992007984*^9}, {
   3.8284710272891617`*^9, 3.82847103041617*^9}, {3.828471064833212*^9, 
   3.828471070345845*^9}, 3.828471330874085*^9},
 CellLabel->
  "In[196]:=",ExpressionUUID->"502a241e-f5b5-4f0c-ae56-5efb6b993b3e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}]}], 
    RowBox[{"\[PartialD]", "u"}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"P", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "u"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"Q", "(", 
         RowBox[{"u", ",", "v"}], ")"}]}], 
       RowBox[{"\[PartialD]", "v"}],
       MultilineFunction->None]}], 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"P", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{"\[PartialD]", "v"}],
      MultilineFunction->None]]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828470971157469*^9, 3.8284709922968187`*^9}, 
   3.828471030640534*^9, {3.82847106694279*^9, 3.82847107067309*^9}, 
   3.828471330874157*^9},
 CellLabel->
  "Out[196]//TraditionalForm=",ExpressionUUID->"0a995590-7753-4c9d-856a-\
bfc1f8bef8f4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq11", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq11", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Numerator", "[", 
         RowBox[{
          RowBox[{"(", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"eq4", " ", "/.", " ", "uvmDerivatives"}], " ", "//", 
             " ", "Expand"}], " ", "//", " ", "Simplify"}], ")"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "/.", " ", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Numerator", "[", 
             RowBox[{"eq12", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "\[Equal]", " ", 
            "0"}], " ", ",", 
           RowBox[{
            SuperscriptBox["Q", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "]"}]}], " ", "//", " ", 
       "Expand"}], " ", "//", " ", "Simplify"}], ")"}], " ", "\[Equal]", 
    "0"}]}], "    ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq11", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828471021552185*^9, 3.8284710594805717`*^9}, {
   3.828471237138266*^9, 3.828471242007538*^9}, 3.828471330874357*^9},
 CellLabel->
  "In[206]:=",ExpressionUUID->"c7d0fd36-3085-49e6-af68-3168e8c0c770"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"P", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"Q", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "v"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{
     RowBox[{"Q", "(", 
      RowBox[{"u", ",", "v"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"P", "(", 
        RowBox[{"u", ",", "v"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "v"}]}],
      MultilineFunction->None]}]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8284710426575317`*^9, 3.828471059844071*^9}, 
   3.828471242556669*^9, 3.828471330874638*^9},
 CellLabel->
  "Out[208]//TraditionalForm=",ExpressionUUID->"49a004ca-53fe-4a06-8dd2-\
8c85574d54c8"]
}, Closed]]
},
WindowSize->{1276, 671},
WindowMargins->{{1, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"02bdb8e9-e16d-487e-8a8d-105cebda66d0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1246, 18, 97, "Title",ExpressionUUID->"dd1fd1d2-ef76-44e0-833b-901b272b2f22",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1829, 42, 649, 12, 76, "Author",ExpressionUUID->"b85a412b-a21f-4d64-a95a-620dcea58869",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[2493, 57, 301, 7, 84, "Input",ExpressionUUID->"2b495783-4a6e-4dfd-9e7b-3cff55994a46"],
Cell[2797, 66, 308, 8, 84, "Input",ExpressionUUID->"98b11a63-07ca-4857-8181-1cbf6c581afc"],
Cell[CellGroupData[{
Cell[3130, 78, 228, 4, 69, "Section",ExpressionUUID->"fd2f3ffd-f0f7-4af6-b725-ba127b451200",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3361, 84, 434, 9, 63, "Input",ExpressionUUID->"5056f2ee-79fe-45cd-a6a7-ea8116bf1620",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3798, 95, 1117, 18, 43, "Output",ExpressionUUID->"ba595a01-3def-42bb-8c99-106236143e14",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4952, 118, 568, 9, 55, "Section",ExpressionUUID->"48091760-dbd0-4a7b-9e05-a12c0e48128e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[5523, 129, 413, 8, 63, "Input",ExpressionUUID->"f0188a56-52a4-4ab1-9bdd-74c2929bcbe3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[5939, 139, 358, 7, 43, "Output",ExpressionUUID->"4cfb5a6b-db38-4ea9-9382-19933e7b1409",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6334, 151, 228, 4, 55, "Section",ExpressionUUID->"6a5057b4-18c0-405e-acae-cf3a4fbc50e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[6565, 157, 1641, 44, 189, "Input",ExpressionUUID->"289a66fb-2d6a-4abb-97b0-4227dbb0af0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8209, 203, 1328, 23, 24, "Print",ExpressionUUID->"8a9ab5e5-9dc5-446c-9f8a-3bcb27cf39fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9540, 228, 1345, 24, 24, "Print",ExpressionUUID->"3511d6f1-8cf6-42d2-b513-8c2fd35dd352",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10888, 254, 1282, 20, 41, "Output",ExpressionUUID->"e3ccdf84-cb82-4fd7-bfb1-587c6a9b96f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12173, 276, 246, 4, 41, "Input",ExpressionUUID->"0d545c9e-154f-4804-b0e5-06634cea3993",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[12456, 285, 240, 4, 55, "Section",ExpressionUUID->"01ae53ce-3a59-42b3-bbde-74623c4e6322",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[12699, 291, 2548, 57, 420, "Input",ExpressionUUID->"942b75e5-ab4c-42c6-a28d-1f3b41328f68",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[15250, 350, 2493, 73, 321, "Output",ExpressionUUID->"483b37e0-a9dc-4a71-bef0-214296b059db",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[17780, 428, 362, 6, 55, "Section",ExpressionUUID->"d1d14b0e-c321-47a7-92dc-4f2f010a5047",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[18145, 436, 1659, 41, 126, "Input",ExpressionUUID->"340f2cf9-1725-46f6-a028-217a76db4d46",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[19807, 479, 1055, 26, 84, "Input",ExpressionUUID->"56e481c8-1169-4b23-93a4-6b4972eb9bb6",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20899, 510, 294, 7, 55, "Section",ExpressionUUID->"9bca76dd-af43-4429-b88a-75dff7fa82f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21196, 519, 850, 22, 86, "Input",ExpressionUUID->"fdc87d61-d9cf-42ed-9b55-69e4a3ede28a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22049, 543, 702, 19, 44, "Output",ExpressionUUID->"5d7bee17-a662-4389-a414-f8edd0b0a277",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22754, 564, 457, 10, 41, "Input",ExpressionUUID->"872b5de5-f654-465e-b1cb-06e5aba5bfe3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23214, 576, 1141, 34, 113, "Output",ExpressionUUID->"3f42fe10-223f-44ee-863a-b5e941280e94",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[24358, 612, 1245, 27, 210, "Input",ExpressionUUID->"eed8fec4-8914-4df8-87d1-ccc29f03ed49",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25606, 641, 1206, 40, 123, "Output",ExpressionUUID->"c3f42538-8521-4946-9def-b12166890321",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26815, 683, 691, 14, 105, "Input",ExpressionUUID->"666fb2d7-3e0c-4d53-b43a-e03e864568c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27509, 699, 1563, 47, 113, "Output",ExpressionUUID->"c06dee0a-b8e5-4798-831d-cd8a51698a94",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29075, 748, 629, 13, 105, "Input",ExpressionUUID->"d5fd18c1-a706-4193-b44e-4cc51e57e8a8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29707, 763, 1431, 42, 113, "Output",ExpressionUUID->"4feb7e52-7d1d-443a-9079-cecdd99382b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31141, 807, 410, 9, 41, "Input",ExpressionUUID->"6c9aa4a8-e23f-4543-8541-e1793b7b5ab6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31554, 818, 773, 22, 101, "Output",ExpressionUUID->"b83e5c46-68a9-462b-ab75-b064d3346aaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32330, 842, 408, 9, 41, "Input",ExpressionUUID->"e711f2b7-2aee-4e9b-9e84-e883bae3b626",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32741, 853, 773, 22, 101, "Output",ExpressionUUID->"cf3c6880-706f-4aed-bdd6-c6688760077e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[33551, 880, 230, 4, 55, "Section",ExpressionUUID->"a9352083-1250-4919-b723-d9a10a82c5ef",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[33784, 886, 5726, 130, 714, "Input",ExpressionUUID->"1fde8ad4-cce6-4857-99b4-dbf4b3b1f6a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39513, 1018, 1110, 22, 65, "Input",ExpressionUUID->"be04bafd-cadd-421c-9c90-154a135d3bbd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[40626, 1042, 284, 5, 41, "Output",ExpressionUUID->"151bccd7-ef0c-4249-83c6-a8eaf6591807",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[40913, 1049, 241, 4, 41, "Input",ExpressionUUID->"af729d62-e62e-4e50-bb40-a8348cbe0e0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41157, 1055, 812, 18, 84, "Input",ExpressionUUID->"c4246339-8373-4435-99c7-3504c66f4a7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41972, 1075, 651, 12, 45, "Output",ExpressionUUID->"6e7ca2b6-21b8-4cde-a2cb-a9dac681bacb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42626, 1089, 570, 8, 41, "Output",ExpressionUUID->"a010078d-0a8e-4981-b4a7-aad2e788924d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[43199, 1099, 1908, 51, 108, "Output",ExpressionUUID->"ad3c61fd-56d4-4aeb-b619-ef7d65fef4a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45110, 1152, 815, 18, 84, "Input",ExpressionUUID->"053edf52-7c4c-45f3-bee6-53c16d0f3295",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45928, 1172, 774, 15, 45, "Output",ExpressionUUID->"f95abcba-1b18-4059-a057-6911b4174bf9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46705, 1189, 675, 10, 41, "Output",ExpressionUUID->"413d3a74-083c-4bb4-bb1e-46e9d50a0b69",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[47383, 1201, 19485, 546, 368, "Output",ExpressionUUID->"9bbfffbd-7575-4661-84aa-12113cf6b937",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[66871, 1749, 812, 18, 84, "Input",ExpressionUUID->"38df406a-5c64-4132-aae6-d74497319f0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[67686, 1769, 644, 11, 45, "Output",ExpressionUUID->"f7c8e01f-0978-46cb-8d71-bf2afdb155f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[68333, 1782, 586, 8, 41, "Output",ExpressionUUID->"400d7f3d-42bf-44a5-9486-1e3e24bbad8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[68922, 1792, 117852, 2932, 488, "Output",ExpressionUUID->"86f977a6-95e2-4355-a29c-fe7ddb10750b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[186777, 4726, 807, 18, 84, "Input",ExpressionUUID->"2f4ef8a5-5b34-4b34-a6f2-06f7874032d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[187587, 4746, 629, 11, 45, "Output",ExpressionUUID->"78f5274b-b4b3-4b0c-8e5c-9e60b6f7248f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[188219, 4759, 587, 8, 41, "Output",ExpressionUUID->"b5ec97bd-304f-4868-a67c-5ab0dc3b710a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[188809, 4769, 12254, 343, 158, "Output",ExpressionUUID->"1ab1324d-28b1-4566-8c6a-854aec4031c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[201066, 5114, 810, 18, 84, "Input",ExpressionUUID->"f5a8b2f1-4986-4316-8199-963f451ce9fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[201879, 5134, 593, 10, 41, "Output",ExpressionUUID->"b18950f7-6749-418a-a149-246056b501f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[202475, 5146, 586, 8, 41, "Output",ExpressionUUID->"21b091b7-5c25-4c00-a6a3-e16697654000",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[203064, 5156, 2518, 70, 74, "Output",ExpressionUUID->"e7bc653e-00c0-4c10-b410-afafd151d008",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[205585, 5228, 893, 19, 84, "Input",ExpressionUUID->"da769b89-1622-4f26-9238-3441ce985ee8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[206481, 5249, 263, 5, 41, "Output",ExpressionUUID->"6702f735-276c-427c-b1ad-7c96f39806a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[206747, 5256, 262, 3, 41, "Output",ExpressionUUID->"90e994dd-f313-41a1-b951-70982d367ebd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[207012, 5261, 19078, 544, 260, "Output",ExpressionUUID->"7ad37037-a78a-4058-8299-e1be0b071c0d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[226093, 5807, 792, 18, 84, "Input",ExpressionUUID->"9f84e373-eaf2-4dcd-9a1d-e21785d97b19",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[226888, 5827, 568, 11, 45, "Output",ExpressionUUID->"47301afc-12a2-4afd-90a9-423821325742",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[227459, 5840, 526, 8, 41, "Output",ExpressionUUID->"9779aa5a-dc69-41ab-9381-a1d32ca5d142",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[227988, 5850, 11913, 330, 158, "Output",ExpressionUUID->"1e8e50ef-0b00-4d23-b83d-eba7404b04cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[239904, 6182, 856, 19, 84, "Input",ExpressionUUID->"3d150ce3-5ca8-4d0c-91ff-30ccced0a720",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[240763, 6203, 647, 12, 45, "Output",ExpressionUUID->"f421dc62-cced-4ae7-a950-6e1bdba1197d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[241413, 6217, 590, 9, 41, "Output",ExpressionUUID->"563f2a81-4ced-4dd4-97a6-e4e09eb3759b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[242006, 6228, 77362, 1973, 488, "Output",ExpressionUUID->"6f0a1124-3f15-4ccf-9de6-d097827a7750",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[319371, 8203, 817, 18, 84, "Input",ExpressionUUID->"460f7a95-8f98-4cbf-a2f3-71eb6f4ecce4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[320191, 8223, 304, 6, 45, "Output",ExpressionUUID->"c2a9ccf4-91c8-4315-a161-ecd4cbbc9130",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[320498, 8231, 255, 3, 41, "Output",ExpressionUUID->"16c74433-33cb-4208-a262-44356c04d302",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[320756, 8236, 121279, 2920, 398, "Output",ExpressionUUID->"f5bba3d9-8ed2-4256-b434-0b8fc2b0b1b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[442072, 11161, 251, 4, 55, "Section",ExpressionUUID->"f409dd95-f1c1-4632-b98c-a17ca5afd82e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[442326, 11167, 1945, 49, 210, "Input",ExpressionUUID->"b6c0a746-2dbd-4afe-a935-805a9f0807ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[444274, 11218, 10489, 297, 188, "Output",ExpressionUUID->"4322a800-2592-4d73-a7ef-5bf2c8c9db77",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[454766, 11517, 1947, 48, 210, "Input",ExpressionUUID->"b12c2643-6f1a-464e-9a6d-b1ca32ee9eb0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[456716, 11567, 10833, 305, 188, "Output",ExpressionUUID->"ac1d0756-a6b2-48a6-903e-b558aa64436c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[467552, 11874, 1281, 32, 107, "Input",ExpressionUUID->"955521ad-efbd-457a-9636-f717f06e80aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[468836, 11908, 1564, 49, 74, "Output",ExpressionUUID->"443ba830-c45d-4a90-8847-f40e270b8ff7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[470403, 11959, 1254, 31, 107, "Input",ExpressionUUID->"31fd5430-98c6-491a-9ce2-b958396a7aa5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[471660, 11992, 1538, 49, 74, "Output",ExpressionUUID->"f3340500-37f3-4607-a742-770263f5b4f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[473201, 12043, 1063, 27, 107, "Input",ExpressionUUID->"84a9168b-e3ab-49b8-b90b-7e9eb0e5cc48",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[474267, 12072, 978, 30, 72, "Output",ExpressionUUID->"95f68cf6-d42b-4548-aa73-9e34ddfe90aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[475248, 12104, 1463, 36, 107, "Input",ExpressionUUID->"3df08946-8df1-4ddd-b6b3-6be59cd7de54",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[476714, 12142, 1433, 45, 72, "Output",ExpressionUUID->"493210c1-3d89-4698-af2c-700518d4620a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[478184, 12192, 245, 4, 55, "Section",ExpressionUUID->"e08b0020-b15b-406f-940b-9247c61585b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[478432, 12198, 946, 23, 196, "Input",ExpressionUUID->"6a8b79c5-5ec9-4205-9cc1-ce49c265af32",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[479381, 12223, 1114, 35, 87, "Output",ExpressionUUID->"3eec33d2-6a5a-4afd-bdc3-65525bb82f26",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[480498, 12260, 695, 19, 41, "Input",ExpressionUUID->"f37becf0-3ea1-41e8-b80d-74ebeab3bde0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[481196, 12281, 1079, 36, 87, "Output",ExpressionUUID->"a338198e-7c31-4450-9c55-94d9b6ec2340",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[482278, 12319, 1244, 32, 147, "Input",ExpressionUUID->"84595473-9620-41a3-9217-0cd6aec5474c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[483525, 12353, 732, 21, 44, "Output",ExpressionUUID->"58ed8479-04cf-47c9-a9ec-dc40a959a1d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[484260, 12376, 663, 19, 44, "Output",ExpressionUUID->"ef46431e-1db9-480a-a376-a69debf948bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[484926, 12397, 473, 13, 41, "Output",ExpressionUUID->"015c05b0-8258-4455-b9bd-9aa04c62cd45",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[485436, 12415, 295, 7, 55, "Section",ExpressionUUID->"7a6b5cce-5f6c-4640-8299-dd65718f2f92",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[485734, 12424, 1365, 33, 105, "Input",ExpressionUUID->"99e4f9b8-f83b-4cde-8c16-cc437c16621b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[487102, 12459, 1665, 53, 105, "Output",ExpressionUUID->"2b7cd603-6a94-4d41-b438-58d559329c9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[488770, 12514, 1749, 39, 231, "Input",ExpressionUUID->"15bcb593-295c-45c9-8518-803b72979c6b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[490522, 12555, 20039, 591, 670, "Output",ExpressionUUID->"44d518ac-ec14-4f7c-9b58-18fff9d5e982",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[510564, 13148, 823, 19, 105, "Input",ExpressionUUID->"99bd7839-5b11-4c8b-901c-dfacda6f9807",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[511390, 13169, 1248, 39, 84, "Output",ExpressionUUID->"539b3886-945b-4b18-8123-f7c07f1cf10e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[512641, 13210, 431, 11, 41, "Input",ExpressionUUID->"2e7cf00e-e68c-4fc7-85c1-3576bf32cc1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[513075, 13223, 1010, 32, 74, "Output",ExpressionUUID->"c3fd777b-18b1-4f70-80c1-cbad49001d67",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[514088, 13257, 901, 20, 105, "Input",ExpressionUUID->"b1cae94c-e866-413d-840d-5285b25804b1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[514992, 13279, 1293, 39, 84, "Output",ExpressionUUID->"18991891-4f3e-46f7-9921-e891ce983fd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[516288, 13320, 434, 11, 41, "Input",ExpressionUUID->"877b3d3b-f600-4907-9724-425ec3b35eea",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[516725, 13333, 1011, 32, 74, "Output",ExpressionUUID->"7205f4fb-1a05-4249-b277-040d17de8261",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[517739, 13367, 570, 13, 41, "Input",ExpressionUUID->"3a693c6b-216a-46fc-839e-f1f8c2920012",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[518312, 13382, 2150, 66, 82, "Output",ExpressionUUID->"c9a87c9f-e98f-4701-baac-acd4fd123e7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[520465, 13450, 615, 15, 41, "Input",ExpressionUUID->"3b48caf3-e665-4333-9c39-15046c69babb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[521083, 13467, 1827, 58, 72, "Output",ExpressionUUID->"1a7632f6-9e22-486d-ba6b-8d7a22651fdf",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[522913, 13527, 768, 18, 105, "Input",ExpressionUUID->"72b0fa8e-f517-43ad-bb44-f18abc01835e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[523684, 13547, 1357, 43, 78, "Output",ExpressionUUID->"c6a2c08b-015e-4877-907d-454fcb935a19",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[525044, 13592, 424, 11, 41, "Input",ExpressionUUID->"5cf0a9fc-9a9f-4777-b21e-d90187351853",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[525471, 13605, 1112, 35, 69, "Output",ExpressionUUID->"aa28d81f-6869-4fb9-aa5c-c9a575c2e572",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[526586, 13642, 924, 25, 44, "Input",ExpressionUUID->"502a241e-f5b5-4f0c-ae56-5efb6b993b3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[527513, 13669, 1198, 36, 85, "Output",ExpressionUUID->"0a995590-7753-4c9d-856a-bfc1f8bef8f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[528714, 13707, 1605, 40, 107, "Input",ExpressionUUID->"c7d0fd36-3085-49e6-af68-3168e8c0c770",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[530322, 13749, 1120, 34, 72, "Output",ExpressionUUID->"49a004ca-53fe-4a06-8dd2-8c85574d54c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]]
}
]
*)