Behavior of Einstein - Rosen Waves at null infinity by Ashtekar Bicak & Schmidt.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[    630503,      15093]
NotebookOptionsPosition[    610363,      14803]
NotebookOutlinePosition[    610830,      14820]
CellTagsIndexPosition[    610787,      14817]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Behavior of Einstein - Rosen Waves at null infinity by Ashtekar
   Bicak & Schmidt\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.825843456962591*^9, 3.825843470538437*^9}, {
   3.82587531772775*^9, 3.825875324670994*^9}, {3.8260076306940603`*^9, 
   3.826007641918522*^9}, 3.826011839512066*^9, {3.8263801688919907`*^9, 
   3.82638019304388*^9}, {3.8263958589521112`*^9, 3.826395869887525*^9}, {
   3.826395931303625*^9, 3.826395939943798*^9}, {3.8263961522321043`*^9, 
   3.8263961649670258`*^9}, 3.8264576044436207`*^9, {3.826532680726181*^9, 
   3.8265326870531597`*^9}, 3.826532734543453*^9, {3.826533116450289*^9, 
   3.826533124873698*^9}, {3.826533177034293*^9, 3.826533177449621*^9}, {
   3.826533345354254*^9, 3.826533345712063*^9}, {3.826533447380822*^9, 
   3.82653350371865*^9}, {3.826533627028933*^9, 3.82653363935043*^9}, {
   3.826533707484222*^9, 3.82653371594044*^9}, {3.826533828077026*^9, 
   3.8265338284558773`*^9}, {3.826534072681231*^9, 3.826534075296845*^9}, {
   3.826534277005148*^9, 3.826534295116191*^9}, {3.8265344097890177`*^9, 
   3.82653441661204*^9}, {3.826534538309024*^9, 3.826534543164234*^9}, {
   3.826534621037068*^9, 3.826534629179826*^9}, {3.826534709420918*^9, 
   3.826534712612302*^9}, {3.8273315873641787`*^9, 3.82733160993854*^9}, {
   3.82738680103983*^9, 3.82738681239182*^9}, {3.8273882617119207`*^9, 
   3.827388268231215*^9}, {3.827530669072693*^9, 3.8275306832478333`*^9}, {
   3.8275883997033043`*^9, 3.82758840628754*^9}, {3.827589303839069*^9, 
   3.827589355014329*^9}, {3.8430858871113043`*^9, 3.843085901198807*^9}, 
   3.855743846970058*^9},
 TextAlignment->Center,ExpressionUUID->"e19db20b-a2d3-404f-870f-0106f42e19a3"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
April 16, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851254775884119*^9, {3.855738457186393*^9, 3.855738466208013*^9}, {
   3.855743846970149*^9, 3.8557438532987127`*^9}},
 TextAlignment->Center,ExpressionUUID->"5167ca43-7add-4d62-9dbb-9902604ca5cb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
    "There", " ", "are", " ", "two", " ", "copies", " ", "of", " ", "this"}], 
    "..."}], " ", "use", " ", "one", " ", "without", " ", "comma", " ", "in", 
   " ", "title"}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.855743815333228*^9, 3.855743828738697*^9}, {
  3.855744021658595*^9, 
  3.855744021882339*^9}},ExpressionUUID->"dd2559d7-e552-4f67-acc3-\
15faa8e72beb"],

Cell["\<\
\[OpenCurlyDoubleQuote]Although the literature of Einstein-Rosen waves is \
quite rich (see, e.g., the references listed in the companion paper [1]) it \
appears that there is only one article
that discusses the asymptotic behavior of these waves at infinity in \
4-dimensions:  the paper by Stachel [2] written already in the sixties\
\[CloseCurlyDoubleQuote]\
\>", "Text",
 CellChangeTimes->{{3.855744291236616*^9, 
  3.855744307036971*^9}},ExpressionUUID->"a44f3888-54c9-4ff3-b598-\
0ccd9306ade7"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"1c28ae33-9a56-45bf-a0ec-\
abc0f33bc8e6"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->
  "In[409]:=",ExpressionUUID->"d3d22d4a-f347-4b4e-990c-b556fb6234f3"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.825843522027536*^9, 
   3.825875355898499*^9, 3.8260077681021748`*^9, 3.826380423345456*^9, 
   3.8263927978526917`*^9, 3.826553813481596*^9, 3.827332028734309*^9, 
   3.827386838117896*^9, 3.827388549731575*^9, 3.827530764473493*^9, 
   3.827588445295884*^9, 3.827589528310417*^9, 3.855744011105496*^9},
 CellLabel->
  "Out[409]=",ExpressionUUID->"7b819b3d-1eee-4cd6-881e-f8724c1cdaf2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 3.8265327310118723`*^9, {
   3.826533163674143*^9, 3.826533167241699*^9}, 3.82653355805296*^9, {
   3.827388003218487*^9, 3.8273880065386333`*^9}, 
   3.85574391078898*^9},ExpressionUUID->"405b7f84-eca6-4ac6-a154-\
1d65c8ed6c7b"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Behavior of Einstein - Rosen Waves at null infinity by Ashtekar Bicak \
& Schmidt\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/9608041\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.855743885396429*^9, 3.855743900339199*^9}},
 CellLabel->
  "In[410]:=",ExpressionUUID->"a5d274b4-885f-4ae4-ab43-56852b332304"],

Cell[BoxData[
 TemplateBox[{
  "\"Behavior of Einstein - Rosen Waves at null infinity by Ashtekar Bicak & \
Schmidt\"", "https://arxiv.org/abs/gr-qc/9608041"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.855743902992668*^9, 3.855744011119792*^9},
 CellLabel->
  "Out[410]=",ExpressionUUID->"566311ea-e71b-4a46-a77b-1405ec75be09"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"a21cab32-b476-4258-8bc1-\
7dbc2261ae04"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.8252877782634068`*^9},
 CellLabel->
  "In[411]:=",ExpressionUUID->"04d37a1c-50bd-477c-ae44-b5bdbe753dd8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258753561698093`*^9, 3.826007768416874*^9, 3.826380423662938*^9, 
   3.826392798321377*^9, 3.826553813683632*^9, 3.8273320290278063`*^9, 
   3.827386838389818*^9, 3.8273885499231586`*^9, 3.8275307646891537`*^9, 
   3.8275884455169487`*^9, 3.82758952854709*^9, 3.8557440113560143`*^9},
 CellLabel->
  "During evaluation of \
In[411]:=",ExpressionUUID->"270c2f1d-6333-43ba-877c-da43469d9281"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"2023 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "2023 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258753561698093`*^9, 3.826007768416874*^9, 3.826380423662938*^9, 
   3.826392798321377*^9, 3.826553813683632*^9, 3.8273320290278063`*^9, 
   3.827386838389818*^9, 3.8273885499231586`*^9, 3.8275307646891537`*^9, 
   3.8275884455169487`*^9, 3.82758952854709*^9, 3.855744011361232*^9},
 CellLabel->
  "During evaluation of \
In[411]:=",ExpressionUUID->"3a4f8651-bd2d-451e-9535-f99ab57bc0e6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.825287778263782*^9, 3.825843522304077*^9, 
   3.82587535617485*^9, 3.826007768422662*^9, 3.8263804236686697`*^9, 
   3.826392798332839*^9, 3.8265538136893*^9, 3.8273320290307903`*^9, 
   3.82738683839509*^9, 3.827388549927188*^9, 3.827530764693576*^9, 
   3.8275884455246162`*^9, 3.8275895285554113`*^9, 3.855744011364238*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"78d0f987-7acd-4990-9d44-497d2bba1ca2"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"78e4eb53-d818-4d9d-a791-32bbdecfedbb"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"ee5694d4-cbf8-4506-803c-26b6e58e0043"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825287791153748*^9},ExpressionUUID->"e2cbbc42-aa92-47ec-ba4a-\
a865d1bd575b"],

Cell[BoxData[
 RowBox[{"CreatePalette", "[", 
  RowBox[{"{", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PasteButton", "[", 
     RowBox[{"SubPlus", "[", "u", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PasteButton", "[", 
     RowBox[{"SubPlus", "[", "v", "]"}], "]"}]}], "\[IndentingNewLine]", 
   "}"}], " ", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827388848296938*^9, 3.827388892750021*^9}, {
  3.827388979796694*^9, 3.827388987031948*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"61adcada-db64-4c85-9767-bcca4e6f4efe"],

Cell[BoxData[
 TemplateBox[{
   FrontEndObject[
    LinkObject["cy8eb_shm", 3, 1]], 37, 
   "FrontEndObject[LinkObject[\"cy8eb_shm\", 3, 1]]", "37", "\"Untitled-1\""},
  
  "NotebookObjectUnsaved"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827388875780456*^9, 3.827388892750308*^9}, 
   3.827388988953232*^9, 3.8275307649809637`*^9, 3.827588445759727*^9, 
   3.827589529641735*^9, 3.855744011718522*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"7a2dff47-9d4f-4b87-85f1-07571cfd5544"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", " ", "d\[Rho]"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, 3.825287791153907*^9, {
   3.827387971485525*^9, 3.827387993676759*^9}, {3.8275904634026003`*^9, 
   3.827590476103849*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"2187f89e-de2c-41ef-92b3-24a1f2247463"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[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.823598254375844*^9, 3.823598877146447*^9, 3.823598911379983*^9, 
   3.823618495599228*^9, 3.823683414107848*^9, 3.823683842051852*^9, 
   3.823684775483016*^9, 3.82368879462633*^9, 3.823690777330206*^9, 
   3.823691323069952*^9, 3.823704572638439*^9, 3.823704791783836*^9, 
   3.823967036322558*^9, 3.8239675180766773`*^9, 3.823970038900818*^9, 
   3.824025682372151*^9, 3.8252877911540327`*^9, 3.825843522413425*^9, 
   3.825875356265313*^9, 3.826007768477283*^9, 3.82638042378487*^9, 
   3.826392798568123*^9, 3.8265538137816563`*^9, 3.8273320291418343`*^9, 
   3.8273868385200787`*^9, {3.827387990674118*^9, 3.827387994239736*^9}, 
   3.827388550013358*^9, 3.827530765014926*^9, 3.827588445777919*^9, 
   3.8275895298117237`*^9, 3.827590476870022*^9, 3.855744011746557*^9},
 CellLabel->
  "Out[7]//TableForm=",ExpressionUUID->"004fafaa-e10a-46fe-bf48-96e3a9e13bc9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.825287791154132*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"b7973a7d-eebe-4188-807b-0265535aa045"]
}, 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->"b280ddf5-2430-4947-9d7b-\
30d09af5c251"],

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[10]:=",ExpressionUUID->"4befb2db-5467-4133-b888-970fdd67e226"],

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[12]:=",ExpressionUUID->"f7ddbd66-4b5c-4a31-b2f9-3c5d9fd6b8bc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530921488049*^9, 3.827530935927705*^9}, 
   3.827588295887451*^9, {3.827589374319911*^9, 3.827589375663677*^9}, {
   3.827596811937872*^9, 
   3.827596813073987*^9}},ExpressionUUID->"7e499474-11d8-4e4c-8280-\
ab3b042f5042"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt1", " ", "=", " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Psi]"}], "]"}], " ", 
    SuperscriptBox["dz", "2"]}], "+", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}], "]"}], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dt", "2"]}], "+", " ", 
      SuperscriptBox["d\[Rho]", "2"]}], ")"}]}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox["\[Rho]", "2"], 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "2"}], "\[Psi]"}], "]"}], " ", 
    SuperscriptBox["d\[Phi]", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530713304961*^9, 3.82753075816862*^9}, 
   3.827530928200708*^9, {3.82758830316956*^9, 3.827588304590618*^9}, {
   3.827588348318924*^9, 3.827588379734867*^9}, {3.827589378407551*^9, 
   3.82758938064802*^9}, {3.8275894396873093`*^9, 3.827589482672262*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"9622b4f9-33de-4c0f-a594-c066c3bc74e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["d\[Rho]", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "+", 
  RowBox[{
   SuperscriptBox["dz", "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.827530765076221*^9, 3.827530928200934*^9, 
  3.827588445830583*^9, 3.82758851780506*^9, 3.827589531083387*^9, 
  3.8557440118342133`*^9, 3.855744737694397*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"8339e76b-dd96-4df7-86a8-bbcf0eb0700b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq2pt1", " ", ",", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Phi]", ",", "dz"}], "}"}]}], 
    "]"}], " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530815129415*^9, 3.827530825775861*^9}, {
   3.8275308578814573`*^9, 3.827530860496024*^9}, 3.827530928201089*^9, 
   3.8275883061943073`*^9, {3.827588457089252*^9, 3.827588463279962*^9}, {
   3.827589383735662*^9, 3.827589383880108*^9}, {3.8557447346434393`*^9, 
   3.855744735393487*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"12255bc1-28c7-4738-9339-0e1c4ea004f5"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Psi]"}]]}], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Psi]"}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8275308260511703`*^9, 3.8275308610009193`*^9, 3.8275309282012568`*^9, {
   3.827588445858923*^9, 3.827588463902945*^9}, 3.82758851960677*^9, 
   3.8275895312248573`*^9, 3.85574401186664*^9, 3.855744739017836*^9},
 CellLabel->
  "Out[134]//TraditionalForm=",ExpressionUUID->"7e5bbe77-99b4-475f-9acb-\
c51f603ec02c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt1a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Psi]", "\[Rule]", " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"t", ",", "\[Rho]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Gamma]", "\[Rule]", " ", 
      RowBox[{"\[Gamma]", "[", 
       RowBox[{"t", ",", "\[Rho]"}], "]"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt1a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530776296482*^9, 3.827530812184041*^9}, 
   3.827530928201516*^9, {3.8275883082714443`*^9, 3.8275883112386923`*^9}, {
   3.827588484416424*^9, 3.827588491928028*^9}, {3.827589386743643*^9, 
   3.827589393615745*^9}, {3.827589499847171*^9, 3.8275895130816383`*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"16eaa0d8-efbb-410a-8120-e2fbee4cc311"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Psi]", "\[Rule]", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"t", ",", "\[Rho]"}], "]"}]}]},
     {
      RowBox[{"\[Gamma]", "\[Rule]", 
       RowBox[{"\[Gamma]", "[", 
        RowBox[{"t", ",", "\[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.827530812448737*^9, 3.827530928201703*^9, 3.827588445874488*^9, {
   3.827588492512083*^9, 3.827588522278041*^9}, 3.8275895312528057`*^9, 
   3.855744011881629*^9, 3.855744741333247*^9},
 CellLabel->
  "Out[137]//TableForm=",ExpressionUUID->"91a3a9ba-3bfb-4620-892b-\
c92655d05832"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq2pt1", " ", ",", "  ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Phi]", ",", "dz"}], "}"}]}], 
     "]"}], "  ", "/.", " ", "eq2pt1a"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2pt1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8275308339367743`*^9, 3.827530853680006*^9}, 
   3.827530928201849*^9, {3.827588313305825*^9, 3.827588318662716*^9}, {
   3.827588502696577*^9, 3.827588507359664*^9}, {3.8275893958390427`*^9, 
   3.827589406679843*^9}, {3.827589541337308*^9, 3.8275895563346043`*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"0ce48b93-dd8c-4761-b2e2-042fa92f94c9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}], "-", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}], "-", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[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", 10004.},
 CellChangeTimes->{{3.8275308355505447`*^9, 3.8275308541307507`*^9}, 
   3.827530928201952*^9, 3.827588445954012*^9, 3.827588525984885*^9, {
   3.827589531302733*^9, 3.82758956901729*^9}, 3.855744011912462*^9, 
   3.855744742903347*^9},
 CellLabel->
  "Out[140]//TraditionalForm=",ExpressionUUID->"73dde0d1-b6a7-4532-97a9-\
8e3f8e90626f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse2pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse2pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", " ", "metric2pt1", " ", "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse2pt1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530863970015*^9, 3.8275308899302464`*^9}, 
   3.827530928202076*^9, {3.827588321177094*^9, 3.827588327662794*^9}, {
   3.827588531783916*^9, 3.827588533375721*^9}, {3.827589409671186*^9, 
   3.8275894164715643`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"bae80259-1efc-4b83-a343-cb41c95816f4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], "0", "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], 
        SuperscriptBox["\[Rho]", "2"]], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[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", 10004.},
 CellChangeTimes->{{3.827530882506819*^9, 3.827530890384349*^9}, 
   3.827530928202189*^9, 3.827588445980744*^9, {3.827588528867074*^9, 
   3.827588534014872*^9}, 3.827589531390514*^9, 3.827589571535429*^9, 
   3.855744011947783*^9},
 CellLabel->
  "Out[25]//TraditionalForm=",ExpressionUUID->"f2035c54-c045-40e9-895d-\
23d27139ea24"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric2pt1", " ", ".", " ", "inverse2pt1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530892914649*^9, 3.827530928202354*^9}, {
  3.827588331081708*^9, 3.827588332894567*^9}, {3.827589419567545*^9, 
  3.827589421776573*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"02b84625-0d24-4098-ae0b-298b970f37fa"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827530902603253*^9, 3.827530928202551*^9}, 
   3.827588445996552*^9, 3.8275885359650307`*^9, 3.827589531412362*^9, 
   3.8275895743574543`*^9, 3.855744011962438*^9},
 CellLabel->
  "Out[26]//MatrixForm=",ExpressionUUID->"635fba6d-c6d1-4d20-bdcf-\
440d89c281a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse2pt1", " ", ".", " ", "metric2pt1"}], "  ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8275309128165627`*^9, 3.827530928202669*^9}, {
  3.8275883347535257`*^9, 3.827588336310404*^9}, {3.827589424375289*^9, 
  3.827589426759509*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"95283ffc-7edd-48fb-8352-eae477bda781"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8275309177805433`*^9, 3.827530928202827*^9}, 
   3.827588446028254*^9, 3.827588537612619*^9, 3.827589531467901*^9, 
   3.827589576597443*^9, 3.855744011992372*^9},
 CellLabel->
  "Out[27]//MatrixForm=",ExpressionUUID->"4edbd7ea-b857-4ef6-81b3-\
3941b90b8a66"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 2.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82753103002352*^9, 3.827531052415834*^9}, {
  3.8275968095870447`*^9, 
  3.827596810505775*^9}},ExpressionUUID->"68fb9801-f7e5-4824-82e7-\
6bb374e29553"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.8275309635868196`*^9, 
   3.827530965633152*^9}, 3.827531041137661*^9, {3.8275896570588703`*^9, 
   3.82758966411475*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"e8b39c6d-07f6-4fb0-a074-6a177f0dd99f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "9.35", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2pt1\>\"", ",", " ", "metric2pt1", ",", " ", 
     "\"\<EinsteinRosenWeylCC\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(er\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\[Rho]", ",", "\[Phi]", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.827530980865696*^9, 
   3.827531060072402*^9}, {3.827588575088112*^9, 3.8275885963279343`*^9}, {
   3.82758863536852*^9, 3.827588636880064*^9}, {3.827589583103713*^9, 
   3.827589684344103*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"6aea709e-96b6-4df8-aa6d-7af82dbbc903"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10.283423`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.827531030651795*^9, 3.8275310411379538`*^9}, 
   3.827588597641552*^9, 3.827588629141403*^9, {3.827589637430705*^9, 
   3.8275896457941227`*^9}, 3.8275896778576593`*^9, 3.855744022308065*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"eb19b7b3-d705-45e8-8f63-daba0541d398"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8275310153844624`*^9, 3.827531041138036*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"832143ab-f850-4dc9-a7b8-045c7f1b44a8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "er"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82753106614108*^9, 3.8275321257370567`*^9, 
  3.827588643637848*^9, 3.8275896952581797`*^9, 3.8557440223777103`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"1a00a28f-a6a3-44ff-b1ff-d70c1d080ade"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.827531041138124*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"75b05756-df77-4e7e-890f-377229ab5882"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "er"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827588643676983*^9, 3.8275896953061113`*^9, 3.8557440223912497`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"fee72e2c-80a6-4f4f-9d69-9f90e6d8e306"],

Cell[BoxData["\<\"EinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827588643676983*^9, 3.8275896953061113`*^9, 3.855744022396853*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"6d2b0850-1ee7-43ce-8910-8f332f8a681e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}], "-", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}], "-", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[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", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827588643676983*^9, 3.8275896953061113`*^9, 3.855744022400988*^9},
 CellLabel->
  "Out[34]//TraditionalForm=",ExpressionUUID->"8f585442-6298-48d2-b92d-\
6b6f9cd59384"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.827531041138465*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"27536918-49d1-4c08-863f-c7a05102614a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.827588643715147*^9, 3.827589695325852*^9, 3.855744022426618*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"4584c838-f058-4fe6-988e-99139732e22f"],

Cell[BoxData["\<\"ChristoffelSymbolEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.827588643715147*^9, 3.827589695325852*^9, 3.855744022431802*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"0b04afd2-4491-4142-a5ee-1352c2cef657"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[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[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              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["\[Rho]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              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["\[ExponentialE]", 
              RowBox[{
               RowBox[{"4", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              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[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              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[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[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[{"\[Rho]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}], "-", "1"}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "\[Rho]"], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox["1", "\[Rho]"], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[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"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             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"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[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[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[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", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.827588643715147*^9, 3.827589695325852*^9, 3.85574402248357*^9},
 CellLabel->
  "Out[37]//TraditionalForm=",ExpressionUUID->"f0a04a39-537a-488f-bce4-\
2180f5da13cb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.82753104113878*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"1882c52e-8a77-460b-8213-c5b4f6845a2c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.82758864397784*^9, 3.8275896954074163`*^9, 3.855744022501696*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"6b17b1d0-701c-4b5f-a977-584fc2068ec3"],

Cell[BoxData["\<\"RiemannTensorEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.82758864397784*^9, 3.8275896954074163`*^9, 3.855744022506249*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"98da556a-fc47-481e-a4d0-7488f88028c9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "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[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "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["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "0", 
           "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "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[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               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["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "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[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[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[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "0", 
           "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], "+", 
              RowBox[{"\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[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", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.82758864397784*^9, 3.8275896954074163`*^9, 3.85574402314662*^9},
 CellLabel->
  "Out[40]//TraditionalForm=",ExpressionUUID->"a09fb1e1-b737-456b-ae9a-\
3fcfd920f094"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.827531041139097*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"81b43dc6-358a-48da-a376-2ac48fe6bc5d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827588648690543*^9, 3.827589696068985*^9, 3.8557440231903133`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"9b7d1236-d967-4661-8b5f-3a27d1ac8545"],

Cell[BoxData["\<\"RicciTensorEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827588648690543*^9, 3.827589696068985*^9, 3.855744023195272*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"8ca5c54c-b791-4385-ad40-164dc5356f8a"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"], 
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}]}], 
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"2", " ", "\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"], "0", "0"},
      {"0", "0", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}], ")"}]}], "\[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", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827588648690543*^9, 3.827589696068985*^9, 3.8557440232576103`*^9},
 CellLabel->
  "Out[43]//TraditionalForm=",ExpressionUUID->"f38adabd-a6eb-4c20-b604-\
3ee27735cd8c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.827531041139411*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"859480f5-8166-485f-96a0-6637072972a4"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.827588649071699*^9, 3.8275896961405277`*^9, 
  3.8557440232716084`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"51e1a844-7ec4-41e2-a422-3dd85a5a84fe"],

Cell[BoxData["\<\"RicciScalarEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.827588649071699*^9, 3.8275896961405277`*^9, 
  3.8557440232777042`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"e8e7823f-b387-493c-98b0-6377161e68f1"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Rho]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None]}], ")"}]}], "\[Rho]"],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.827588649071699*^9, 3.8275896961405277`*^9, 
  3.855744023303535*^9},
 CellLabel->
  "Out[46]//TraditionalForm=",ExpressionUUID->"9cd0d37b-ecf3-4327-9ded-\
d73dc93775bd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.8275310411397467`*^9, {
   3.827531085049985*^9, 3.8275310892800713`*^9}, {3.827589709279572*^9, 
   3.827589714609309*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"7e8e3136-54b6-470d-94f3-f9e521b0c817"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.827589715137965*^9, 3.827590067306985*^9, 
  3.855744023317609*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"9c9d1eaf-19ac-425a-8f81-f2f852543613"],

Cell[BoxData["\<\"KretschmannScalarEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.827589715137965*^9, 3.827590067306985*^9, 
  3.855744023322447*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"9a482276-4ebe-4f5b-8ac7-a46dacd70358"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", 
     SuperscriptBox["\[Rho]", "2"]], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"\[Psi]", "(", 
         RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[Rho]", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", "\[Rho]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Rho]"}]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", "\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}]}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{"4", " ", "\[Rho]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], ")"}], "3"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
       RowBox[{"2", " ", "\[Rho]", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Rho]"}]}],
                MultilineFunction->None]}]}], ")"}]}]}], "-", 
          RowBox[{"8", " ", "\[Rho]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Rho]"}]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
       RowBox[{"4", " ", "\[Rho]", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Rho]"}]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Rho]"}]}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Rho]", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"14", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], "+", "3"}], ")"}]}], 
       "+", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["t", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "3"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Rho]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Rho]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Rho]"}],
              MultilineFunction->None], ")"}], "2"]}], "-", 
          RowBox[{"4", " ", "\[Rho]", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Rho]"}],
            MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Rho]", "2"]}],
         MultilineFunction->None], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "4"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "4"]}], "-", 
       RowBox[{"4", " ", "\[Rho]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], ")"}], "3"]}]}], ")"}]}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.827589715137965*^9, 3.827590067306985*^9, 
  3.855744023485214*^9},
 CellLabel->
  "Out[49]//TraditionalForm=",ExpressionUUID->"1cda3333-d5d8-4877-84bb-\
8e599b299b79"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.827531041140236*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"792ac327-9d2c-4f4f-b124-6937fc8d7d5f"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827588649162919*^9, 3.8275896962087593`*^9, 3.855744023557928*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"3ba8f618-a3db-4782-98ce-d46cdf12b468"],

Cell[BoxData["\<\"EinsteinTensorEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827588649162919*^9, 3.8275896962087593`*^9, 3.855744023563265*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"dd633827-e716-481c-820f-02fb34eb6944"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "\[Rho]"], 
       
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}]}], 
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "\[Rho]"], 
       "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}]}], ")"}]}], "\[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", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827588649162919*^9, 3.8275896962087593`*^9, 3.8557440236305723`*^9},
 CellLabel->
  "Out[52]//TraditionalForm=",ExpressionUUID->"a0d1fa78-2309-4adb-a5ad-\
6cf745a30c72"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.827531041140554*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"7a0f30f0-6e53-4032-a0ed-c318364a3049"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.827588649610564*^9, 3.8275896963091383`*^9, 3.855744023646163*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"4f00a339-550f-4ad6-a40a-f8cf4769c8c8"],

Cell[BoxData["\<\"WeylTensorEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.827588649610564*^9, 3.8275896963091383`*^9, 3.855744023651082*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"47ee2fac-a5de-4acc-9b56-9dde7f99e094"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[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", 
           RowBox[{
            FractionBox["1", "6"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "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[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"6", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "-", 
                   RowBox[{"6", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "\[Rho]"}]]}]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"4", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"3", " ", "\[Rho]"}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"8", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}],
            "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "6"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"6", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{"3", "-", 
                 RowBox[{"6", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[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", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"4", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{"6", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "-", 
                   RowBox[{"6", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"2", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "\[Rho]"}]]}], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", "\[Rho]"}]]}]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"3", "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", "\[Rho]"}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"6", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", "3"}], ")"}]}], "-", 
               RowBox[{"8", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"6", " ", "\[Rho]"}]], "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"]}], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", "\[Rho]", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[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", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.827588649610564*^9, 3.8275896963091383`*^9, 3.855744024677548*^9},
 CellLabel->
  "Out[55]//TraditionalForm=",ExpressionUUID->"f1be0aec-2a9f-4253-8fc4-\
0d9f559eaf63"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.8275310411408653`*^9, {3.8275310942501097`*^9, 
   3.827531098768097*^9}, {3.827589700385611*^9, 3.8275897051775293`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"1b6b9380-d55b-4b7e-9daa-d499127a4890"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.827589705561117*^9, 3.827590067307354*^9, 
  3.855744024759164*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"858b6f26-572d-4223-af96-0884f179b34d"],

Cell[BoxData["\<\"CottonTensorEinsteinRosenWeylCC\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.827589705561117*^9, 3.827590067307354*^9, 
  3.8557440247653627`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"4826e6c9-bdf2-4378-904b-aedfc8cfb8d1"],

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[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", "1"}], 
                ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "-", "3"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "3"]}], "-", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"10", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", "2"}], 
                ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Rho]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Rho]", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], ")"}], "3"]}], "+", 
              RowBox[{"4", " ", "\[Rho]", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"3", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"5", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"3", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"5", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "3"]}], "-", 
                 RowBox[{"2", " ", "\[Rho]", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Rho]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"4", " ", "\[Rho]", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "3"]}], "-", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"6", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", "2"}], 
                 ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Rho]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "3"]}], "-", 
               RowBox[{"10", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"6", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "3"]}], "-", 
                  RowBox[{"4", " ", "\[Rho]", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "\[Rho]", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"6", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", "2"}], 
                 ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Rho]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Rho]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"\[Rho]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Rho]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Rho]"}],
                   MultilineFunction->None], ")"}], "3"]}], "+", 
               RowBox[{"10", " ", "\[Rho]", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"\[Rho]", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                   MultilineFunction->None]}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"14", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"4", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "3"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "3"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"5", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"12", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"14", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"14", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"5", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"12", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", "4"}], 
                  ")"}]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{"8", " ", 
                 SuperscriptBox["\[Rho]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["\[Rho]", "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[{
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"14", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "\[Rho]"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "3"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"4", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "3"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"5", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"12", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["t", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"5", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"14", " ", "\[Rho]", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["\[Rho]", "2"]}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"8", " ", "\[Rho]", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "3"]}]}], ")"}]}], 
             RowBox[{"3", " ", "\[Rho]"}]]},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Rho]"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "3"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Rho]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"14", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"5", " ", "\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"12", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["\[Rho]", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"8", " ", 
                    SuperscriptBox["\[Rho]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", "4"}], 
                  ")"}]}], "-", 
                RowBox[{"2", " ", "\[Rho]", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Rho]", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Rho]"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"8", " ", 
                 SuperscriptBox["\[Rho]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Psi]", "(", 
                    RowBox[{"t", ",", "\[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]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.827589705561117*^9, 3.827590067307354*^9, 
  3.855744025660769*^9},
 CellLabel->
  "Out[58]//TraditionalForm=",ExpressionUUID->"b861a7ac-3fb1-49f6-a994-\
715f21c7e764"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Einstein Vacuum Field Equations for Metric 2.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82753204336027*^9, 3.827532089113233*^9}, {
   3.827589203503796*^9, 3.82758920451965*^9}, {3.8275900183832197`*^9, 
   3.827590033172667*^9}, 
   3.8557442287039013`*^9},ExpressionUUID->"c50a9b0b-31c3-4759-94e0-\
cf02c937b1e6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroRicci", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.827531198977305*^9, 3.827531218712432*^9}, {
   3.8275316424984903`*^9, 3.827531659451207*^9}, 3.82753208911338*^9, {
   3.827589726960992*^9, 3.827589744361826*^9}, 3.8275900331729307`*^9, 
   3.855744228704505*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"09827b94-8139-4182-b2ed-877d385c1065"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"]},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}]}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Rho]", "2"]}],
             MultilineFunction->None]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"2", " ", "\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}], "\[Rho]"]},
      {
       RowBox[{"\[Rho]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Rho]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Rho]", "2"]}],
              MultilineFunction->None], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Psi]", "(", 
                RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], ")"}]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None]}], ")"}]}]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Psi]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], ")"}]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}], ")"}]}], "\[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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.8275312198491096`*^9, {3.8275316434903307`*^9, 3.8275316598665257`*^9}, 
   3.8275320891134653`*^9, 3.827588684407709*^9, {3.827589732912424*^9, 
   3.827589744879117*^9}, 3.827590033173017*^9, 3.855744025779849*^9, 
   3.855744228705258*^9},
 CellLabel->
  "Out[61]//TraditionalForm=",ExpressionUUID->"706c7af5-d303-42a1-b338-\
f41887e2b6ec"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", "   ", "//", " ", "TableForm"}], " ", "//", "  ",
   "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8275311141527853`*^9, 3.827531186544376*^9}, 
   3.827532089113579*^9, {3.827589748304401*^9, 3.827589785888142*^9}, {
   3.827589827038352*^9, 3.827589836432034*^9}, 3.827590033173196*^9, 
   3.855744228705536*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"aafae238-a585-46bf-8e5c-437d014b8ae9"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        "\[Rho]"]},
      {
       RowBox[{
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], "\[Rho]"], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None]}]}]},
      {
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Rho]"}],
          MultilineFunction->None], "-", 
         RowBox[{"\[Rho]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        "\[Rho]"]},
      {
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["t", "2"]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Rho]", "2"]}],
           MultilineFunction->None], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Rho]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["\[Rho]", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Psi]", "(", 
                  RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Rho]", "2"]}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Psi]", "(", 
                   RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           RowBox[{"\[Rho]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Psi]", "(", 
                 RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Rho]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None]}]}], ")"}]}], "\[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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8275311825911407`*^9, 3.827531187420929*^9}, 
   3.827532089113645*^9, 3.827588684704623*^9, {3.827589737238222*^9, 
   3.827589764645112*^9}, {3.827589828793154*^9, 3.827589836726104*^9}, 
   3.8275900331732597`*^9, 3.8557440258723497`*^9, 3.8557442287057257`*^9},
 CellLabel->
  "Out[64]//TraditionalForm=",ExpressionUUID->"e73b42dc-d83b-4c8e-a9d2-\
4c8ee734d17a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Expand", "[", 
     RowBox[{
      RowBox[{"(", 
       FractionBox[
        RowBox[{"-", "1"}], "\[Rho]"], ")"}], "*", 
      RowBox[{
       RowBox[{"nonzeroRicci", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}], " ", "\[Equal]", " ", "0"}]}],
   "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt6", "  ", "//", " ", "pdConv", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.827589857415612*^9, 3.827589947360742*^9}, 
   3.827590033173401*^9, 3.855744052531539*^9, {3.85574409012302*^9, 
   3.855744091555566*^9}, 3.855744228705945*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"f5c872fa-a1ef-4468-bba4-13a7220efaa7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Psi]", "(", 
       RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["t", "2"]}],
     MultilineFunction->None], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Psi]", "(", 
       RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["\[Rho]", "2"]}],
     MultilineFunction->None], "-", 
    FractionBox[
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], "\[Rho]"]}], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.827589859307144*^9, 3.8275899090452557`*^9}, 
   3.827589947990041*^9, 3.827590033174602*^9, {3.855744025901991*^9, 
   3.855744052845682*^9}, 3.855744091884892*^9, 3.855744228706142*^9},
 CellLabel->
  "Out[93]//TraditionalForm=",ExpressionUUID->"da4e0c31-8e34-4f79-9e4e-\
f4133aa344c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{"eq2pt6", " ", ",", 
       RowBox[{
        SuperscriptBox["\[Psi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "\[Rho]"}], "]"}]}], " ", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], " ", "]"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855744055051743*^9, 3.855744097813065*^9}, 
   3.85574422870636*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"df3f7209-ef7a-4d84-9d0c-87b8c821d31d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Psi]", "(", 
      RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["t", "2"]}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Psi]", "(", 
       RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["\[Rho]", "2"]}],
     MultilineFunction->None], "+", 
    FractionBox[
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], "\[Rho]"]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855744078412818*^9, 3.855744098242001*^9}, 
   3.855744228706522*^9},
 CellLabel->
  "Out[95]//TraditionalForm=",ExpressionUUID->"0009ec3e-e575-4b61-a1d7-\
8f09d0348bb9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroEinstein", "[", 
              RowBox[{"[", "3", "]"}], "]"}], " ", "\[Equal]", "0"}], ",", 
            RowBox[{
             SuperscriptBox["\[Gamma]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "\[Rho]"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
        RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], ")"}], " ", "//", " ", 
      "Expand"}], " ", "//", " ", "Apart"}], " ", "//", " ", "Expand"}]}], 
  "    ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt7", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.827589816351932*^9, 3.8275898215440598`*^9}, {
   3.827589963936228*^9, 3.8275899760123873`*^9}, 3.827590033174815*^9, 
   3.855744228706777*^9},
 CellLabel->"In[68]:=",ExpressionUUID->"4b7451ba-0cb2-4204-8771-b408847ea6d9"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", "\[Rho]"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"\[Rho]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "t"}],
        MultilineFunction->None], ")"}], "2"]}], "+", 
    RowBox[{"\[Rho]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Rho]"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.827589822099245*^9, 3.827589977212414*^9, 
  3.82759003317556*^9, 3.8557440259312696`*^9, 3.8557442287069407`*^9},
 CellLabel->
  "Out[70]//TraditionalForm=",ExpressionUUID->"aeaf911f-d402-47bd-bca3-\
7fffb9ebb971"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt8", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt8", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroEinstein", "[", 
              RowBox[{"[", "2", "]"}], "]"}], " ", "\[Equal]", "0"}], ",", 
            RowBox[{
             SuperscriptBox["\[Gamma]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "\[Rho]"}], "]"}]}], "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
        RowBox[{"Rule", "\[Rule]", " ", "Equal"}]}], ")"}], " ", "//", " ", 
      "Expand"}], " ", "//", " ", "Apart"}], " ", "//", " ", "Expand"}]}], 
  "    ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt8", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.827588826703519*^9, 3.8275888895120564`*^9}, 
   3.82758919515627*^9, {3.827589773984332*^9, 3.827589804614523*^9}, {
   3.8275899836243258`*^9, 3.8275899976636353`*^9}, 3.8275900331757727`*^9, 
   3.8557442287071877`*^9},
 CellLabel->"In[71]:=",ExpressionUUID->"ff77e642-b6e1-47d4-a8c9-b4d4603c9a09"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{"2", " ", "\[Rho]", " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Psi]", "(", 
       RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Psi]", "(", 
       RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
     RowBox[{"\[PartialD]", "\[Rho]"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8275888300277987`*^9, 3.827588890037674*^9}, 
   3.8275891951583567`*^9, {3.8275897780617933`*^9, 3.827589805870983*^9}, 
   3.827589998033957*^9, 3.827590033176915*^9, 3.855744025960475*^9, 
   3.855744228707366*^9},
 CellLabel->
  "Out[73]//TraditionalForm=",ExpressionUUID->"d43b4721-2b99-4707-a1ad-\
94af5ed5f923"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"eq2pt7", ",", "t"}], "]"}], " ", "//", " ", 
  "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"eq2pt8", " ", ",", "\[Rho]"}], "]"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855743946005129*^9, 3.8557439625966177`*^9}, 
   3.8557442287076693`*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"5cb18721-e027-48ec-b24e-3635a3a580c7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "\[Rho]"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["t", "2"]}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8557440259897327`*^9, 3.855744228707994*^9},
 CellLabel->
  "Out[74]//TraditionalForm=",ExpressionUUID->"5eb995c9-3425-460a-b73a-\
d9389ca06549"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "\[Rho]"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Rho]", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.85574402599609*^9, 3.855744228708177*^9},
 CellLabel->
  "Out[75]//TraditionalForm=",ExpressionUUID->"a0300789-e494-4c8b-8682-\
a548e81023be"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "compatabilityConditions", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"compatabilityConditions", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"eq2pt7", ",", "t"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], " ", "==", " ", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"eq2pt8", " ", ",", "\[Rho]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"compatabilityConditions", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855743969602873*^9, 3.8557439944050283`*^9}, 
   3.8557442287083883`*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"e55406e0-1732-41f8-83a0-c188e9f4e251"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["t", "2"]}],
      MultilineFunction->None]}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Rho]", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.855744026029189*^9, 3.855744228708555*^9},
 CellLabel->
  "Out[78]//TraditionalForm=",ExpressionUUID->"10b41a4e-52a9-44bd-b615-\
8cd98927b49f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{"Just", " ", "to", " ", "make", " ", "sure", " ", 
     RowBox[{"we", "'"}], "ve", " ", "correctly", " ", "derived", " ", "the", 
     " ", "field", " ", "equations"}], ".."}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"compatabilityConditions", "  ", "//", " ", "pdConv"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"compatabilityConditions", " ", "/.", " ", 
     RowBox[{"Expand", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", 
         RowBox[{"eq2pt6", " ", ",", 
          RowBox[{
           SuperscriptBox["\[Psi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "\[Rho]"}], "]"}]}], " ", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "]"}]}], " ", "//", " ", 
    "pdConv"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"compatabilityConditions", " ", "/.", " ", 
      RowBox[{"Expand", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{"eq2pt6", " ", ",", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "\[Rho]"}], "]"}]}], " ", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "]"}]}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8557441197918386`*^9, 3.855744165626363*^9}, 
   3.855744228708838*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"83804012-348d-4dbe-bd85-76b9bdc90a85"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["t", "2"]}],
      MultilineFunction->None]}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Rho]", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855744149750355*^9, 3.855744168097168*^9}, 
   3.8557442287090187`*^9},
 CellLabel->
  "Out[99]//TraditionalForm=",ExpressionUUID->"c6cdee68-d2e0-40bb-8e99-\
b71320dcc90b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["\[Rho]", "2"]}],
        MultilineFunction->None], "+", 
       FractionBox[
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], "\[Rho]"]}], ")"}]}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{
       RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
       RowBox[{"\[PartialD]", "\[Rho]"}]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", "\[Rho]", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["\[Rho]", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "t"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Psi]", "(", 
        RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Rho]"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855744149750355*^9, 3.85574416812735*^9}, 
   3.8557442287091827`*^9},
 CellLabel->
  "Out[100]//TraditionalForm=",ExpressionUUID->"22ab3c3c-2de1-42b8-9d47-\
b8b2f9315f78"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855744149750355*^9, 3.855744168131811*^9}, 
   3.855744228709943*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"2d24ff99-ba89-4978-a3aa-7af227203563"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "vacuumFieldEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vacuumFieldEquations", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{"eq2pt6", "  ", ",", " ", "eq2pt7", ",", "eq2pt8"}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vacuumFieldEquations", " ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855744170924131*^9, 3.85574423464398*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"24177cb8-fb26-483d-9fd4-7ab0d1d9badb"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None], "-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["\[Rho]", "2"]}],
          MultilineFunction->None], "-", 
         FractionBox[
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Rho]"}],
           MultilineFunction->None], "\[Rho]"]}], "\[LongEqual]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Rho]"}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"\[Rho]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Psi]", "(", 
               RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Rho]"}],
             MultilineFunction->None], ")"}], "2"]}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], "\[LongEqual]", 
        RowBox[{"2", " ", "\[Rho]", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[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", 10006.},
 CellChangeTimes->{{3.8557442130550537`*^9, 3.855744234644767*^9}},
 CellLabel->
  "Out[104]//TraditionalForm=",ExpressionUUID->"fc408c6e-30b7-4df6-a1c3-\
bef5fc533964"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 3.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.85574486636115*^9, 
  3.855744881914983*^9}},ExpressionUUID->"7d0b8039-c0d1-488f-905b-\
6fa908deddc7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq3pt1", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Psi]"}], "]"}], " ", 
    SuperscriptBox["dz", "2"]}], "+", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dt", "2"]}], "+", " ", 
      SuperscriptBox["d\[Rho]", "2"]}], ")"}]}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox["\[Rho]", "2"], " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "2"}], "\[Psi]"}], "]"}], " ", 
    SuperscriptBox["d\[Phi]", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.855744465451927*^9, 3.8557445373788567`*^9}, 
   3.855744874322373*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"2bdfc5b7-1035-4ead-a9e6-49e304eb4acf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["d\[Rho]", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "+", 
  RowBox[{
   SuperscriptBox["dz", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Psi]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Psi]"}]], " ", 
   SuperscriptBox["\[Rho]", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.855744466953239*^9, 3.8557445385926037`*^9, 
  3.8557448743232727`*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"c2199631-abf1-471a-883e-ea64275e30b6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq3pt1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Phi]", ",", "dz"}], "}"}]}], 
    "]"}], " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.855744540436255*^9, 3.8557445540372763`*^9}, {
   3.8557446321391373`*^9, 3.855744633196745*^9}, 3.855744874323599*^9},
 CellLabel->
  "In[122]:=",ExpressionUUID->"3408ac8c-3999-4984-b54d-e1a2ef40f00f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Psi]"}]]}], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Psi]"}]]}
     },
     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", 10007.},
 CellChangeTimes->{{3.855744549700935*^9, 3.8557445547877007`*^9}, 
   3.8557446337099323`*^9, 3.855744874324424*^9},
 CellLabel->
  "Out[122]//TraditionalForm=",ExpressionUUID->"e71777c4-bd5a-43fd-8c2d-\
30d2fdb866a1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq3pt1a", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt1a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Psi]", "->", " ", 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"t", ",", "\[Rho]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Gamma]", "->", " ", 
      RowBox[{"\[Gamma]", "[", 
       RowBox[{"t", ",", "\[Rho]"}], "]"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt1a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8557445665543013`*^9, 3.855744595845096*^9}, 
   3.855744874324873*^9},
 CellLabel->
  "In[112]:=",ExpressionUUID->"40ffc5a6-17fe-4b55-bbf8-703bf285b3fb"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Psi]", "\[Rule]", 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"t", ",", "\[Rho]"}], "]"}]}]},
     {
      RowBox[{"\[Gamma]", "\[Rule]", 
       RowBox[{"\[Gamma]", "[", 
        RowBox[{"t", ",", "\[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", 10007.},
 CellChangeTimes->{{3.8557445862048798`*^9, 3.8557445970315437`*^9}, 
   3.855744874325633*^9},
 CellLabel->
  "Out[114]//TableForm=",ExpressionUUID->"3ba6587b-7d36-48cb-b8c2-\
f3b6f5c43c59"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric3pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq3pt1", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Phi]", ",", "dz"}], "}"}]}], 
     "]"}], "  ", "/.", " ", "eq3pt1a"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3pt1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.855744607274538*^9, 3.85574462822077*^9}, 
   3.855744874325881*^9},
 CellLabel->
  "In[119]:=",ExpressionUUID->"967cd419-52dd-43b3-b715-12b3ff19caac"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}], "-", 
            RowBox[{"\[Psi]", "(", 
             RowBox[{"t", ",", "\[Rho]"}], ")"}]}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}], "-", 
           RowBox[{"\[Psi]", "(", 
            RowBox[{"t", ",", "\[Rho]"}], ")"}]}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[Rho]", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Psi]", "(", 
           RowBox[{"t", ",", "\[Rho]"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Psi]", "(", 
          RowBox[{"t", ",", "\[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", 10007.},
 CellChangeTimes->{{3.85574460924474*^9, 3.855744628764821*^9}, 
   3.8557448743265247`*^9},
 CellLabel->
  "Out[121]//TraditionalForm=",ExpressionUUID->"ecc9e4a3-0564-4195-9916-\
7484268a1529"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Transformation of Metric 3.1 (Not Finished... Not Working... )\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.85574488601895*^9, 
  3.8557449101705923`*^9}},ExpressionUUID->"9b59f755-91df-4c0e-a382-\
0550fc614734"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt1b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq3pt1b", " ", "=", " ", 
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Rho]", " ", "\[Equal]", " ", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"z", " ", "\[Equal]", " ", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "  ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"U", " ", "\[Equal]", " ", 
       RowBox[{"t", "-", "r"}]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
   ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt1b", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.827590171091009*^9, 3.827590205114872*^9}, {
   3.827590263009377*^9, 3.827590306935204*^9}, {3.8557446552524767`*^9, 
   3.855744659058663*^9}, 3.85574489384905*^9},
 CellLabel->
  "In[123]:=",ExpressionUUID->"15436e78-1939-4006-ba50-f60d3126fb98"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Rho]", "\[Equal]", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{"z", "\[Equal]", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{"U", "\[Equal]", 
       RowBox[{
        RowBox[{"-", "r"}], "+", "t"}]}]}
    },
    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", 10008.},
 CellChangeTimes->{{3.827590269319242*^9, 3.8275903072208033`*^9}, 
   3.855744026041582*^9, 3.8557446641697063`*^9, 3.855744893849279*^9},
 CellLabel->
  "Out[125]//TableForm=",ExpressionUUID->"f05ed4f5-9c67-45a8-b8c6-\
a61905240c96"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "rhoTreplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rhoTreplace", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Eliminate", "[", 
         RowBox[{
          RowBox[{"eq3pt1b", "[", 
           RowBox[{"[", 
            RowBox[{"1", ";;", "2"}], "]"}], "]"}], " ", ",", "\[Theta]"}], 
         "]"}], ",", 
        RowBox[{"eq3pt1b", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "}"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Rho]", ",", "t"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"rhoTreplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8275903445144053`*^9, 3.827590435582111*^9}, {
   3.855744662204101*^9, 3.855744672827313*^9}, 3.8557448938494453`*^9},
 CellLabel->
  "In[129]:=",ExpressionUUID->"b598bec2-6559-4cbc-a356-6e34eef05fe3"],

Cell[BoxData[
 TemplateBox[{
  "Eliminate", "ifun", 
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Eliminate\\\"}]\\), so some solutions may not be found; \
use Reduce for complete solution information.\"", 2, 130, 8, 
   23719023783293218661, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{
  3.855744026134079*^9, {3.8557446656960363`*^9, 3.855744673504011*^9}, 
   3.85574489384965*^9},
 CellLabel->
  "During evaluation of \
In[129]:=",ExpressionUUID->"cc44be8e-8a08-4c04-a1a8-6d192a7ecbd9"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Rho]", "\[Rule]", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "-", 
         SuperscriptBox["z", "2"]}]]}]},
     {
      RowBox[{"t", "\[Rule]", 
       RowBox[{"r", "+", "U"}]}]}
    },
    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", 10008.},
 CellChangeTimes->{
  3.827590312559758*^9, {3.8275903457420597`*^9, 3.8275904360172043`*^9}, 
   3.855744026150765*^9, {3.855744665758193*^9, 3.855744673517839*^9}, 
   3.855744893849903*^9},
 CellLabel->
  "Out[131]//TableForm=",ExpressionUUID->"0271acd7-f781-466e-84e4-\
46d4001c0f40"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "rhoTreplace", " ", "]"}], " ", "/.", " ", 
    "dtReplace"}], " ", ")"}], "   ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.827590438246093*^9, 3.8275904483829107`*^9}, {
   3.827590481102715*^9, 3.82759048321843*^9}, {3.855744811675139*^9, 
   3.8557448144906683`*^9}, 3.855744893850095*^9},
 CellLabel->
  "In[145]:=",ExpressionUUID->"408d0112-5d87-4c32-9735-8d819af6b7d5"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"d\[Rho]", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", "dr", " ", "r"}], "-", 
         RowBox[{"2", " ", "dz", " ", "z"}]}], 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "-", 
           SuperscriptBox["z", "2"]}]]}]]}]},
     {
      RowBox[{"dt", "\[Rule]", 
       RowBox[{"dr", "+", "dU"}]}]}
    },
    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", 10008.},
 CellChangeTimes->{
  3.8275904486207113`*^9, {3.827590479630886*^9, 3.827590483906448*^9}, 
   3.85574402616059*^9, 3.855744814802649*^9, 3.855744893850913*^9},
 CellLabel->
  "Out[145]//TableForm=",ExpressionUUID->"5228c967-5e4b-4db7-9bdc-\
a2cfe295e5af"],

Cell[BoxData[{
 RowBox[{"eq3pt1", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt1", "  ", "/.", " ", "rhoTreplace"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt1", "  ", "/.", " ", "rhoTreplace"}], "  ", "/.", " ", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "rhoTreplace", " ", "]"}], " ", "/.", " ", 
    "dtReplace"}], " ", ")"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.855744778508588*^9, 3.85574481990466*^9}, 
   3.855744893851173*^9},
 CellLabel->
  "In[146]:=",ExpressionUUID->"c96c15a3-a6cd-4450-9b3c-17475691282a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["d\[Rho]", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "+", 
  RowBox[{
   SuperscriptBox["dz", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Psi]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Psi]"}]], " ", 
   SuperscriptBox["\[Rho]", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.855744779770755*^9, 3.8557448205992527`*^9}, 
   3.855744893851387*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"65961a7b-6656-4be5-a0b2-dffa0e908dc4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["d\[Rho]", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]]}], "+", 
  RowBox[{
   SuperscriptBox["dz", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Psi]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Psi]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["r", "2"], "-", 
     SuperscriptBox["z", "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.855744779770755*^9, 3.855744820603685*^9}, 
   3.855744893851572*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"59b46440-6ee4-4c32-bd08-f94e449ad9bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dz", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Psi]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Psi]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["r", "2"], "-", 
     SuperscriptBox["z", "2"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "-", "\[Psi]"}], ")"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"dr", "+", "dU"}], ")"}], "2"]}], "+", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "dr", " ", "r"}], "-", 
         RowBox[{"2", " ", "dz", " ", "z"}]}], ")"}], "2"], 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "-", 
         SuperscriptBox["z", "2"]}], ")"}]}]]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.855744779770755*^9, 3.8557448206086063`*^9}, 
   3.855744893852222*^9},
 CellLabel->
  "Out[148]=",ExpressionUUID->"1396b434-1dce-4d7e-9667-4fa7c1a22911"]
}, Closed]]
},
WindowSize->{1279, 675},
WindowMargins->{{Automatic, -6}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"277cf61a-576e-4506-bb76-2499a279dd55"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2652, 39, 221, "Title",ExpressionUUID->"e19db20b-a2d3-404f-870f-0106f42e19a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3235, 63, 1160, 20, 94, "Author",ExpressionUUID->"5167ca43-7add-4d62-9dbb-9902604ca5cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[4410, 86, 486, 11, 84, "Input",ExpressionUUID->"dd2559d7-e552-4f67-acc3-15faa8e72beb"],
Cell[4899, 99, 510, 10, 57, "Text",ExpressionUUID->"a44f3888-54c9-4ff3-b598-0ccd9306ade7"],
Cell[CellGroupData[{
Cell[5434, 113, 228, 4, 69, "Section",ExpressionUUID->"1c28ae33-9a56-45bf-a0ec-abc0f33bc8e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[5665, 119, 438, 10, 63, "Input",ExpressionUUID->"d3d22d4a-f347-4b4e-990c-b556fb6234f3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[6106, 131, 1440, 23, 43, "Output",ExpressionUUID->"7b819b3d-1eee-4cd6-881e-f8724c1cdaf2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[7583, 159, 691, 11, 55, "Section",ExpressionUUID->"405b7f84-eca6-4ac6-a154-1d65c8ed6c7b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8277, 172, 449, 9, 63, "Input",ExpressionUUID->"a5d274b4-885f-4ae4-ab43-56852b332304",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8729, 183, 391, 8, 43, "Output",ExpressionUUID->"566311ea-e71b-4a46-a77b-1405ec75be09",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[9157, 196, 251, 4, 55, "Section",ExpressionUUID->"a21cab32-b476-4258-8bc1-7dbc2261ae04",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[9411, 202, 1673, 46, 189, "Input",ExpressionUUID->"04d37a1c-50bd-477c-ae44-b5bdbe753dd8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11087, 250, 1716, 28, 24, "Print",ExpressionUUID->"270c2f1d-6333-43ba-877c-da43469d9281",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12806, 280, 1735, 29, 24, "Print",ExpressionUUID->"3a4f8651-bd2d-451e-9535-f99ab57bc0e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14544, 311, 2061, 32, 84, "Output",ExpressionUUID->"78d0f987-7acd-4990-9d44-497d2bba1ca2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16608, 345, 268, 4, 41, "Input",ExpressionUUID->"78e4eb53-d818-4d9d-a791-32bbdecfedbb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16879, 351, 308, 5, 41, "Input",ExpressionUUID->"ee5694d4-cbf8-4506-803c-26b6e58e0043",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[17224, 361, 266, 5, 55, "Section",ExpressionUUID->"e2cbbc42-aa92-47ec-ba4a-a865d1bd575b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[17493, 368, 598, 12, 105, "Input",ExpressionUUID->"61adcada-db64-4c85-9767-bcca4e6f4efe",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18094, 382, 528, 11, 50, "Output",ExpressionUUID->"7a2dff47-9d4f-4b87-85f1-07571cfd5544",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18625, 395, 2443, 56, 399, "Input",ExpressionUUID->"2187f89e-de2c-41ef-92b3-24a1f2247463",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21071, 453, 2509, 71, 285, "Output",ExpressionUUID->"004fafaa-e10a-46fe-bf48-96e3a9e13bc9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23583, 526, 675, 16, 63, "Input",ExpressionUUID->"b7973a7d-eebe-4188-807b-0265535aa045",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24295, 547, 362, 6, 55, "Section",ExpressionUUID->"b280ddf5-2430-4947-9d7b-30d09af5c251",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24660, 555, 1660, 41, 126, "Input",ExpressionUUID->"4befb2db-5467-4133-b888-970fdd67e226",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26323, 598, 1056, 26, 84, "Input",ExpressionUUID->"f7ddbd66-4b5c-4a31-b2f9-3c5d9fd6b8bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27416, 629, 350, 6, 55, "Section",ExpressionUUID->"7e499474-11d8-4e4c-8280-ab3b042f5042",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27769, 637, 1194, 30, 86, "Input",ExpressionUUID->"9622b4f9-33de-4c0f-a594-c066c3bc74e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28966, 669, 965, 27, 44, "Output",ExpressionUUID->"8339e76b-dd96-4df7-86a8-bbcf0eb0700b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29934, 698, 737, 16, 41, "Input",ExpressionUUID->"12255bc1-28c7-4738-9339-0e1c4ea004f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30674, 716, 1557, 42, 112, "Output",ExpressionUUID->"7e5bbe77-99b4-475f-9acb-c51f603ec02c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32234, 760, 1025, 21, 147, "Input",ExpressionUUID->"16eaa0d8-efbb-410a-8120-e2fbee4cc311",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33262, 783, 1041, 30, 69, "Output",ExpressionUUID->"91a3a9ba-3bfb-4620-892b-c92655d05832",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34306, 815, 962, 20, 105, "Input",ExpressionUUID->"0ce48b93-dd8c-4761-b2e2-042fa92f94c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35271, 837, 2005, 54, 112, "Output",ExpressionUUID->"73dde0d1-b6a7-4532-97a9-8e3f8e90626f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37279, 893, 833, 17, 105, "Input",ExpressionUUID->"bae80259-1efc-4b83-a343-cb41c95816f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38115, 912, 1988, 54, 126, "Output",ExpressionUUID->"f2035c54-c045-40e9-895d-23d27139ea24",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40106, 968, 510, 11, 41, "Input",ExpressionUUID->"02b84625-0d24-4098-ae0b-298b970f37fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40619, 981, 895, 24, 101, "Output",ExpressionUUID->"635fba6d-c6d1-4d20-bdcf-440d89c281a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41517, 1007, 515, 11, 41, "Input",ExpressionUUID->"95283ffc-7edd-48fb-8352-eae477bda781",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42035, 1020, 893, 24, 101, "Output",ExpressionUUID->"4edbd7ea-b857-4ef6-81b3-3941b90b8a66",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[42965, 1049, 283, 5, 55, "Section",ExpressionUUID->"68fb9801-f7e5-4824-82e7-6bb374e29553",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[43251, 1056, 5779, 131, 714, "Input",ExpressionUUID->"e8b39c6d-07f6-4fb0-a074-6a177f0dd99f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[49033, 1189, 1197, 24, 65, "Input",ExpressionUUID->"6aea709e-96b6-4df8-aa6d-7af82dbbc903",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[50233, 1215, 433, 7, 41, "Output",ExpressionUUID->"eb19b7b3-d705-45e8-8f63-daba0541d398",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[50669, 1224, 238, 3, 41, "Input",ExpressionUUID->"832143ab-f850-4dc9-a7b8-045c7f1b44a8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[50910, 1229, 1157, 34, 45, "Output",ExpressionUUID->"1a00a28f-a6a3-44ff-b1ff-d70c1d080ade",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[52070, 1265, 810, 18, 84, "Input",ExpressionUUID->"75b05756-df77-4e7e-890f-377229ab5882",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[52883, 1285, 639, 12, 45, "Output",ExpressionUUID->"fee72e2c-80a6-4f4f-9d69-9f90e6d8e306",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[53525, 1299, 567, 8, 41, "Output",ExpressionUUID->"6d2b0850-1ee7-43ce-8910-8f332f8a681e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[54095, 1309, 2146, 56, 101, "Output",ExpressionUUID->"8f585442-6298-48d2-b92d-6b6f9cd59384",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[56244, 1367, 813, 18, 84, "Input",ExpressionUUID->"27536918-49d1-4c08-863f-c7a05102614a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57060, 1387, 749, 14, 45, "Output",ExpressionUUID->"4584c838-f058-4fe6-988e-99139732e22f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57812, 1403, 658, 9, 41, "Output",ExpressionUUID->"0b04afd2-4491-4142-a5ee-1352c2cef657",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[58473, 1414, 18729, 520, 379, "Output",ExpressionUUID->"f0a04a39-537a-488f-bce4-2180f5da13cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77205, 1936, 809, 18, 84, "Input",ExpressionUUID->"1882c52e-8a77-460b-8213-c5b4f6845a2c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[78017, 1956, 628, 11, 45, "Output",ExpressionUUID->"6b17b1d0-701c-4b5f-a977-584fc2068ec3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[78648, 1969, 581, 8, 41, "Output",ExpressionUUID->"98da556a-fc47-481e-a4d0-7488f88028c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[79232, 1979, 103860, 2498, 483, "Output",ExpressionUUID->"a09fb1e1-b737-456b-ae9a-3fcfd920f094",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[183095, 4479, 808, 18, 84, "Input",ExpressionUUID->"81b43dc6-358a-48da-a376-2ac48fe6bc5d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[183906, 4499, 614, 11, 45, "Output",ExpressionUUID->"9b7d1236-d967-4661-8b5f-3a27d1ac8545",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[184523, 4512, 579, 8, 41, "Output",ExpressionUUID->"8ca5c54c-b791-4385-ad40-164dc5356f8a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[185105, 4522, 9836, 258, 199, "Output",ExpressionUUID->"f38adabd-a6eb-4c20-b604-3ee27735cd8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[194944, 4782, 810, 18, 84, "Input",ExpressionUUID->"859480f5-8166-485f-96a0-6637072972a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[195757, 4802, 571, 10, 41, "Output",ExpressionUUID->"51e1a844-7ec4-41e2-a422-3dd85a5a84fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[196331, 4814, 575, 8, 41, "Output",ExpressionUUID->"e8e7823f-b387-493c-98b0-6377161e68f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[196909, 4824, 3166, 84, 75, "Output",ExpressionUUID->"9cd0d37b-ecf3-4327-9ded-d73dc93775bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[200078, 4910, 845, 19, 84, "Input",ExpressionUUID->"7e8e3136-54b6-470d-94f3-f9e521b0c817",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[200926, 4931, 284, 6, 41, "Output",ExpressionUUID->"9c9d1eaf-19ac-425a-8f81-f2f852543613",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[201213, 4939, 294, 4, 41, "Output",ExpressionUUID->"9a482276-4ebe-4f5b-8ac7-a46dacd70358",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[201510, 4945, 24226, 651, 317, "Output",ExpressionUUID->"1cda3333-d5d8-4877-84bb-8e599b299b79",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[225739, 5598, 792, 18, 84, "Input",ExpressionUUID->"792ac327-9d2c-4f4f-b124-6937fc8d7d5f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[226534, 5618, 540, 10, 45, "Output",ExpressionUUID->"3ba8f618-a3db-4782-98ce-d46cdf12b468",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[227077, 5630, 510, 7, 41, "Output",ExpressionUUID->"dd633827-e716-481c-820f-02fb34eb6944",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[227590, 5639, 9106, 241, 183, "Output",ExpressionUUID->"a0d1fa78-2309-4adb-a5ad-6cf745a30c72",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[236699, 5882, 857, 19, 84, "Input",ExpressionUUID->"7a0f30f0-6e53-4032-a0ed-c318364a3049",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[237559, 5903, 625, 11, 45, "Output",ExpressionUUID->"4f00a339-550f-4ad6-a40a-f8cf4769c8c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[238187, 5916, 575, 8, 41, "Output",ExpressionUUID->"47ee2fac-a5de-4acc-9b56-9dde7f99e094",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[238765, 5926, 151386, 3498, 621, "Output",ExpressionUUID->"f1be0aec-2a9f-4253-8fc4-0d9f559eaf63",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[390154, 9426, 819, 18, 84, "Input",ExpressionUUID->"1b6b9380-d55b-4b7e-9daa-d499127a4890",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[390976, 9446, 329, 7, 45, "Output",ExpressionUUID->"858b6f26-572d-4223-af96-0884f179b34d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[391308, 9455, 291, 4, 41, "Output",ExpressionUUID->"4826e6c9-bdf2-4378-904b-aedfc8cfb8d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[391602, 9461, 148776, 3359, 457, "Output",ExpressionUUID->"b861a7ac-3fb1-49f6-a994-715f21c7e764",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[540415, 12825, 385, 6, 55, "Section",ExpressionUUID->"c50a9b0b-31c3-4759-94e0-cf02c937b1e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[540803, 12833, 1971, 49, 210, "Input",ExpressionUUID->"09827b94-8139-4182-b2ed-877d385c1065",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[542777, 12884, 8907, 238, 248, "Output",ExpressionUUID->"706c7af5-d303-42a1-b338-f41887e2b6ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[551687, 13124, 1987, 49, 210, "Input",ExpressionUUID->"aafae238-a585-46bf-8e5c-437d014b8ae9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[553677, 13175, 8272, 221, 232, "Output",ExpressionUUID->"e73b42dc-d83b-4c8e-a9d2-4c8ee734d17a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[561952, 13398, 893, 20, 127, "Input",ExpressionUUID->"f5c872fa-a1ef-4468-bba4-13a7220efaa7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[562848, 13420, 1204, 34, 83, "Output",ExpressionUUID->"da4e0c31-8e34-4f79-9e4e-f4133aa344c2",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[564055, 13456, 737, 20, 44, "Input",ExpressionUUID->"df3f7209-ef7a-4d84-9d0c-87b8c821d31d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[564795, 13478, 1060, 32, 83, "Output",ExpressionUUID->"0009ec3e-e575-4b61-a1d7-8f09d0348bb9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[565858, 13512, 1388, 33, 107, "Input",ExpressionUUID->"4b7451ba-0cb2-4204-8771-b408847ea6d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[567249, 13547, 1174, 34, 72, "Output",ExpressionUUID->"aeaf911f-d402-47bd-bca3-7fffb9ebb971",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[568426, 13583, 1470, 34, 107, "Input",ExpressionUUID->"ff77e642-b6e1-47d4-a8c9-b4d4603c9a09",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[569899, 13619, 1091, 29, 71, "Output",ExpressionUUID->"d43b4721-2b99-4707-a1ad-94af5ed5f923",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[570993, 13650, 493, 12, 63, "Input",ExpressionUUID->"5cb18721-e027-48ec-b24e-3635a3a580c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[571489, 13664, 1650, 48, 74, "Output",ExpressionUUID->"5eb995c9-3425-460a-b73a-d9389ca06549",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[573142, 13714, 2084, 61, 76, "Output",ExpressionUUID->"a0300789-e494-4c8b-8682-a548e81023be",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[575229, 13777, 814, 18, 105, "Input",ExpressionUUID->"e55406e0-1732-41f8-83a0-c188e9f4e251",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[576046, 13797, 2861, 84, 76, "Output",ExpressionUUID->"10b41a4e-52a9-44bd-b615-8cd98927b49f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[578910, 13883, 1909, 49, 109, "Input",ExpressionUUID->"83804012-348d-4dbe-bd85-76b9bdc90a85",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[580822, 13934, 2891, 85, 76, "Output",ExpressionUUID->"c6cdee68-d2e0-40bb-8e99-b71320dcc90b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[583716, 14021, 3210, 94, 90, "Output",ExpressionUUID->"22ab3c3c-2de1-42b8-9d47-b8b2f9315f78",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[586929, 14117, 261, 5, 41, "Output",ExpressionUUID->"2d24ff99-ba89-4978-a3aa-7af227203563",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[587193, 14124, 655, 13, 126, "Input",ExpressionUUID->"24177cb8-fb26-483d-9fd4-7ab0d1d9badb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[587851, 14139, 3333, 94, 134, "Output",ExpressionUUID->"fc408c6e-30b7-4df6-a1c3-bef5fc533964",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[591221, 14238, 226, 4, 55, "Section",ExpressionUUID->"7d0b8039-c0d1-488f-905b-6fa908deddc7",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[591450, 14244, 1023, 29, 86, "Input",ExpressionUUID->"2bdfc5b7-1035-4ead-a9e6-49e304eb4acf",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[592476, 14275, 877, 26, 44, "Output",ExpressionUUID->"c2199631-abf1-471a-883e-ea64275e30b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[593356, 14303, 568, 13, 41, "Input",ExpressionUUID->"3408ac8c-3999-4984-b54d-e1a2ef40f00f",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[593927, 14318, 1438, 40, 112, "Output",ExpressionUUID->"e71777c4-bd5a-43fd-8c2d-30d2fdb866a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[595368, 14360, 838, 20, 147, "Input",ExpressionUUID->"40ffc5a6-17fe-4b55-bbf8-703bf285b3fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[596209, 14382, 926, 28, 69, "Output",ExpressionUUID->"3ba6587b-7d36-48cb-b8c2-f3b6f5c43c59",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[597138, 14412, 763, 18, 105, "Input",ExpressionUUID->"967cd419-52dd-43b3-b715-12b3ff19caac",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[597904, 14432, 1861, 52, 112, "Output",ExpressionUUID->"ecc9e4a3-0564-4195-9916-7484268a1529",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[599802, 14489, 271, 6, 55, "Section",ExpressionUUID->"9b59f755-91df-4c0e-a382-0550fc614734",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[600076, 14497, 1081, 24, 168, "Input",ExpressionUUID->"15436e78-1939-4006-ba50-f60d3126fb98",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[601160, 14523, 1059, 32, 85, "Output",ExpressionUUID->"f05ed4f5-9c67-45a8-b8c6-a61905240c96",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[602222, 14557, 1057, 25, 105, "Input",ExpressionUUID->"b598bec2-6559-4cbc-a356-6e34eef05fe3",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[603282, 14584, 592, 14, 28, "Message",ExpressionUUID->"cc44be8e-8a08-4c04-a1a8-6d192a7ecbd9",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[603877, 14600, 1006, 31, 71, "Output",ExpressionUUID->"0271acd7-f781-466e-84e4-46d4001c0f40",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[604886, 14633, 531, 11, 41, "Input",ExpressionUUID->"408d0112-5d87-4c32-9735-8d819af6b7d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[605420, 14646, 1153, 35, 81, "Output",ExpressionUUID->"5228c967-5e4b-4db7-9bdc-a2cfe295e5af",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[606576, 14683, 622, 15, 84, "Input",ExpressionUUID->"c96c15a3-a6cd-4450-9b3c-17475691282a",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[607201, 14700, 878, 26, 44, "Output",ExpressionUUID->"65961a7b-6656-4be5-a0b2-dffa0e908dc4",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[608082, 14728, 949, 29, 44, "Output",ExpressionUUID->"59b46440-6ee4-4c32-bd08-f94e449ad9bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[609034, 14759, 1313, 41, 67, "Output",ExpressionUUID->"1396b434-1dce-4d7e-9667-4fa7c1a22911",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Closed]]
}
]
*)