Absolute Stability of Melvin's Magnetic Universe by Thorne.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[    651556,      15501]
NotebookOptionsPosition[    636210,      15266]
NotebookOutlinePosition[    636672,      15283]
CellTagsIndexPosition[    636629,      15280]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for:   Absolute Stability of Melvin\[CloseCurlyQuote]s Magnetic \
Universe by Thorne\
\>", "Title",
 CellChangeTimes->{{3.82164204328281*^9, 3.821642078465411*^9}, {
  3.824885923958453*^9, 3.824885924998506*^9}, {3.8268810938734303`*^9, 
  3.8268811130438623`*^9}},
 TextAlignment->Center,ExpressionUUID->"cb43274e-9d4f-4ce3-b692-9de56a1431c1"],

Cell["\<\
Geoff Cope
University of Utah
April 8th, 2021\
\>", "Author",
 CellChangeTimes->{{3.821642082106984*^9, 3.821642102449288*^9}, {
  3.8268811306289186`*^9, 3.8268811356840763`*^9}},
 TextAlignment->Center,ExpressionUUID->"a1c68030-857c-407d-bf67-8260748aa173"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 3.8209446931410646`*^9}, 
   3.821003174286096*^9, 
   3.824885742675913*^9},ExpressionUUID->"797d48ef-b494-4545-ac39-\
2ea9cca61bce"],

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}, 
   3.8210031742861757`*^9, 3.824885742676092*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"aa044fe1-72cb-4afc-b512-2796a856a24c"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821003174286273*^9, 3.8210047829017773`*^9, 3.8210049310146933`*^9, 
   3.821434047491091*^9, 3.8214366973962517`*^9, 3.82143739007482*^9, 
   3.821447570119733*^9, 3.821450681794211*^9, 3.821528518270012*^9, 
   3.8215520764573097`*^9, 3.821556094561881*^9, 3.8215677318524647`*^9, 
   3.8215696512771072`*^9, 3.821569897068145*^9, 3.821570746092523*^9, 
   3.821573886225853*^9, 3.821629733663913*^9, 3.821634749010098*^9, 
   3.821642210202216*^9, 3.821642548580037*^9, 3.8216556229898567`*^9, 
   3.82488574267625*^9, 3.826880164988511*^9, 3.826881285171165*^9, 
   3.8268814728761263`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"332042a9-d0c6-43f6-a0d0-41334e5a9371"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink To Original Paper ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8215518766462107`*^9, 3.8215518957168427`*^9}, {
   3.82155568333683*^9, 3.821555691754923*^9}, 3.8215672369525747`*^9, {
   3.821642129665523*^9, 3.8216421327294073`*^9}, 3.821655102317462*^9, 
   3.824885729368396*^9, {3.8268812900575953`*^9, 3.826881296848538*^9}, 
   3.843083807894658*^9},ExpressionUUID->"95c71db4-a7f7-4849-9d3a-\
dc8619cac852"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Absolute Stability of Melvin's Magnetic Universe by Thorne\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://authors.library.caltech.edu/5184/1/THOpr65a.pdf\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843083135302258*^9, 3.8430831647646112`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"203eb328-e469-4100-9dc9-e0d299265ef1"],

Cell[BoxData[
 TemplateBox[{
  "\"Absolute Stability of Melvin's Magnetic Universe by Thorne\"", 
   "https://authors.library.caltech.edu/5184/1/THOpr65a.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843083157359795*^9, 3.843083164765501*^9}},
 CellLabel->"Out[72]=",ExpressionUUID->"6e93bc64-807b-4490-a426-998a6230a4c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Energy of Infinitely Long, Cylindrically Symmetric Systems in General \
Relativity\>\"", ",", "\[IndentingNewLine]", 
    "\"\<https://authors.library.caltech.edu/3212/\>\""}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"for", " ", "PDF"}], " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82205623114914*^9, 3.822056261224819*^9}, 
   3.824885729368568*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"8d6611da-390c-477f-aa09-12efc3fd09bc"],

Cell[BoxData[
 TemplateBox[{
  "\"Energy of Infinitely Long, Cylindrically Symmetric Systems in General \
Relativity\"", "https://authors.library.caltech.edu/3212/"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8220562546318083`*^9, 3.824885729368701*^9, 
  3.826880165130805*^9, 3.8268812856944447`*^9, 3.8268814729252853`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"00ee8b07-c08c-4bdb-b2fd-c16f22674fdd"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Energy of Infinitely Long, Cylindrically Symmetric Systems in General \
Relativity\>\"", ",", " ", 
   "\"\<https://journals.aps.org/pr/abstract/10.1103/PhysRev.138.B251\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8208507501415854`*^9, 3.820850775880879*^9}, 
   3.8215518818601303`*^9, 3.8215672369527903`*^9, {3.821642118570116*^9, 
   3.821642127921604*^9}, {3.821655070879541*^9, 3.821655092717655*^9}, 
   3.824885729368792*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"bbf494c3-6df9-4350-9e9c-27945a7d3f9d"],

Cell[BoxData[
 TemplateBox[{
  "\"Energy of Infinitely Long, Cylindrically Symmetric Systems in General \
Relativity\"", 
   "https://journals.aps.org/pr/abstract/10.1103/PhysRev.138.B251"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.821655092954995*^9, 3.821655623044415*^9, 
  3.824885729368886*^9, 3.826880165144958*^9, 3.826881285756056*^9, 
  3.826881472937688*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"847c1d43-9d3d-4e8b-ab23-ce9ffa73af91"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Also", " ", "link", " ", "to", " ", "Griffiths", " ", "Exact", " ", 
     "Spacetimes", " ", "for", " ", "Pags", " ", "443"}], " ", "-", " ", 
    RowBox[{"445", " ", "discussion", " ", "of", " ", "C", " ", "energy"}]}], 
   " ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.822394504412737*^9, 3.822394551969963*^9}, 
   3.824885729368973*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"dbf38b96-e801-486d-98c7-71141a6b4f51"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821551919589994*^9, 3.821551930557144*^9}, {
   3.821555696673026*^9, 3.8215556989429073`*^9}, 3.821567236953032*^9, 
   3.821567272488586*^9, {3.82156737850808*^9, 3.8215673990560627`*^9}, 
   3.82164194517159*^9, 3.821641989056374*^9},
 CellLabel->"",ExpressionUUID->"8e83c522-233d-4782-9e56-09436d8c6d8b"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], "\[IndentingNewLine]"}], "\n", 
 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.821551917620549*^9, 3.8215672369531183`*^9, 3.821567272488824*^9, {
   3.8215673785082893`*^9, 3.821567399056244*^9}, 3.8216419451717243`*^9, 
   3.821641989056572*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"2662b949-9ddf-4b04-ab21-d57fe4edf0ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8215519176207027`*^9, 3.8215520767241707`*^9, 3.821556094732059*^9, {
   3.821567236953783*^9, 3.821567272489006*^9}, {3.821567378508456*^9, 
   3.8215673990564013`*^9}, 3.8215677319931917`*^9, 3.82156965138104*^9, 
   3.821569897226096*^9, 3.821570746233572*^9, 3.821572031513422*^9, 
   3.8215738863765497`*^9, 3.8216297337724733`*^9, 3.821634749113043*^9, 
   3.821641945172081*^9, 3.821641989056682*^9, 3.821642210388856*^9, 
   3.821642548746751*^9, {3.821642814989276*^9, 3.821642827251955*^9}, 
   3.821655623175942*^9, 3.826880165227027*^9, 3.8268812859514513`*^9, 
   3.826881473118129*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"e29a5e5e-a5da-4e6b-9552-6de9447670fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"155 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "155 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8215519176207027`*^9, 3.8215520767241707`*^9, 3.821556094732059*^9, {
   3.821567236953783*^9, 3.821567272489006*^9}, {3.821567378508456*^9, 
   3.8215673990564013`*^9}, 3.8215677319931917`*^9, 3.82156965138104*^9, 
   3.821569897226096*^9, 3.821570746233572*^9, 3.821572031513422*^9, 
   3.8215738863765497`*^9, 3.8216297337724733`*^9, 3.821634749113043*^9, 
   3.821641945172081*^9, 3.821641989056682*^9, 3.821642210388856*^9, 
   3.821642548746751*^9, {3.821642814989276*^9, 3.821642827251955*^9}, 
   3.821655623175942*^9, 3.826880165227027*^9, 3.8268812859514513`*^9, 
   3.826881473121441*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"a6316c95-d346-4a82-a6b3-d4dd3d00965e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"VariationalMethods`\"\>", ",", "\<\"DocumentationSearch`\"\>", 
   ",", "\<\"ResourceLocator`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.821551917620934*^9, 3.821552076731707*^9, 3.821556094736636*^9, {
   3.8215672369546947`*^9, 3.8215672724893827`*^9}, {3.8215673785086718`*^9, 
   3.821567399056723*^9}, 3.821567731998136*^9, 3.821569651386429*^9, 
   3.821569897231812*^9, 3.82157074624013*^9, 3.821572031519597*^9, 
   3.821573886382612*^9, 3.821629733778109*^9, 3.8216347491202927`*^9, 
   3.8216419451724157`*^9, 3.821641989056902*^9, 3.821642210392713*^9, 
   3.821642548750556*^9, {3.8216428149947*^9, 3.821642827258917*^9}, 
   3.821655623182687*^9, 3.8268801652397127`*^9, 3.826881285962481*^9, 
   3.826881473122946*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"1b945702-7c64-4f63-b8d9-09cc9dc49f7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}], " "}]], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821655465720264*^9, 3.8216554765203533`*^9}, 
   3.8248857216942577`*^9, 3.826881303449651*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"554c696c-13d4-40c3-82c9-eb7e627597d9"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.821551917621026*^9, {3.821567236955097*^9, 3.821567251228156*^9}, 
   3.8215673064827547`*^9, {3.821567378508761*^9, 3.821567399056861*^9}, 
   3.821641945173293*^9, {3.821641981469966*^9, 3.8216419964835663`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"9e7fc8d2-298e-4ba5-8e97-c524ca7ac441"]
}, 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->"44ee9c62-190f-4014-8001-\
66ffa54a9a11"],

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[4]:=",ExpressionUUID->"e68602de-8899-486a-8754-ecbd6be182ce"],

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[6]:=",ExpressionUUID->"6599ff01-3951-452e-84b7-7659fc6da2bd"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Line Element and Metric 8:  Melvin\[CloseCurlyQuote]s Magnetic Universe In \
Hyperbolic Canonical Coordinates\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826881853965415*^9, 
  3.826881886414728*^9}},ExpressionUUID->"0b0a807f-3a9e-4413-8362-\
819314333837"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq8", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox["a", "2"], "(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}], "]"}], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       SuperscriptBox["d\[Tau]", "2"], "-", " ", 
       SuperscriptBox["d\[Rho]", "2"]}], ")"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"2", "\[Psi]"}], "]"}], 
     SuperscriptBox["d\[Zeta]", "2"]}], " ", "-", " ", 
    RowBox[{
     SuperscriptBox["\[Rho]", "2"], " ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "\[Psi]"}], "]"}], " ", 
     SuperscriptBox["d\[Phi]", "2"]}]}], " ", ")"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826881201148836*^9, 3.826881277473103*^9}, 
   3.826881860178605*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"8ae1de71-bae4-4879-8684-109325fa8ce5"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["d\[Rho]", "2"]}], "+", 
       SuperscriptBox["d\[Tau]", "2"]}], ")"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "-", 
    RowBox[{
     SuperscriptBox["d\[Zeta]", "2"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[Psi]"}]]}], "-", 
    RowBox[{
     SuperscriptBox["d\[Phi]", "2"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Psi]"}]], " ", 
     SuperscriptBox["\[Rho]", "2"]}]}], ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82688128044197*^9, 3.826881286170333*^9}, 
   3.826881473184216*^9, 3.826881860179182*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"320b2ba1-9fd7-43d0-b13a-9d174ade83df"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq8", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"d\[Tau]", ",", "d\[Rho]", ",", "d\[Zeta]", ",", "d\[Phi]"}], 
     "}"}]}], "]"}], " ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8268815224809427`*^9, 3.8268815349666643`*^9}, 
   3.82688186017938*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"510e3a7d-3c63-4f1e-8404-5e17cda47970"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Psi]"}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[Psi]"}]], " ", 
       SuperscriptBox["\[Rho]", "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.826881535224626*^9, 3.826881860179789*^9},
 CellLabel->
  "Out[44]//MatrixForm=",ExpressionUUID->"1b25e8c0-06fe-4863-85ba-\
6e338f2837ee"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq8a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Gamma]", "\[Rule]", " ", 
      RowBox[{"\[Gamma]", "[", 
       RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Psi]", "\[Rule]", " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq8a", " ", "//", " ", "TableForm", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826881537897366*^9, 3.8268815755187798`*^9}, 
   3.826881860179949*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"06e55aa3-0d38-4914-9f0f-0697a3c4a6c0"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Gamma]", "\[Rule]", 
       RowBox[{"\[Gamma]", "[", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}]},
     {
      RowBox[{"\[Psi]", "\[Rule]", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}]}
    },
    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.8268815762149553`*^9, 3.826881860180225*^9},
 CellLabel->
  "Out[47]//TableForm=",ExpressionUUID->"b24884e8-f3cd-4a2d-b20b-\
ddf1d6ed314a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric8", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric8", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq8", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"d\[Tau]", ",", "d\[Rho]", ",", "d\[Zeta]", ",", "d\[Phi]"}], 
       "}"}]}], "]"}], "  ", "/.", " ", "eq8a"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric8", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.826881305459899*^9, 3.8268813368736877`*^9}, {
   3.8268815807123537`*^9, 3.826881583287977*^9}, 3.826881860180366*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"2dd76fd1-48c0-4be4-8110-c2b322682274"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Gamma]", "[", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}], "-", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], ")"}]}]]}], "0", "0", 
      "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Gamma]", "[", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}], "-", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], ")"}]}]]}], "0", 
      "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}]], " ", 
       SuperscriptBox["\[Rho]", "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82688131839042*^9, 3.826881337268573*^9}, 
   3.826881473213995*^9, 3.826881583802732*^9, 3.8268818601806602`*^9},
 CellLabel->
  "Out[50]//MatrixForm=",ExpressionUUID->"3b9afbda-9891-45e6-bcd9-\
67c7c0585e0c"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Tensors Calculated For Metric 8 Melvin\[CloseCurlyQuote]s Magnetic Universe \
In Hyperbolic Canonical Coordinates\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.826881790326952*^9, 
  3.826881847910705*^9}},ExpressionUUID->"e1234d13-51f2-4a5e-a81f-\
5a0b515bc3b1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.826881380394356*^9, 
   3.826881386834999*^9}, 3.826881802340599*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"6bd4d020-6afc-4060-b72a-c3e957bf4fb7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "10.99", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric8\>\"", ",", " ", "metric8", ",", " ", 
     "\"\<HyperbolicCanonical\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(melvin\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]", ",", "\[Rho]", ",", "\[Zeta]", ",", "\[Phi]"}], "}"}],
      ",", " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", 
   "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.826881400921092*^9, 
   3.82688145724752*^9}, {3.8268816274244127`*^9, 3.826881629441675*^9}, 
   3.8268818023407507`*^9},ExpressionUUID->"36ac6c3c-c315-428e-b8b7-\
a70ce22e05e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10.997452`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8268814440845833`*^9, 3.826881474470709*^9}, 
   3.826881600560843*^9, 3.826881802340856*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"0210d62b-2ab9-4888-aded-96e1d0a9a46f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.826881802340975*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"cb5214ea-953f-474e-bf0c-773a57bbd82c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "melvin"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.826881474521142*^9, 
  3.826881631794093*^9, 3.826881802341082*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"334e8718-2840-481e-974b-344cd952dc25"],

Cell[BoxData["\<\"HyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.826881474521142*^9, 
  3.8268816317980022`*^9, 3.826881802341177*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"e885beb0-86b6-40dd-9612-6b21a63cd911"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}], "-", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], ")"}]}]]}], "0", "0",
        "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}], "-", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], ")"}]}]]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.826881474521142*^9, 
  3.826881631825979*^9, 3.826881802341248*^9},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"f7d62a9d-08f1-4623-862f-\
987891ae351e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.82688180234137*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"3d3d1593-797a-4fe6-8131-022b5560aba0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.826881474565548*^9, 3.8268816318714542`*^9, 
   3.826881802341457*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"b53e55bc-8a0b-4a3a-9d5a-691e8f0feca5"],

Cell[BoxData["\<\"ChristoffelSymbolHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.826881474565548*^9, 3.8268816318778353`*^9, 
   3.826881802341538*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"d8330bfc-1894-4075-9ad8-6afde347c7cc"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              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[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              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[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"4", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              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[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              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[{
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              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[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              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[{"\[Rho]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}], "-", "1"}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             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"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             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[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             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[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              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", "\[Rho]"], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              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[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox["1", "\[Rho]"], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              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", 10001.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.826881474565548*^9, 3.826881631934946*^9, 
   3.826881802341598*^9},
 CellLabel->
  "Out[57]//TraditionalForm=",ExpressionUUID->"86070448-504c-4a90-bb0b-\
f56c904d56c2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.826881802341714*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"cc798ec4-2bc6-49eb-bb34-69c58e4460eb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.826881474591073*^9, 
  3.8268816319469223`*^9, 3.826881802341818*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"dbe7520c-bf1c-4dd1-90db-ade0e84747bd"],

Cell[BoxData["\<\"RiemannTensorHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.826881474591073*^9, 
  3.82688163195153*^9, 3.826881802341917*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"cf436cca-0255-4845-abfc-086b6ced9618"],

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["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                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[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "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["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 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[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               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[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                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[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 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[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               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[{
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["a", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.826881474591073*^9, 
  3.8268816325594797`*^9, 3.826881802341998*^9},
 CellLabel->
  "Out[60]//TraditionalForm=",ExpressionUUID->"042bc834-68b7-4506-b0af-\
bfde5bb838c3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.826881802342122*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"3d9d68f2-4429-4d2e-b7a0-03b289715459"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8268814746410646`*^9, 
  3.826881632584209*^9, 3.826881802342206*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"d4c81742-0721-4f5e-ab05-86e75c75fdbd"],

Cell[BoxData["\<\"RicciTensorHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8268814746410646`*^9, 
  3.8268816325892963`*^9, 3.8268818023422947`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"cfa99fd2-7aa9-4837-bd4f-bccc1b4458ef"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"], 
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None]}]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None]}]}], 
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"2", " ", "\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}], ")"}]}], "\[Rho]"]}], "0"},
      {"0", "0", "0", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Tau]", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8268814746410646`*^9, 
  3.82688163264426*^9, 3.826881802342359*^9},
 CellLabel->
  "Out[63]//TraditionalForm=",ExpressionUUID->"d365f691-4b3e-4a06-9e7e-\
09cbe3ac34d5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.826881802342527*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"f827b374-9e38-4852-9295-2d2f6fdb7a1b"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8268814746749277`*^9, 
  3.826881632655861*^9, 3.826881802342637*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"803f83f5-4485-41e4-98cd-7d9f6b430b7c"],

Cell[BoxData["\<\"RicciScalarHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8268814746749277`*^9, 
  3.8268816326612577`*^9, 3.8268818023427343`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"55b542eb-97ee-4d0b-a316-f0d9c11869d9"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Rho]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["a", "2"], " ", "\[Rho]"}]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8268814746749277`*^9, 
  3.826881632693254*^9, 3.826881802342806*^9},
 CellLabel->
  "Out[66]//TraditionalForm=",ExpressionUUID->"e46dccc2-1df9-4d55-9dbb-\
5d17b34ab5ef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.826881802342929*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"580899ca-46c1-4bac-87af-bc52c2a8ab18"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8268814746901083`*^9, 3.826881632704444*^9, 
  3.8268818023430147`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"4028c13d-d497-4b4a-a408-b10bf2c896bf"],

Cell[BoxData["\<\"KretschmannScalarHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8268814746901083`*^9, 3.82688163270989*^9, 
  3.826881802343111*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"44676c6c-d969-4e8e-a49f-03f237a5659c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox["a", "4"], " ", 
      SuperscriptBox["\[Rho]", "2"]}]], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[Rho]", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}]}], ")"}]}]}], "-", 
          RowBox[{"8", " ", "\[Rho]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Rho]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", "\[Rho]", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", "\[Rho]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Rho]"}]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Tau]", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}]}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{"4", " ", "\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], ")"}], "3"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
       RowBox[{"4", " ", "\[Rho]", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Rho]"}]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Rho]"}]}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Tau]", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Rho]", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"14", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", "3"}], ")"}]}], 
       "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "3"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], ")"}], "2"]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], "-", 
          RowBox[{"4", " ", "\[Rho]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Tau]", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "4"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "4"]}], "-", 
       RowBox[{"4", " ", "\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "3"]}]}], ")"}]}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8268814746901083`*^9, 3.826881632860836*^9, 
  3.826881802343175*^9},
 CellLabel->
  "Out[69]//TraditionalForm=",ExpressionUUID->"86788607-e23f-4ee1-850e-\
91d56c37782a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.826881802343295*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"6a8889ac-f110-4a38-89a5-dafdbfc29abc"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.826881474723901*^9, 3.8268816329156847`*^9, 
   3.82688180234338*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"f520eb59-2397-4f41-9625-81dcf3b81f67"],

Cell[BoxData["\<\"EinsteinTensorHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.826881474723901*^9, 3.826881632920671*^9, 
   3.8268818023435783`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"3b5be2f3-78d5-4c4e-a72c-5a4b307aa5c7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "\[Rho]"], 
       
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None]}]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None]}]}], 
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "\[Rho]"], 
       "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}]}], ")"}]}], "\[Rho]"], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.826881474723901*^9, 3.8268816329652643`*^9, 
   3.82688180234365*^9},
 CellLabel->
  "Out[72]//TraditionalForm=",ExpressionUUID->"05e59e04-1fcb-4c43-aee9-\
6fa31475c383"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.826881802343836*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"c9661a70-8ba4-4d82-a9ee-f507f8b0a948"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.826881474752968*^9, 3.82688163297628*^9, 
   3.826881802343943*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"4d7c4da0-6b02-43a8-9503-6c2b35dbf6f5"],

Cell[BoxData["\<\"WeylTensorHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.826881474752968*^9, 3.826881632981248*^9, 
   3.826881802344075*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"2738bb91-f534-4d90-9c15-c0233d1f1ca6"],

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", 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"3", " ", "\[Rho]"}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"4", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"6", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "-", 
                   RowBox[{"6", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "\[Rho]"}]]}], 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]], "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["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"3", " ", "\[Rho]"}]], "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[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "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", "2"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                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[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"6", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "-", 
                   RowBox[{"6", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "\[Rho]"}]]}], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]], "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"4", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["a", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}], 
           FractionBox[
            RowBox[{
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                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", "6"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "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["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            SuperscriptBox["a", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.826881474752968*^9, 3.82688163395464*^9, 
   3.826881802344139*^9},
 CellLabel->
  "Out[75]//TraditionalForm=",ExpressionUUID->"78a4ffae-9a99-4f2a-b475-\
8e37b63f779a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.826881802344261*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"14d4b052-d9d5-46d4-a7f9-ffecaa671e2a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826881474795138*^9, 3.826881634042116*^9, 
  3.826881802344377*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"7b29c7a0-278f-44b1-8b20-c61f80f6c1cb"],

Cell[BoxData["\<\"CottonTensorHyperbolicCanonical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.826881474795138*^9, 3.826881634048012*^9, 
  3.82688180234447*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"f50d475c-7893-4e16-8606-c4d748afebd2"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", "1"}], 
                ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "3"]}], "-", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"10", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", "2"}], 
                ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "3"]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "2"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"5", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"3", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"5", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "3"]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Tau]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "2"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"14", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"4", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"5", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "3"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"14", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"12", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "3"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"5", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"14", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"12", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", "4"}], 
                  ")"}]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"8", " ", 
                 SuperscriptBox["\[Rho]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "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[{
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"14", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"5", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"5", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "3"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"14", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"12", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Tau]", "3"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"5", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"14", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"12", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"8", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", "4"}], 
                  ")"}]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"8", " ", 
                 SuperscriptBox["\[Rho]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "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", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "3"]}], "-", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    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", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"6", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", "2"}], 
                 ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Rho]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "3"]}], "-", 
               RowBox[{"10", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   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", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "3"]}], "-", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "\[Tau]"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"6", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", "2"}], 
                 ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Tau]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Rho]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "3"]}], "+", 
               RowBox[{"10", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   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", 10001.},
 CellChangeTimes->{3.826881474795138*^9, 3.826881634899712*^9, 
  3.8268818023445377`*^9},
 CellLabel->
  "Out[78]//TraditionalForm=",ExpressionUUID->"9403aad5-2e1e-4f52-add7-\
93449693e088"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Vacuum Field Equations As A Check", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.826881756230521*^9, 
  3.826881781982752*^9}},ExpressionUUID->"819efab7-bf0a-4f82-9d9b-\
a1e746918b7a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroVacuumRicci", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroVacuumRicci", " ", "=", " ", 
   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[{"nonzeroVacuumRicci", " ", "//", " ", "TableForm"}], " ", "//", " ",
   "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.826881728247794*^9, 3.826881763355695*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"aa1be59f-1e8e-4050-97c6-6a224576380d"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"]},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None]}]}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Tau]", "2"]}],
             MultilineFunction->None]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"2", " ", "\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}], ")"}]}], "\[Rho]"]}]},
      {
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Tau]", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           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.826881753076152*^9, 3.826881763356097*^9}},
 CellLabel->
  "Out[84]//TraditionalForm=",ExpressionUUID->"700aa2e1-47bd-4338-a216-\
8354d489e84c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroVacuumEinstein", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroVacuumEinstein", " ", "=", " ", 
   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[{"nonzeroVacuumEinstein", " ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.826881656071553*^9, 3.8268817177910833`*^9}, 
   3.826881763356292*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"71d64fe6-2176-47ff-bbab-184a3bf8730d"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        "\[Rho]"]},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Tau]"}],
          MultilineFunction->None]}]}]},
      {
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        "\[Rho]"]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Tau]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}]}], ")"}]}], "\[Rho]"]},
      {
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Tau]", "2"]}],
           MultilineFunction->None], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.826881718285121*^9, 3.826881763356529*^9},
 CellLabel->
  "Out[81]//TraditionalForm=",ExpressionUUID->"876679f8-ba32-4f0b-9548-\
5df118df5548"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "A", "]"}], "\[IndentingNewLine]", 
 RowBox[{"A", " ", "=", " ", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<A\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{"A2", "[", 
       RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}], ",", 
      RowBox[{"A3", "[", 
       RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], "}"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826877221849676*^9, 3.826877260848084*^9}, 
   3.826877965512442*^9, {3.826880770041678*^9, 3.826880796728569*^9}, 
   3.8268809010765963`*^9, {3.826882126393763*^9, 3.8268821354285917`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"7fa3a319-3fb2-4168-86b4-7eddf466371d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["A", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.826877508381527*^9, 3.8268779655127783`*^9, 
  3.8268807973715467`*^9, 3.826880901077107*^9, 3.826882069463746*^9, 
  3.826882136303762*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"990ea7fb-dc22-447a-ba49-e77d0be3ea1d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TensorValues", "[", 
  RowBox[{"A", "[", 
   RowBox[{"-", "\[Mu]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.826882073332293*^9, 3.826882082568089*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"496843a8-98e1-464f-b2d9-e907d4fe8574"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   RowBox[{"A2", "[", 
    RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}], ",", 
   RowBox[{"A3", "[", 
    RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.826882076369522*^9, 3.826882082795652*^9}, 
   3.826882138657929*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"68ebe266-0816-4fc0-9dd1-097a88648ddc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalF]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalF]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"AddTensors", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"MergeTensors", "[", 
     RowBox[{"CovariantD", "[", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"-", "\[Nu]"}], "]"}], ",", 
       RowBox[{"-", "\[Mu]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"MultiplyTensorScalar", "[", 
     RowBox[{
      RowBox[{"MergeTensors", "[", 
       RowBox[{"CovariantD", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"-", "\[Mu]"}], "]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], ",", 
      RowBox[{"-", "1"}]}], "]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826877512166769*^9, 3.8268776044529533`*^9}, 
   3.826877965512916*^9, 3.8268809010773*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"84c727e0-e251-4f8e-adf8-425e8f20109d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
         RowBox[{"(", 
          RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}], ")"}], 
       "+", 
       RowBox[{"(", 
        RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], "+", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
           RowBox[{"(", 
            RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}], ")"}], 
         "+", 
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], ")"}], 
   "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826877528348048*^9, 3.826877605254622*^9}, 
   3.826877965513134*^9, 3.826880801042884*^9, 3.826880901077677*^9, 
   3.826882088952922*^9, 3.826882141203176*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"e8e89898-445e-4278-8782-218e23904007"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq9", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Spacetime", " ", "indices", " ", "run", " ", "0"}], "-", "3"}], 
    " ", ",", " ", 
    RowBox[{
     RowBox[{
     "extracting", " ", "components", " ", "from", " ", "lists", " ", "uses", 
      " ", "1"}], "-", 
     RowBox[{"4", " ", "thus", " ", "offset", " ", "by", " ", "one"}]}]}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq9", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "3"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "2"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "4"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "4"}], "]"}], "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], ",", 
         RowBox[{"-", "\[Nu]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "2"}], "]"}], "]"}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq9", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.826877607132193*^9, 3.826877679931904*^9}, 
   3.82687796551335*^9, {3.826880814549417*^9, 3.826880820811862*^9}, 
   3.8268809010778103`*^9, {3.826882321173602*^9, 3.82688251940431*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"edcca718-5114-4a73-bd6c-91e1ce718d85"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"A2", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A2", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None]}]},
      {
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"A2", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A2", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None]}]},
      {
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"A3", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A3", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None]}]},
      {
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"A3", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A3", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         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", 10008.},
 CellChangeTimes->{{3.8268776185719213`*^9, 3.82687768334724*^9}, 
   3.826877965513728*^9, {3.82688080340793*^9, 3.8268808212642717`*^9}, 
   3.826880901078033*^9, 3.826882090858047*^9, 3.826882143340426*^9, {
   3.82688233131073*^9, 3.826882426783791*^9}, 3.826882460325861*^9, 
   3.826882519929906*^9},
 CellLabel->
  "Out[127]//TraditionalForm=",ExpressionUUID->"a65d1b38-37b2-4163-a309-\
1f43d75c8785"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Tem", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Stress", " ", "Energy", " ", "Tensor", " ", "For", " ", "Electromagnetic",
     " ", "Field"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Tem", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"MultiplyTensorScalar", "[", 
   RowBox[{
    RowBox[{"AddTensors", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MergeTensors", "[", 
       RowBox[{
        RowBox[{"\[ScriptCapitalF]", "[", 
         RowBox[{
          RowBox[{"-", "\[Mu]"}], ",", "\[Lambda]"}], "]"}], " ", 
        RowBox[{"\[ScriptCapitalF]", "[", 
         RowBox[{
          RowBox[{"-", "\[Nu]"}], ",", 
          RowBox[{"-", "\[Lambda]"}]}], "]"}]}], "]"}], " ", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"MultiplyTensorScalar", "[", " ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{
            RowBox[{"-", "\[Mu]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
          RowBox[{"\[ScriptCapitalF]", "[", 
           RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], " ", 
          RowBox[{"\[ScriptCapitalF]", "[", 
           RowBox[{
            RowBox[{"-", "\[Alpha]"}], ",", 
            RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], " ", ",", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "/", "4"}], ")"}]}], "]"}]}], "]"}], " ", ",", 
    " ", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", "\[Pi]"}]], ")"}]}], "]"}]}]}], "Input",
 CellLabel->
  "In[128]:=",ExpressionUUID->"2f5c205a-c111-4d58-8f0e-94ad3038f5c4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", "4"}], ")"}], 
     RowBox[{
      SuperscriptBox["Pi", 
       RowBox[{"-", "1"}]], "\[CenterDot]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                RowBox[{"(", 
                 RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}], 
               ")"}], "+", 
              RowBox[{"(", 
               RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], "+", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                  RowBox[{"(", 
                   RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}], 
                 ")"}], "+", 
                RowBox[{"(", 
                 RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
           ")"}], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                RowBox[{"(", 
                 RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}], 
               ")"}], "+", 
              RowBox[{"(", 
               RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], "+", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                  RowBox[{"(", 
                   RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}], 
                 ")"}], "+", 
                RowBox[{"(", 
                 RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
           ")"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "/", "4"}], ")"}], "\[CenterDot]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}],
                    ")"}], "+", 
                  RowBox[{"(", 
                   RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], "+", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}],
                     ")"}], "+", 
                    RowBox[{"(", 
                    RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
               ")"}], "\[CenterDot]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}],
                    ")"}], "+", 
                  RowBox[{"(", 
                   RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}], "+", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "\[CenterDot]", 
                    RowBox[{"(", 
                    RowBox[{"A", "\[CenterDot]", "\[CapitalGamma]"}], ")"}]}],
                     ")"}], "+", 
                    RowBox[{"(", 
                    RowBox[{"\[PartialD]", "A"}], ")"}]}], ")"}]}], ")"}]}], 
               ")"}]}], ")"}], "\[CenterDot]", 
            SuperscriptBox["g", "melvin"]}], ")"}]}], ")"}]}], ")"}]}]}], 
    ")"}], "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellChangeTimes->{3.826882585682898*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"696e4078-12f6-4223-9176-0eebc495e6ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"Expand", "[", 
     RowBox[{"TensorValues", "[", "Tem", "]"}], "]"}], "]"}], "  ", "//", " ",
    "MatrixForm"}], "  ", "//", " ", "pdConv"}]], "Input",
 CellChangeTimes->{{3.8268825965847597`*^9, 3.8268826247578077`*^9}, {
  3.826882693191411*^9, 3.826882705294243*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"280ffe02-c35d-4e30-831d-3634af16fc8c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
         RowBox[{"8", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["\[Rho]", "2"]}]]}], 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A2", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A2", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A3", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A3", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}]}], 
         RowBox[{"4", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["\[Rho]", "2"]}]]}], "0", "0"},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A2", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A2", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A3", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A3", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None]}]}], 
         RowBox[{"4", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["\[Rho]", "2"]}]]}], 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
         RowBox[{"8", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["\[Rho]", "2"]}]]}], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}]}], "+", 
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A2", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A3", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A3", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["\[Rho]", "2"]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]}], "-", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{"4", " ", "\[Pi]", " ", 
         SuperscriptBox["a", "2"]}]]},
      {"0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]}], "-", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{"4", " ", "\[Pi]", " ", 
         SuperscriptBox["a", "2"]}]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}], "+", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A2", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A2", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A3", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A3", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Tau]"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox["a", "2"]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.826882601223641*^9, 3.826882625333769*^9}, 
   3.826882705674263*^9},
 CellLabel->
  "Out[136]//TraditionalForm=",ExpressionUUID->"c9b3b47c-82f6-4a29-8649-\
7c66911e93e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "einsteinMaxwell", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"einsteinMaxwell", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "]"}], " ", "\[Equal]", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Simplify", "[", 
       RowBox[{"Expand", "[", 
        RowBox[{"TensorValues", "[", "Tem", "]"}], "]"}], "]"}], "  ", 
      "]"}]}], " ", "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"einsteinMaxwell", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellChangeTimes->{{3.826882663646985*^9, 3.826882792741787*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"b5a6192a-657a-470f-8ce7-c15ecef15bfa"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], "-", 
          RowBox[{"\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "\[Rho]"],
         "\[LongEqual]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A2", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A2", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A3", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A3", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{"8", " ", "\[Pi]", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Rho]", "2"]}]]}]}]},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], "\[Rho]"], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None]}]}], "\[LongEqual]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]}]}], 
          RowBox[{"4", " ", "\[Pi]", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Rho]", "2"]}]]}]}]},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], "\[Rho]"], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None]}]}], "\[LongEqual]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A3", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]}]}], 
          RowBox[{"4", " ", "\[Pi]", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Rho]", "2"]}]]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], "-", 
          RowBox[{"\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "\[Rho]"],
         "\[LongEqual]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A2", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A2", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A3", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A3", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{"8", " ", "\[Pi]", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Rho]", "2"]}]]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Tau]", "2"]}],
                MultilineFunction->None], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["\[Rho]", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["\[Tau]", "2"]}],
                 MultilineFunction->None]}], "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Tau]"}],
                  MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
            RowBox[{"\[Rho]", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "-", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]}], ")"}]}], "\[Rho]"], 
        "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              SuperscriptBox["\[Rho]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A2", "(", 
                   RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
         RowBox[{"8", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["\[Rho]", "2"]}]]}]},
      {
       RowBox[{"0", "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A2", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A3", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A2", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A3", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]}], ")"}]}], 
         RowBox[{"4", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"]}]]}]},
      {"True"},
      {"True"},
      {
       RowBox[{"0", "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A2", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A3", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A2", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A3", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]}], ")"}]}], 
         RowBox[{"4", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"]}]]}]},
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Rho]", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Rho]", "2"]}],
            MultilineFunction->None], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Tau]", "2"]}],
            MultilineFunction->None], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], ")"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Tau]"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
        "\[LongEqual]", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}], "+", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Rho]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A2", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A3", "(", 
                  RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
         RowBox[{"8", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"]}]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.826882667141787*^9, 3.8268826830984573`*^9}, 
   3.8268827161161413`*^9, 3.8268827485192003`*^9, 3.826882793308752*^9},
 CellLabel->
  "Out[142]//TraditionalForm=",ExpressionUUID->"8271c5e6-546b-4664-bd72-\
9ca24df5a9f1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Maybe", " ", "do", " ", "a", " ", "few", " ", "steps", " ", "to", " ", 
    "show", " ", "how", " ", "you", " ", "got", " ", 
    RowBox[{"this", "?"}]}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.826883816351548*^9, 
  3.826883831205019*^9}},ExpressionUUID->"4fe1d59d-4d57-478c-96ef-\
8dc180b512e9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Terms", " ", "look", " ", "correct"}], " ", "-", " ", 
    RowBox[{
    "again", " ", "issue", " ", "with", " ", "signs", " ", "for", " ", "a", 
     " ", "few", " ", "terms"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"Assuming", "[", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"a", " ", "\[NotEqual]", " ", "0"}], " ", "&&", " ", 
               RowBox[{"\[Rho]", " ", "\[NotEqual]", " ", "0"}]}], " ", ",", 
              " ", 
              RowBox[{"Eliminate", "[", " ", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"einsteinMaxwell", "[", 
                   RowBox[{"[", "16", "]"}], "]"}], " ", ",", " ", 
                  RowBox[{"einsteinMaxwell", "[", 
                   RowBox[{"[", "11", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{
                 SuperscriptBox["\[Gamma]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "2"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], "]"}]}], "]"}], 
            " ", ",", " ", 
            RowBox[{
             SuperscriptBox["\[Psi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//",
        " ", "Apart"}], " ", "//", " ", "Expand"}], " ", ")"}], " ", "/.", 
    " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12a", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.826883556013218*^9, 3.826883644592249*^9}, {
  3.826883676131948*^9, 3.826883748771843*^9}, {3.826883780101183*^9, 
  3.826883795531829*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"d86305c5-6379-4177-8d66-02eea598747c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Psi]", "(", 
      RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["\[Tau]", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A2", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], ")"}], "2"]}], 
      RowBox[{"8", " ", "\[Pi]", " ", 
       SuperscriptBox["a", "2"]}]]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A2", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], ")"}], "2"]}], 
     RowBox[{"8", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A3", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], ")"}], "2"]}], 
     RowBox[{"8", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox["\[Rho]", "2"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A3", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], ")"}], "2"]}], 
     RowBox[{"8", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox["\[Rho]", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Psi]", "(", 
       RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["\[Rho]", "2"]}],
     MultilineFunction->None], "+", 
    FractionBox[
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], "\[Rho]"]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.826883588133642*^9, 3.826883645257854*^9}, {
   3.826883676561977*^9, 3.826883749388356*^9}, 3.826883807885779*^9},
 CellLabel->
  "Out[206]//TraditionalForm=",ExpressionUUID->"5253dde4-5abd-467f-9ee4-\
7afcb5fe3ac6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12d1", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12d1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"einsteinMaxwell", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
            RowBox[{
             SuperscriptBox["\[Gamma]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], " ", "]"}], "]"}], 
         "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//",
        " ", "Apart"}], " ", "//", " ", "Expand"}], " ", ")"}], "  ", "/.", 
    " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "    ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12d1", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.826882887673595*^9, 3.826882954388563*^9}, {
  3.826882989791827*^9, 3.826883039839479*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"22c68200-8b44-41ab-97eb-2982340b854b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", "\[Rho]"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[Rho]", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A2", "(", 
            RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], ")"}], "2"]}], 
      RowBox[{"8", " ", "\[Pi]", " ", 
       SuperscriptBox["a", "2"]}]]}], "-", 
    FractionBox[
     RowBox[{"\[Rho]", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A2", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], ")"}], "2"]}], 
     RowBox[{"8", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A3", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], ")"}], "2"]}], 
     RowBox[{"8", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"], " ", "\[Rho]"}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A3", "(", 
           RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Tau]"}],
         MultilineFunction->None], ")"}], "2"]}], 
     RowBox[{"8", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"], " ", "\[Rho]"}]], "+", 
    RowBox[{"\[Rho]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None], ")"}], "2"]}], "+", 
    RowBox[{"\[Rho]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.826882888706213*^9, 3.826882954861874*^9}, {
  3.826883012257057*^9, 3.826883040151329*^9}},
 CellLabel->
  "Out[162]//TraditionalForm=",ExpressionUUID->"b75dd36c-1520-49a0-a019-\
4c2509f40fb6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12d", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Note", " ", "issue", " ", "with", " ", "sign", " ", "in", " ", "first", 
      " ", "two", " ", "terms", " ", "and", " ", "presence", " ", "of", " ", 
      "a"}], " ", "..."}], " ", "fix", " ", 
    RowBox[{"this", "!!"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12d", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Collect", "[", " ", 
    RowBox[{"eq12d1", " ", ",", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "2"}], 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], "]"}]}], "]"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12d", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.826883048801116*^9, 3.8268830948820953`*^9}, {
  3.826883169205101*^9, 3.826883197013323*^9}, {3.826883330810875*^9, 
  3.8268833336566563`*^9}},ExpressionUUID->"29e66279-175b-44da-90f6-\
30ea546c5701"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", "\[Rho]"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A2", "(", 
               RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], 
         RowBox[{"8", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"]}]]}], "-", 
       FractionBox[
        RowBox[{"\[Rho]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A2", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Tau]"}],
            MultilineFunction->None], ")"}], "2"]}], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox["a", "2"]}]]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A3", "(", 
              RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None], ")"}], "2"], 
         RowBox[{"8", " ", "\[Pi]", " ", 
          SuperscriptBox["a", "2"], " ", "\[Rho]"}]]}], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A3", "(", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Tau]"}],
           MultilineFunction->None], ")"}], "2"], 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox["a", "2"], " ", "\[Rho]"}]]}], ")"}]}], "+", 
    RowBox[{"\[Rho]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None], ")"}], "2"]}], "+", 
    RowBox[{"\[Rho]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.826883046491724*^9, 3.826883095387116*^9}, {
  3.826883182465404*^9, 3.826883198041464*^9}},
 CellLabel->
  "Out[175]//TraditionalForm=",ExpressionUUID->"215a7a5d-35f7-4730-955c-\
e1312cc0cbd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12e", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Note", " ", "issue", " ", "with", " ", "sign", " ", "in", " ", "first", 
      " ", "two", " ", "terms", " ", "and", " ", "presence", " ", "of", " ", 
      "a"}], " ", "..."}], " ", "fix", " ", 
    RowBox[{"this", "!!"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12e", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"einsteinMaxwell", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["\[Gamma]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"\[Tau]", ",", "\[Rho]"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//",
        " ", "Apart"}], " ", "//", " ", "Expand"}], "  ", ")"}], " ", "/.", 
    " ", 
    RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12e", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.826883219842857*^9, 
  3.8268833600318813`*^9}},ExpressionUUID->"7a3d9b36-4648-4c37-9756-\
74ae2f0dd04b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", "\[Tau]"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[Rho]", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"A2", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"A2", "(", 
          RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Tau]"}],
        MultilineFunction->None]}], 
      RowBox[{"4", " ", "\[Pi]", " ", 
       SuperscriptBox["a", "2"]}]]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}]], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"A3", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Rho]"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"A3", "(", 
         RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Tau]"}],
       MultilineFunction->None]}], 
     RowBox[{"4", " ", "\[Pi]", " ", 
      SuperscriptBox["a", "2"], " ", "\[Rho]"}]], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Tau]"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.82688322142371*^9, 3.826883251923057*^9}, {
  3.826883288716793*^9, 3.826883315874227*^9}},
 CellLabel->
  "Out[184]//TraditionalForm=",ExpressionUUID->"98b696f3-a271-4149-b9d1-\
687f8aad2698"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"einsteinMaxwell", "[", 
      RowBox[{"[", "15", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "[", 
    RowBox[{"[", "5", "]"}], "]"}], " ", "\[Equal]", " ", "0"}], "  ", "//", 
  " ", "pdConv"}]], "Input",
 CellChangeTimes->{{3.826883893029366*^9, 3.826883920778598*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"c08d5071-a65d-4115-a58c-11f14a3ee7a7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"A2", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Tau]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"A3", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Tau]"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"A2", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"A3", "(", 
        RowBox[{"\[Tau]", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None]}]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.82688389522395*^9, 3.826883921809189*^9}},
 CellLabel->
  "Out[213]//TraditionalForm=",ExpressionUUID->"617c104f-7e3e-4288-a019-\
66ee71b160b3"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1259, 657},
WindowMargins->{{2, 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->"05b3a40d-87cc-459c-b14c-7b99c07296aa"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 364, 7, 159, "Title",ExpressionUUID->"cb43274e-9d4f-4ce3-b692-9de56a1431c1"],
Cell[947, 31, 269, 7, 76, "Author",ExpressionUUID->"a1c68030-857c-407d-bf67-8260748aa173"],
Cell[CellGroupData[{
Cell[1241, 42, 277, 5, 69, "Section",ExpressionUUID->"797d48ef-b494-4545-ac39-2ea9cca61bce",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[1521, 49, 484, 10, 63, "Input",ExpressionUUID->"aa044fe1-72cb-4afc-b512-2796a856a24c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[2008, 61, 975, 16, 43, "Output",ExpressionUUID->"332042a9-d0c6-43f6-a0d0-41334e5a9371",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[3020, 82, 476, 7, 55, "Section",ExpressionUUID->"95c71db4-a7f7-4849-9d3a-dc8619cac852",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[3499, 91, 451, 9, 63, "Input",ExpressionUUID->"203eb328-e469-4100-9dc9-e0d299265ef1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[3953, 102, 390, 7, 43, "Output",ExpressionUUID->"6e93bc64-807b-4490-a426-998a6230a4c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[4346, 111, 571, 12, 84, "Input",ExpressionUUID->"8d6611da-390c-477f-aa09-12efc3fd09bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[4920, 125, 469, 8, 43, "Output",ExpressionUUID->"00ee8b07-c08c-4bdb-b2fd-c16f22674fdd",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5392, 135, 633, 12, 63, "Input",ExpressionUUID->"bbf494c3-6df9-4350-9e9c-27945a7d3f9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6028, 149, 512, 10, 43, "Output",ExpressionUUID->"847c1d43-9d3d-4e8b-ab23-ce9ffa73af91",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6543, 161, 556, 12, 41, "Input",ExpressionUUID->"dbf38b96-e801-486d-98c7-71141a6b4f51",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[7136, 178, 432, 6, 55, "Section",ExpressionUUID->"8e83c522-233d-4782-9e56-09436d8c6d8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[7571, 186, 1721, 45, 189, "Input",ExpressionUUID->"2662b949-9ddf-4b04-ab21-d57fe4edf0ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9295, 233, 1032, 19, 24, "Print",ExpressionUUID->"e29a5e5e-a5da-4e6b-9552-6de9447670fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10330, 254, 1051, 20, 24, "Print",ExpressionUUID->"a6316c95-d346-4a82-a6b3-d4dd3d00965e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11384, 276, 1361, 23, 84, "Output",ExpressionUUID->"1b945702-7c64-4f63-b8d9-09cc9dc49f7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12748, 301, 355, 7, 41, "Input",ExpressionUUID->"554c696c-13d4-40c3-82c9-eb7e627597d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[13106, 310, 441, 7, 41, "Input",ExpressionUUID->"9e7fc8d2-298e-4ba5-8e97-c524ca7ac441",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[13584, 322, 362, 6, 55, "Section",ExpressionUUID->"44ee9c62-190f-4014-8001-66ffa54a9a11",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[13949, 330, 1659, 41, 126, "Input",ExpressionUUID->"e68602de-8899-486a-8754-ecbd6be182ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[15611, 373, 1055, 26, 84, "Input",ExpressionUUID->"6599ff01-3951-452e-84b7-7659fc6da2bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[16703, 404, 317, 7, 55, "Section",ExpressionUUID->"0b0a807f-3a9e-4413-8362-819314333837",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[17023, 413, 1068, 28, 86, "Input",ExpressionUUID->"8ae1de71-bae4-4879-8684-109325fa8ce5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18094, 443, 1014, 28, 44, "Output",ExpressionUUID->"320b2ba1-9fd7-43d0-b13a-9d174ade83df",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19111, 473, 480, 10, 41, "Input",ExpressionUUID->"510e3a7d-3c63-4f1e-8404-5e17cda47970",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19594, 485, 1580, 47, 113, "Output",ExpressionUUID->"1b25e8c0-06fe-4863-85ba-6e338f2837ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21177, 534, 841, 18, 147, "Input",ExpressionUUID->"06e55aa3-0d38-4914-9f0f-0697a3c4a6c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22021, 554, 905, 27, 69, "Output",ExpressionUUID->"b24884e8-f3cd-4a2d-b20b-ddf1d6ed314a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22929, 583, 765, 15, 105, "Input",ExpressionUUID->"2dd76fd1-48c0-4be4-8110-c2b322682274",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23697, 600, 2139, 62, 113, "Output",ExpressionUUID->"3b9afbda-9891-45e6-bcd9-67c7c0585e0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25873, 667, 321, 7, 55, "Section",ExpressionUUID->"e1234d13-51f2-4a5e-a81f-5a0b515bc3b1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[26197, 676, 5726, 130, 714, "Input",ExpressionUUID->"6bd4d020-6afc-4060-b72a-c3e957bf4fb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[31926, 808, 1050, 23, 65, "Input",ExpressionUUID->"36ac6c3c-c315-428e-b8b7-a70ce22e05e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[32979, 833, 335, 6, 41, "Output",ExpressionUUID->"0210d62b-2ab9-4888-aded-96e1d0a9a46f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[33317, 841, 810, 18, 84, "Input",ExpressionUUID->"cb5214ea-953f-474e-bf0c-773a57bbd82c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[34130, 861, 584, 11, 45, "Output",ExpressionUUID->"334e8718-2840-481e-974b-344cd952dc25",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[34717, 874, 512, 7, 41, "Output",ExpressionUUID->"e885beb0-86b6-40dd-9612-6b21a63cd911",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[35232, 883, 2405, 65, 112, "Output",ExpressionUUID->"f7d62a9d-08f1-4623-862f-987891ae351e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[37640, 950, 812, 18, 84, "Input",ExpressionUUID->"3d3d1593-797a-4fe6-8131-022b5560aba0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[38455, 970, 705, 14, 45, "Output",ExpressionUUID->"b53e55bc-8a0b-4a3a-9d5a-691e8f0feca5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[39163, 986, 614, 9, 41, "Output",ExpressionUUID->"d8330bfc-1894-4075-9ad8-6afde347c7cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[39780, 997, 18924, 520, 390, "Output",ExpressionUUID->"86070448-504c-4a90-bb0b-f56c904d56c2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[58707, 1519, 810, 18, 84, "Input",ExpressionUUID->"cc798ec4-2bc6-49eb-bb34-69c58e4460eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[59520, 1539, 574, 10, 45, "Output",ExpressionUUID->"dbe7520c-bf1c-4dd1-90db-ade0e84747bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[60097, 1551, 524, 7, 41, "Output",ExpressionUUID->"cf436cca-0255-4845-abfc-086b6ced9618",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[60624, 1560, 106691, 2509, 494, "Output",ExpressionUUID->"042bc834-68b7-4506-b0af-bfde5bb838c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[167318, 4071, 808, 18, 84, "Input",ExpressionUUID->"3d9d68f2-4429-4d2e-b7a0-03b289715459",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[168129, 4091, 557, 10, 45, "Output",ExpressionUUID->"d4c81742-0721-4f5e-ab05-86e75c75fdbd",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[168689, 4103, 528, 7, 41, "Output",ExpressionUUID->"cfa99fd2-7aa9-4837-bd4f-bccc1b4458ef",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[169220, 4112, 9978, 257, 206, "Output",ExpressionUUID->"d365f691-4b3e-4a06-9e7e-09cbe3ac34d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[179201, 4371, 810, 18, 84, "Input",ExpressionUUID->"f827b374-9e38-4852-9295-2d2f6fdb7a1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[180014, 4391, 522, 9, 41, "Output",ExpressionUUID->"803f83f5-4485-41e4-98cd-7d9f6b430b7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[180539, 4402, 530, 7, 41, "Output",ExpressionUUID->"55b542eb-97ee-4d0b-a316-f0d9c11869d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[181072, 4411, 3231, 85, 86, "Output",ExpressionUUID->"e46dccc2-1df9-4d55-9dbb-5d17b34ab5ef",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[184306, 4498, 741, 17, 84, "Input",ExpressionUUID->"580899ca-46c1-4bac-87af-bc52c2a8ab18",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[185050, 4517, 356, 7, 41, "Output",ExpressionUUID->"4028c13d-d497-4b4a-a408-b10bf2c896bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[185409, 4526, 363, 5, 41, "Output",ExpressionUUID->"44676c6c-d969-4e8e-a49f-03f237a5659c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[185775, 4533, 24900, 653, 318, "Output",ExpressionUUID->"86788607-e23f-4ee1-850e-91d56c37782a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[210678, 5188, 792, 18, 84, "Input",ExpressionUUID->"6a8889ac-f110-4a38-89a5-dafdbfc29abc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[211473, 5208, 493, 10, 45, "Output",ExpressionUUID->"f520eb59-2397-4f41-9625-81dcf3b81f67",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[211969, 5220, 464, 7, 41, "Output",ExpressionUUID->"3b5be2f3-78d5-4c4e-a72c-5a4b307aa5c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[212436, 5229, 9170, 239, 192, "Output",ExpressionUUID->"05e59e04-1fcb-4c43-aee9-6fa31475c383",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[221609, 5470, 857, 19, 84, "Input",ExpressionUUID->"c9661a70-8ba4-4d82-a9ee-f507f8b0a948",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[222469, 5491, 576, 11, 45, "Output",ExpressionUUID->"4d7c4da0-6b02-43a8-9503-6c2b35dbf6f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[223048, 5504, 527, 8, 41, "Output",ExpressionUUID->"2738bb91-f534-4d90-9c15-c0233d1f1ca6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[223578, 5514, 155877, 3534, 622, "Output",ExpressionUUID->"78a4ffae-9a99-4f2a-b475-8e37b63f779a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[379458, 9050, 717, 17, 84, "Input",ExpressionUUID->"14d4b052-d9d5-46d4-a7f9-ffecaa671e2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[380178, 9069, 329, 7, 45, "Output",ExpressionUUID->"7b29c7a0-278f-44b1-8b20-c61f80f6c1cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[380510, 9078, 288, 4, 41, "Output",ExpressionUUID->"f50d475c-7893-4e16-8606-c4d748afebd2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[380801, 9084, 151498, 3359, 464, "Output",ExpressionUUID->"9403aad5-2e1e-4f52-add7-93449693e088",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[532336, 12448, 247, 4, 55, "Section",ExpressionUUID->"819efab7-bf0a-4f82-9d9b-a1e746918b7a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[532586, 12454, 1796, 46, 210, "Input",ExpressionUUID->"aa1be59f-1e8e-4050-97c6-6a224576380d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[534385, 12502, 8881, 234, 244, "Output",ExpressionUUID->"700aa2e1-47bd-4338-a216-8354d489e84c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[543269, 12738, 1836, 48, 210, "Input",ExpressionUUID->"71d64fe6-2176-47ff-bbab-184a3bf8730d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[545108, 12788, 8136, 216, 230, "Output",ExpressionUUID->"876679f8-ba32-4f0b-9548-5df118df5548",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[553281, 13009, 913, 19, 60, "Input",ExpressionUUID->"7fa3a319-3fb2-4168-86b4-7eddf466371d",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[554197, 13030, 384, 8, 45, "Output",ExpressionUUID->"990ea7fb-dc22-447a-ba49-e77d0be3ea1d",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[554618, 13043, 261, 5, 41, "Input",ExpressionUUID->"496843a8-98e1-464f-b2d9-e907d4fe8574"],
Cell[554882, 13050, 394, 9, 41, "Output",ExpressionUUID->"68ebe266-0816-4fc0-9dd1-097a88648ddc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[555313, 13064, 1031, 23, 126, "Input",ExpressionUUID->"84c727e0-e251-4f8e-adf8-425e8f20109d",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[556347, 13089, 1268, 37, 45, "Output",ExpressionUUID->"e8e89898-445e-4278-8782-218e23904007",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[557618, 13128, 3569, 98, 273, "Input",ExpressionUUID->"edcca718-5114-4a73-bd6c-91e1ce718d85",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[561190, 13228, 2829, 84, 256, "Output",ExpressionUUID->"a65d1b38-37b2-4163-a309-1f43d75c8785",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[564056, 13317, 1743, 46, 150, "Input",ExpressionUUID->"2f5c205a-c111-4d58-8f0e-94ad3038f5c4"],
Cell[565802, 13365, 5340, 144, 71, "Output",ExpressionUUID->"696e4078-12f6-4223-9176-0eebc495e6ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[571179, 13514, 431, 10, 41, "Input",ExpressionUUID->"280ffe02-c35d-4e30-831d-3634af16fc8c"],
Cell[571613, 13526, 16640, 428, 194, "Output",ExpressionUUID->"c9b3b47c-82f6-4a29-8649-7c66911e93e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[588290, 13959, 875, 20, 105, "Input",ExpressionUUID->"b5a6192a-657a-470f-8ce7-c15ecef15bfa"],
Cell[589168, 13981, 25893, 663, 500, "Output",ExpressionUUID->"8271c5e6-546b-4664-bd72-9ca24df5a9f1"]
}, Open  ]],
Cell[615076, 14647, 372, 9, 41, "Input",ExpressionUUID->"4fe1d59d-4d57-478c-96ef-8dc180b512e9"],
Cell[CellGroupData[{
Cell[615473, 14660, 2462, 62, 130, "Input",ExpressionUUID->"d86305c5-6379-4177-8d66-02eea598747c"],
Cell[617938, 14724, 3436, 100, 84, "Output",ExpressionUUID->"5253dde4-5abd-467f-9ee4-7afcb5fe3ac6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[621411, 14829, 1303, 34, 107, "Input",ExpressionUUID->"22c68200-8b44-41ab-97eb-2982340b854b"],
Cell[622717, 14865, 3452, 100, 84, "Output",ExpressionUUID->"b75dd36c-1520-49a0-a019-4c2509f40fb6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[626206, 14970, 1039, 25, 105, "Input",ExpressionUUID->"29e66279-175b-44da-90f6-30ea546c5701"],
Cell[627248, 14997, 3339, 96, 93, "Output",ExpressionUUID->"215a7a5d-35f7-4730-955c-e1312cc0cbd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[630624, 15098, 1510, 40, 107, "Input",ExpressionUUID->"7a3d9b36-4648-4c37-9756-74ae2f0dd04b"],
Cell[632137, 15140, 2442, 69, 83, "Output",ExpressionUUID->"98b696f3-a271-4149-b9d1-687f8aad2698"]
}, Open  ]],
Cell[CellGroupData[{
Cell[634616, 15214, 441, 12, 41, "Input",ExpressionUUID->"c08d5071-a65d-4115-a58c-11f14a3ee7a7"],
Cell[635060, 15228, 1122, 34, 71, "Output",ExpressionUUID->"617c104f-7e3e-4288-a019-66ee71b160b3"]
}, Open  ]]
}, Open  ]]
}
]
*)