Classification of scalar fields in general relativity by Santos, Reboucas & Teixeira.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[    599135,      15049]
NotebookOptionsPosition[    567813,      14609]
NotebookOutlinePosition[    568275,      14626]
CellTagsIndexPosition[    568232,      14623]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  Classification of scalar fields in general relativity by \
Santos, Reboucas & Teixeira\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.825843456962591*^9, 3.825843470538437*^9}, {
   3.82587531772775*^9, 3.825875324670994*^9}, {3.825877486465591*^9, 
   3.825877490888733*^9}, {3.82889723272373*^9, 3.8288972428433723`*^9}},
 TextAlignment->Center,ExpressionUUID->"3edc6cce-feda-4010-b626-8559277d0436"],

Cell["\<\
Geoff Cope
University of Utah
April 1st, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.825859229609981*^9, 3.825859230168909*^9}, {
   3.8288989259545097`*^9, 3.828898928466724*^9}},
 TextAlignment->Center,ExpressionUUID->"0eb484cc-3c4b-4088-aebb-9b1ba1c832ce"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{"To", " ", 
    RowBox[{"do", ":", "\[IndentingNewLine]", 
     RowBox[{
     "last", " ", "metric", " ", "and", " ", "klein", " ", "gordon", " ", 
      "equation"}]}]}], " ", "\[IndentingNewLine]", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.828917973142665*^9, 
  3.828917987084413*^9}},ExpressionUUID->"e9dea16f-8450-4e1b-9250-\
905bff5be064"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Check", " ", 
    RowBox[{
     RowBox[{"references", "!!"}], "!!"}]}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.8288989069756393`*^9, 
  3.828898917286209*^9}},ExpressionUUID->"2cc2084d-5c3c-4c78-8fa3-\
d432f8ac3a42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Look", " ", "up", " ", "software", " ", "that", " ", "they", " ", 
    RowBox[{"use", ":", "  ", 
     RowBox[{"SHEEP", " ", "package", " ", "CORD"}]}]}], " ", "*)"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.8288988244586067`*^9, 
  3.828898868864436*^9}},ExpressionUUID->"d4c8056e-93ae-4936-9633-\
5bbbca389f9a"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"61be0616-25d9-4811-b45a-\
d2ea8d1bf110"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"80ec31d0-aabb-4aa2-9dbd-d8d4ce8366a0"],

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.825877049587747*^9, 3.827924950311701*^9, 
   3.8288969793853807`*^9, 3.828897345590824*^9, 3.828916373029278*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"bfc15440-9dc2-4994-a2e6-fa525ee5be43"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article (Change this)", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 
   3.843087954371111*^9},ExpressionUUID->"afb74b0a-8c53-426f-b1bd-\
4640eb119763"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Classification of scalar fields in general relativity by Santos, \
Reboucas & Teixeira\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://aip.scitation.org/doi/abs/10.1063/1.530373\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843087932724761*^9, 3.843087954371489*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"2f3e59a1-081a-44f8-9bf3-77507b5b5c8b"],

Cell[BoxData[
 TemplateBox[{
  "\"Classification of scalar fields in general relativity by Santos, \
Reboucas & Teixeira\"", "https://aip.scitation.org/doi/abs/10.1063/1.530373"},
  
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843087949403143*^9, 3.843087954372714*^9}},
 CellLabel->"Out[86]=",ExpressionUUID->"0150e454-c305-4ed0-9124-15536f964586"],

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"e36f4ee5-bd97-422d-bd0c-\
677323c904bd"],

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

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.825877049883161*^9, 3.827924950534737*^9, 
   3.8288969796321087`*^9, 3.8288973457648497`*^9, 3.828916373306489*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"1a917a1f-7fdc-4f64-ab52-7fb24e3c2f01"],

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.825287778263782*^9, 3.825843522304077*^9, 
   3.82587535617485*^9, 3.825877049888481*^9, 3.827924950539536*^9, 
   3.828896979637004*^9, 3.828897345772531*^9, 3.828916373311737*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"1c18550f-61fc-4bc4-a9dc-339c9b1e9d9d"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"825550bc-f6f1-4217-97a9-6f5b1b1da5f1"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"07852365-439c-4005-92f9-2b932e9e1c8c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825287791153748*^9},ExpressionUUID->"984fabc0-e4e8-4604-8c09-\
bf811fd27c3c"],

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

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

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.825287791154132*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"7f91b031-3a40-4a5e-8f5f-4fb0b8e0216a"]
}, 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->"58567659-987c-4832-85ef-\
4e1d732181ce"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"6394d0ab-232d-4955-85c6-3ef5ce055635"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"e50365c8-6382-4eab-bf41-d589b087d23b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 3.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877164693246*^9, 3.8258771784048986`*^9}, {
  3.8288968721717253`*^9, 
  3.828896873362586*^9}},ExpressionUUID->"f730d972-ec1b-425c-a9af-\
11c904a65936"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt1", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", " ", 
     SuperscriptBox["dt", "2"]}], "+", " ", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["1", 
       SuperscriptBox["f", "2"]], ")"}], 
     RowBox[{"(", " ", 
      RowBox[{
       SuperscriptBox["dx", "2"], "+", 
       SuperscriptBox["dy", "2"], "+", " ", 
       SuperscriptBox["dz", "2"]}], ")"}]}]}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt1", "/.", " ", 
  RowBox[{"f", "\[Rule]", " ", 
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825876982542976*^9, 3.8258770426944923`*^9}, 
   3.825877170954361*^9, {3.828896891875867*^9, 3.828896896378913*^9}, {
   3.828896946394548*^9, 3.82889697329895*^9}, {3.8288974352887363`*^9, 
   3.828897441127181*^9}, {3.828916288490149*^9, 3.828916292262574*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"1d210526-f551-4620-ab03-07c4af69359a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dt", "2"]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["dx", "2"], "+", 
    SuperscriptBox["dy", "2"], "+", 
    SuperscriptBox["dz", "2"]}], 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877043343498*^9, 3.825877049986261*^9}, 
   3.825877170954597*^9, 3.827924950639573*^9, 3.828896998580139*^9, 
   3.828897345863522*^9, 3.828897475438066*^9, 3.828916381636463*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"12cad063-c089-4af1-84a2-e131b8256c38"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{"eq3pt1", "/.", " ", 
      RowBox[{"f", "\[Rule]", " ", 
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], "]"}], " ", "//",
   " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877052350192*^9, 3.8258770750764933`*^9}, 
   3.825877170954735*^9, {3.828896899731812*^9, 3.828896899971023*^9}, {
   3.8288969901948566`*^9, 3.828896993186905*^9}, {3.828916321120133*^9, 
   3.8289163216116943`*^9}, {3.8289163986162167`*^9, 3.8289164011989717`*^9}},
 
 CellLabel->"In[17]:=",ExpressionUUID->"5ab853d6-db31-4b7a-a808-aba8bae924c4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8258770707044287`*^9, 3.825877075343459*^9}, 
   3.8258771709549*^9, 3.827924950653693*^9, {3.8288969938929787`*^9, 
   3.828897000611334*^9}, 3.828897345893375*^9, 3.828897477378344*^9, {
   3.828916379312128*^9, 3.828916401546949*^9}},
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"3275081f-3bd1-4c0b-80fd-\
08144cb92d0a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt1a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}], " ", "\[Equal]", "  ", 
    RowBox[{"1", " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       FractionBox["1", 
        RowBox[{"4", " ", 
         SuperscriptBox["R", "2"]}]], ")"}], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "2"], "+", 
        SuperscriptBox["y", "2"], "+", 
        SuperscriptBox["z", "2"]}], ")"}]}]}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"(", " ", 
   RowBox[{"eq3pt1a", "  ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877082261365*^9, 3.8258771354693127`*^9}, 
   3.825877170955048*^9, {3.82587723726206*^9, 3.8258772628933163`*^9}, {
   3.828897005868004*^9, 3.8288970371120977`*^9}, {3.8288971249955263`*^9, 
   3.828897152687212*^9}, {3.828897427024152*^9, 3.8288974708309727`*^9}, {
   3.828916331400887*^9, 3.828916332447048*^9}, {3.828916466800907*^9, 
   3.82891649022054*^9}},ExpressionUUID->"f8a68fe3-b0e6-4bf8-a9a6-\
21cbbe66bb86"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", 
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["y", "2"], "+", 
     SuperscriptBox["z", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["R", "2"]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.828916479079646*^9, 3.828916850407407*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"b2945fa9-fe71-4636-b8f3-5def65a0124d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "zReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{"zReplace", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"f", "\[Equal]", "  ", 
        RowBox[{"1", " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           FractionBox["1", 
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"]}]], ")"}], 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"], "+", 
            SuperscriptBox["z", "2"]}], ")"}]}]}]}], ",", "z"}], "]"}], "]"}],
     "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
   RowBox[{"f", "\[Rule]", " ", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828916511692566*^9, 3.82891654592352*^9}, 
   3.828916850407703*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"75c4d2c0-b378-4e81-bf0f-52622482e279"],

Cell[BoxData[
 RowBox[{"z", "\[Rule]", 
  SqrtBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", 
     SuperscriptBox["R", "2"]}], "-", 
    SuperscriptBox["x", "2"], "-", 
    SuperscriptBox["y", "2"], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["R", "2"], " ", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82891651918322*^9, 3.828916546425119*^9}, 
   3.8289168504079847`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"bfe0ddca-a1c8-4395-932e-3521953bcbbd"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "fDerivatives", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fDerivatives", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"eq3pt1a", "  ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " ", "  ", 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{"eq3pt1a", " ", ",", "x"}], "]"}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{"eq3pt1a", " ", ",", "y"}], "]"}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{"eq3pt1a", " ", ",", "z"}], "]"}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"eq3pt1a", " ", ",", "x"}], "]"}], ",", "y"}], "]"}], " ", 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"eq3pt1a", " ", ",", "y"}], "]"}], ",", "z"}], "]"}], " ", 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"eq3pt1a", " ", ",", "z"}], "]"}], ",", "x"}], "]"}], " ", 
      ",", " ", "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{"eq3pt1a", " ", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "2"}], "}"}]}], "]"}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{"eq3pt1a", " ", ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "2"}], "}"}]}], "]"}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"D", "[", 
       RowBox[{"eq3pt1a", " ", ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
     "}"}], "  ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fDerivatives", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.828897652642809*^9, 3.828897808938678*^9}, 
   3.8288981802955914`*^9, {3.8289164194716454`*^9, 3.828916419828065*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"b5cf3c28-2d42-4c37-83d8-72a6c18ac5ab"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}], "\[Rule]", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], 
          RowBox[{"4", " ", 
           SuperscriptBox["R", "2"]}]], "+", "1"}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "x"}],
         MultilineFunction->None], "\[Rule]", 
        FractionBox["x", 
         RowBox[{"2", " ", 
          SuperscriptBox["R", "2"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "y"}],
         MultilineFunction->None], "\[Rule]", 
        FractionBox["y", 
         RowBox[{"2", " ", 
          SuperscriptBox["R", "2"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None], "\[Rule]", 
        FractionBox["z", 
         RowBox[{"2", " ", 
          SuperscriptBox["R", "2"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "y"}]}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], "\[Rule]", "0"}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["x", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          SuperscriptBox["R", "2"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["y", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          SuperscriptBox["R", "2"]}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["z", "2"]}],
         MultilineFunction->None], "\[Rule]", 
        FractionBox["1", 
         RowBox[{"2", " ", 
          SuperscriptBox["R", "2"]}]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8288976562384977`*^9, 3.8288976689365587`*^9}, {
   3.828897801206654*^9, 3.828897809390315*^9}, 3.828898180295875*^9, {
   3.8289164265932407`*^9, 3.828916432399746*^9}, 3.828916548956687*^9},
 CellLabel->
  "Out[38]//TraditionalForm=",ExpressionUUID->"fd0f379e-4557-42f2-8f88-\
0157d2bad494"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "metric3pt1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"We", "'"}], "ll", " ", "leave", " ", "it", " ", "in", " ", 
     "terms", " ", "of", " ", "f"}], ",", " ", 
    RowBox[{
    "then", " ", "back", " ", "substitute", " ", "derivatives", " ", 
     "later"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{"eq3pt1", "/.", " ", 
       RowBox[{"f", "\[Rule]", " ", 
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}]}], ")"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3pt1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877144933342*^9, 3.825877170955332*^9}, {
  3.825877358722353*^9, 3.825877360729827*^9}, {3.828896907747328*^9, 
  3.828896919426861*^9}, {3.8288971682764683`*^9, 3.828897185915839*^9}, {
  3.828897489200058*^9, 3.8288975054548883`*^9}, {3.828916573109972*^9, 
  3.828916573480859*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"52c23aea-9207-45f0-a947-99fda6801b91"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877146420814*^9, 3.825877170955472*^9}, 
   3.825877362441761*^9, 3.827924950693314*^9, {3.828897174917512*^9, 
   3.828897186555313*^9}, 3.828897345938242*^9, 3.8288974895631323`*^9, {
   3.828916553586609*^9, 3.828916575399376*^9}},
 CellLabel->
  "Out[44]//MatrixForm=",ExpressionUUID->"1df54da5-4a55-4504-97a0-\
e00f291e2a46"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse3pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse3pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Inverse", "[", "metric3pt1", "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse3pt1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877559843218*^9, 3.825877575680706*^9}, 
   3.825877617744166*^9, {3.828896933029327*^9, 3.828896940330728*^9}, {
   3.828897192676366*^9, 3.828897198014082*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"f1082821-f5ff-454a-b811-fd4e43976a8b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", 
      SuperscriptBox[
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"], "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8258775761053343`*^9, 3.825877617744401*^9, 
  3.827924950771454*^9, 3.828897199144408*^9, 3.828897345950513*^9, 
  3.828897518183446*^9, 3.828916579459416*^9},
 CellLabel->
  "Out[47]//MatrixForm=",ExpressionUUID->"07a11793-fad7-4c11-b93f-\
5e13d22472d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric3pt1", " ", ".", " ", "inverse3pt1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877578586114*^9, 3.8258776177445173`*^9}, {
  3.828897205595922*^9, 3.82889721083622*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"db7b77d7-b882-49a6-972f-4624bf29a803"],

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.8258775887380257`*^9, 3.825877617744698*^9}, 
   3.82792495079704*^9, 3.8288973459808903`*^9},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"9610827f-585b-4ab1-ae2e-\
2566c9874bb6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse3pt1", " ", ".", " ", "metric3pt1"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825877602311166*^9, 3.825877617744809*^9}, {
  3.8288972133004*^9, 3.828897218291658*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"2f7ea6dd-8ea2-41f9-9f43-299f69b30067"],

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.825877606137409*^9, 3.82587761774498*^9}, 
   3.827924950809308*^9, 3.828897218974616*^9, 3.828897345994602*^9},
 CellLabel->
  "Out[25]//MatrixForm=",ExpressionUUID->"78083f99-3961-4d55-afb9-\
a035fa89ef8a"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Tensors Calculated For Metric 3.1 Without Derivatives Backsubstituted \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825877619537097*^9, 3.82587764249631*^9}, {
  3.828897603272468*^9, 
  3.8288976129839497`*^9}},ExpressionUUID->"cf78a0ac-3dc9-44d1-bb6c-\
75e5724a5f23"],

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.8258774131622877`*^9, 
   3.825877419013742*^9}, 3.825877633171803*^9, {3.828897302589155*^9, 
   3.828897314612258*^9}, {3.828897532306107*^9, 3.828897539018483*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"3b540051-32fe-4405-b370-41d2d78e890b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "17.86", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric3pt1\>\"", ",", " ", "metric3pt1", ",", " ", 
     "\"\<SpatiallyIsotropic\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(iso\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.825877428178846*^9, 
   3.825877460457198*^9}, {3.82587751452289*^9, 3.8258775250494432`*^9}, 
   3.825877633171948*^9, {3.8258777245358067`*^9, 3.825877732910584*^9}, {
   3.8288972949887533`*^9, 3.828897300011053*^9}, {3.828897350603881*^9, 
   3.828897354243342*^9}, {3.828898469763309*^9, 3.828898478030469*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"0e08b3a9-7ef2-47a5-a473-d79c97504bea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.789303`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.82587747958036*^9, 3.8258775377008057`*^9, 3.8258776331720457`*^9, 
   3.827924968485902*^9, {3.828897320990604*^9, 3.828897355722773*^9}, {
   3.828897528495784*^9, 3.828897545904993*^9}, 3.828916589432766*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"57758ef6-4c6c-436a-815b-13aba65606a0"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825877463137505*^9, 3.825877464018074*^9}, 
   3.8258776331721354`*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"7ec59844-b7e2-49e8-8a74-ac83ea33e1e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "iso"], "\[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.8258775377935677`*^9, 3.8258776331722183`*^9, 
  3.8279249685492363`*^9, 3.828897360114399*^9, 3.828897555350892*^9, 
  3.8289165894921913`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"7c9fb66f-b602-486f-8a08-3d5840ac9985"],

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.82587763317233*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"88591ef6-69a5-4983-a87a-8653c558938d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "iso"], "\[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.8258775378059187`*^9, 
  3.825877633172412*^9, 3.82792496856476*^9, 3.828897367872281*^9, 
  3.828897555396203*^9, 3.828916589504733*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"5de8e7be-a13a-4e86-aa9e-ff5e947bad97"],

Cell[BoxData["\<\"SpatiallyIsotropic\"\>"], "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.8258775378059187`*^9, 
  3.825877633172412*^9, 3.82792496856476*^9, 3.828897367872281*^9, 
  3.828897555396203*^9, 3.828916589508498*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"46e8fbb5-6020-4f3a-af55-67b486ce2651"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], "0", "0"},
      {"0", "0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], "0"},
      {"0", "0", "0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.8258775378059187`*^9, 
  3.825877633172412*^9, 3.82792496856476*^9, 3.828897367872281*^9, 
  3.828897555396203*^9, 3.828916589510907*^9},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"83d78f68-a790-478d-a466-\
a438f0be521f"],

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.825877633172683*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"e0c15d09-fd46-4f30-9561-84ef5cd86a72"],

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.825877537858325*^9, 3.825877633172763*^9, 
   3.827924968603938*^9, 3.828897367964167*^9, 3.828897555412444*^9, 
   3.828916589542342*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"dca27062-ec51-4c29-b21c-abfe40e05c19"],

Cell[BoxData["\<\"ChristoffelSymbolSpatiallyIsotropic\"\>"], "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.825877537858325*^9, 3.825877633172763*^9, 
   3.827924968603938*^9, 3.828897367964167*^9, 3.828897555412444*^9, 
   3.8289165895449266`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"d955e946-6221-4c3b-953d-98d056123ebb"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       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"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "y"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]}
          },
          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[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "y"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]]}]}
          },
          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.825877537858325*^9, 3.825877633172763*^9, 
   3.827924968603938*^9, 3.828897367964167*^9, 3.828897555412444*^9, 
   3.828916589551539*^9},
 CellLabel->
  "Out[57]//TraditionalForm=",ExpressionUUID->"548c3ad3-5b6a-4383-8a69-\
5e16e721bb3d"],

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.825877633173025*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"1f8056c0-1547-474d-8b83-002b71aab816"],

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.825877537951231*^9, 
  3.825877633173111*^9, 3.827924968749612*^9, 3.828897368045681*^9, 
  3.8288975554612293`*^9, 3.828916589584219*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"0db127a8-a50c-4d0e-b36c-5a26706ea638"],

Cell[BoxData["\<\"RiemannTensorSpatiallyIsotropic\"\>"], "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.825877537951231*^9, 
  3.825877633173111*^9, 3.827924968749612*^9, 3.828897368045681*^9, 
  3.8288975554612293`*^9, 3.828916589587515*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"45c26fdb-ad33-410d-8abd-4319b6b4160a"],

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", "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", "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", "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "-", 
             RowBox[{
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]], "0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "-", 
             RowBox[{
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]}], "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]], "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", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], "0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]]}], "0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "4"]]}], "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.825877537951231*^9, 
  3.825877633173111*^9, 3.827924968749612*^9, 3.828897368045681*^9, 
  3.8288975554612293`*^9, 3.82891658975451*^9},
 CellLabel->
  "Out[60]//TraditionalForm=",ExpressionUUID->"d46b48b1-46f5-4ca2-9e2c-\
417fd4441880"],

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.825877633173381*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"046fe745-1484-4efa-9c27-49fe92f3ba5b"],

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.825877539358095*^9, 
  3.825877633173463*^9, 3.827924970038656*^9, 3.828897368122044*^9, 
  3.828897555662189*^9, 3.828916589778078*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"3fa1e448-cd85-4ed6-b3aa-b36a93c1890d"],

Cell[BoxData["\<\"RicciTensorSpatiallyIsotropic\"\>"], "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.825877539358095*^9, 
  3.825877633173463*^9, 3.827924970038656*^9, 3.828897368122044*^9, 
  3.828897555662189*^9, 3.828916589780992*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"35a8e9d2-b43f-4897-9ecb-47cebaca54f5"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["y", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "y"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
      {"0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "y"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
      {"0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["y", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.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.825877539358095*^9, 
  3.825877633173463*^9, 3.827924970038656*^9, 3.828897368122044*^9, 
  3.828897555662189*^9, 3.8289165898319693`*^9},
 CellLabel->
  "Out[63]//TraditionalForm=",ExpressionUUID->"a752dbbf-32ee-4d48-af39-\
b9ff9e708413"],

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.8258776331752167`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"8bdedb1d-647a-4fb6-b214-bd120a96681f"],

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.8258775394621067`*^9, 
  3.825877633175309*^9, 3.8279249701494923`*^9, 3.828897368162607*^9, 
  3.828897555725515*^9, 3.828916589845995*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"bc84fec7-2dc8-42a4-929b-520790a270b2"],

Cell[BoxData["\<\"RicciScalarSpatiallyIsotropic\"\>"], "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.8258775394621067`*^9, 
  3.825877633175309*^9, 3.8279249701494923`*^9, 3.828897368162607*^9, 
  3.828897555725515*^9, 3.828916589848775*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"926ab592-c5a6-47d6-90d4-147d1d60b531"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    RowBox[{"4", " ", 
     RowBox[{"f", "(", 
      RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["x", "2"]}],
        MultilineFunction->None], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["y", "2"]}],
        MultilineFunction->None], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["z", "2"]}],
        MultilineFunction->None]}], ")"}]}], "-", 
    RowBox[{"6", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "z"}],
        MultilineFunction->None], ")"}], "2"]}], "-", 
    RowBox[{"6", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}],
          MultilineFunction->None], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "y"}],
          MultilineFunction->None], ")"}], "2"]}], ")"}]}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8258775394621067`*^9, 
  3.825877633175309*^9, 3.8279249701494923`*^9, 3.828897368162607*^9, 
  3.828897555725515*^9, 3.828916589869732*^9},
 CellLabel->
  "Out[66]//TraditionalForm=",ExpressionUUID->"660417ba-7b0d-4c83-a15e-\
0f44306dd150"],

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.825877633175589*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"3ea4aa62-50d2-467d-a323-4d0ae06415f9"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825877539502172*^9, 3.82587763317568*^9, 
  3.827924970200953*^9, 3.828897368205247*^9, 3.828916589887292*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"79f52d2a-8226-4579-8f08-6bfa436f0d26"],

Cell[BoxData["\<\"KretschmannScalarSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825877539502172*^9, 3.82587763317568*^9, 
  3.827924970200953*^9, 3.828897368205247*^9, 3.828916589890381*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"9e4d373e-347f-4f29-98fe-93339b249ea4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "y"}]}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "z"}]}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "z"}]}],
            MultilineFunction->None], ")"}], "2"], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["y", "2"]}],
             MultilineFunction->None]}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["z", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["y", "2"]}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x", "2"]}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["y", "2"]}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["z", "2"]}],
            MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"6", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["y", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"f", "(", 
        RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["x", "2"]}],
          MultilineFunction->None], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["y", "2"]}],
          MultilineFunction->None], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["z", "2"]}],
          MultilineFunction->None]}], ")"}]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None], ")"}], "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "x"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "y"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}], "2"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825877539502172*^9, 3.82587763317568*^9, 
  3.827924970200953*^9, 3.828897368205247*^9, 3.8289165899495697`*^9},
 CellLabel->
  "Out[69]//TraditionalForm=",ExpressionUUID->"615229b9-d494-4023-bc7f-\
94fa647627d1"],

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.8258776331759644`*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"75ca274a-1219-4617-88c5-9c61cf3937f8"],

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.825877539563105*^9, 3.825877633176052*^9, 
   3.827924970262167*^9, 3.828897368213731*^9, 3.828897555853093*^9, 
   3.828916589967626*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"d51cef08-d1be-499f-8840-8aa913463f09"],

Cell[BoxData["\<\"EinsteinTensorSpatiallyIsotropic\"\>"], "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.825877539563105*^9, 3.825877633176052*^9, 
   3.827924970262167*^9, 3.828897368213731*^9, 3.828897555853093*^9, 
   3.828916589970324*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"156f6325-2e72-4be9-9a19-8def42fc54b2"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["y", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["z", "2"]}],
            MultilineFunction->None]}], ")"}]}], "-", 
        RowBox[{"3", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "y"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], "0", "0", 
       "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], ")"}]}]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "y"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
      {"0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "y"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], ")"}]}]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]]},
      {"0", 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None], 
        RowBox[{"f", "(", 
         RowBox[{"x", ",", "y", ",", "z"}], ")"}]], 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None]}]}], "-", 
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["y", "2"]}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.825877539563105*^9, 3.825877633176052*^9, 
   3.827924970262167*^9, 3.828897368213731*^9, 3.828897555853093*^9, 
   3.828916590015191*^9},
 CellLabel->
  "Out[72]//TraditionalForm=",ExpressionUUID->"db67f011-3d29-4e55-b2cc-\
7974595364b8"],

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.825877633176299*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"fb5446ee-08b4-4223-9a2f-184a5d826e33"],

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.825877539754312*^9, 3.8258776331763897`*^9, 
   3.827924970475458*^9, 3.828897368257608*^9, 3.828897555927657*^9, 
   3.82891659005197*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"9bc5b2a2-9180-4d83-bf04-b80fa631d22a"],

Cell[BoxData["\<\"WeylTensorSpatiallyIsotropic\"\>"], "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.825877539754312*^9, 3.8258776331763897`*^9, 
   3.827924970475458*^9, 3.828897368257608*^9, 3.828897555927657*^9, 
   3.82891659005485*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"aefd8ff0-c468-436f-91c1-147b9ced37d9"],

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[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]},
          {
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]},
          {
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"6", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}]},
          {
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}]}], 
            RowBox[{"6", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}]},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "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", 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], "0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}]},
          {
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}]},
          {"0", 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], "0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}]}], 
            RowBox[{"6", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]},
          {
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"6", " ", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]]}], "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", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["x", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], "0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}]},
          {"0", 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "y"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}]},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "z"}]}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]]}]},
          {"0", 
           FractionBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "y"}]}],
             MultilineFunction->None], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}], "3"]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.825877539754312*^9, 3.8258776331763897`*^9, 
   3.827924970475458*^9, 3.828897368257608*^9, 3.828897555927657*^9, 
   3.828916590290311*^9},
 CellLabel->
  "Out[75]//TraditionalForm=",ExpressionUUID->"bdc2f7aa-ba38-479a-8180-\
37bf9e1f18b4"],

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.825877633176649*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"18229173-7bb5-4a49-9451-2a657e62c371"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8258775410657377`*^9, 3.825877633176743*^9, 
  3.827924971801427*^9, 3.828897368310254*^9, 3.828897556211587*^9, 
  3.82891659035042*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"ff9c6e30-2cf4-44e0-98c9-c1f2e42fe19d"],

Cell[BoxData["\<\"CottonTensorSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8258775410657377`*^9, 3.825877633176743*^9, 
  3.827924971801427*^9, 3.828897368310254*^9, 3.828897556211587*^9, 
  3.828916590353397*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"445c1c24-571f-4519-896b-3af600325775"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["2", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["2", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["2", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "3"]}],
                   MultilineFunction->None]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "y"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    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[{
             RowBox[{"-", 
              FractionBox["2", "3"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["2", "3"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["2", "3"]}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "3"]}],
                   MultilineFunction->None]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "y"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "y"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "y"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "z"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "3"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "3"]}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "y"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], "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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "3"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "y"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "y"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "z"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "3"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]}]]},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "3"]}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "y"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "3"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "y"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}],
                  MultilineFunction->None], "+", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}]}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"3", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "y"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}],
                 MultilineFunction->None]}]}], 
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}], "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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "y"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "z"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "3"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "y"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "y"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"3", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "z"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "3"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "y"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"f", "(", 
                  RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}], "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]", ")"}]}
     },
     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.8258775410657377`*^9, 3.825877633176743*^9, 
  3.827924971801427*^9, 3.828897368310254*^9, 3.828897556211587*^9, 
  3.8289165908611593`*^9},
 CellLabel->
  "Out[78]//TraditionalForm=",ExpressionUUID->"dbeb373e-09fe-4981-aad7-\
66dfed199ec1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors For Metric 3.1 With Derivatives Backsubstituted ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.828897855014386*^9, 
  3.8288978856903343`*^9}},ExpressionUUID->"dce13497-e0cd-4b52-8a5d-\
051d94f51fc7"],

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", 10006.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.82587763317233*^9, 
   3.828897866092022*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"4dded41b-1110-4a4b-9893-0f0fb20afe17"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "iso"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.8258775378059187`*^9, 
  3.825877633172412*^9, 3.82792496856476*^9, 3.828897367872281*^9, 
  3.828897555396203*^9, 3.8288978660921793`*^9, 3.828916601118787*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"6d1a2413-c59e-4d29-b478-aba6e97dbfb7"],

Cell[BoxData["\<\"SpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.8258775378059187`*^9, 
  3.825877633172412*^9, 3.82792496856476*^9, 3.828897367872281*^9, 
  3.828897555396203*^9, 3.8288978660921793`*^9, 3.82891660112249*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"96e48f35-0fd4-4949-befc-09f368e08ef3"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], "0", "0"},
      {"0", "0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]], "0"},
      {"0", "0", "0", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.8258775378059187`*^9, 
  3.825877633172412*^9, 3.82792496856476*^9, 3.828897367872281*^9, 
  3.828897555396203*^9, 3.8288978660921793`*^9, 3.828916601126005*^9},
 CellLabel->
  "Out[81]//TraditionalForm=",ExpressionUUID->"5db71608-067a-4833-b70a-\
7a2cb23c1888"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.825877633172683*^9, 
   3.828897866092615*^9, {3.828898032437625*^9, 3.828898044475593*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"184ea451-4a7a-4e5b-80cc-fe7ba3013006"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877537858325*^9, 3.825877633172763*^9, 
   3.827924968603938*^9, 3.828897367964167*^9, 3.828897555412444*^9, 
   3.828897866092764*^9, 3.828898045077092*^9, 3.828916601177025*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"424fb8e8-61b3-45a1-a4ec-4b80fc88e24a"],

Cell[BoxData["\<\"ChristoffelSymbolSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877537858325*^9, 3.825877633172763*^9, 
   3.827924968603938*^9, 3.828897367964167*^9, 3.828897555412444*^9, 
   3.828897866092764*^9, 3.828898045077092*^9, 3.828916601179954*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"a648f5c1-4322-48b5-abd8-e85e318e6c72"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       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"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "x"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "y"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "z"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "y"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            FractionBox[
             RowBox[{"2", " ", "x"}], 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}], "+", 
              SuperscriptBox["x", "2"], "+", 
              SuperscriptBox["y", "2"], "+", 
              SuperscriptBox["z", "2"]}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "z"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {"0"},
           {
            FractionBox[
             RowBox[{"2", " ", "x"}], 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}], "+", 
              SuperscriptBox["x", "2"], "+", 
              SuperscriptBox["y", "2"], "+", 
              SuperscriptBox["z", "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[{
           {"0"},
           {
            FractionBox[
             RowBox[{"2", " ", "y"}], 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}], "+", 
              SuperscriptBox["x", "2"], "+", 
              SuperscriptBox["y", "2"], "+", 
              SuperscriptBox["z", "2"]}]]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "x"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "x"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "y"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "z"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "z"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            FractionBox[
             RowBox[{"2", " ", "y"}], 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}], "+", 
              SuperscriptBox["x", "2"], "+", 
              SuperscriptBox["y", "2"], "+", 
              SuperscriptBox["z", "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[{
           {"0"},
           {
            FractionBox[
             RowBox[{"2", " ", "z"}], 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}], "+", 
              SuperscriptBox["x", "2"], "+", 
              SuperscriptBox["y", "2"], "+", 
              SuperscriptBox["z", "2"]}]]},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "x"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "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"},
           {
            FractionBox[
             RowBox[{"2", " ", "z"}], 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"]}], "+", 
              SuperscriptBox["x", "2"], "+", 
              SuperscriptBox["y", "2"], "+", 
              SuperscriptBox["z", "2"]}]]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "y"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "x"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "y"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "z"}], 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "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]", ")"}]}
     },
     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", 10006.},
 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.825877537858325*^9, 3.825877633172763*^9, 
   3.827924968603938*^9, 3.828897367964167*^9, 3.828897555412444*^9, 
   3.828897866092764*^9, 3.828898045077092*^9, 3.828916601248671*^9},
 CellLabel->
  "Out[84]//TraditionalForm=",ExpressionUUID->"7788fe7e-df40-4a4e-8549-\
6f60def93215"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.825877633173025*^9, 
   3.828897866093153*^9, 3.828898131581929*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"a9a9f593-ea73-4acd-8dce-eebb0fc98333"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877537951231*^9, 
  3.825877633173111*^9, 3.827924968749612*^9, 3.828897368045681*^9, 
  3.8288975554612293`*^9, 3.828897866093295*^9, 3.828898132641107*^9, 
  3.8289166012685966`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"2df45251-e8b0-4ce5-96b6-d1d34d4e4484"],

Cell[BoxData["\<\"RiemannTensorSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877537951231*^9, 
  3.825877633173111*^9, 3.827924968749612*^9, 3.828897368045681*^9, 
  3.8288975554612293`*^9, 3.828897866093295*^9, 3.828898132641107*^9, 
  3.828916601272993*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"63a280c5-e4b8-482a-8867-091d3ec253e3"],

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", "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", "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", "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", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["R", "6"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}], ")"}], "4"]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["R", "6"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], "4"]]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["R", "6"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}], ")"}], "4"]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["R", "6"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], "4"]]}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["R", "6"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], "4"]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["R", "6"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}], ")"}], "4"]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["R", "6"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}], ")"}], "4"]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["R", "6"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], "4"]]}], "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["R", "6"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], "4"]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["R", "6"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}], ")"}], "4"]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"256", " ", 
              SuperscriptBox["R", "6"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], "4"]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{"256", " ", 
             SuperscriptBox["R", "6"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SuperscriptBox["R", "2"]}], "+", 
               SuperscriptBox["x", "2"], "+", 
               SuperscriptBox["y", "2"], "+", 
               SuperscriptBox["z", "2"]}], ")"}], "4"]], "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", 10006.},
 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.825877537951231*^9, 
  3.825877633173111*^9, 3.827924968749612*^9, 3.828897368045681*^9, 
  3.8288975554612293`*^9, 3.828897866093295*^9, 3.828898132641107*^9, 
  3.828916601339229*^9},
 CellLabel->
  "Out[87]//TraditionalForm=",ExpressionUUID->"b64af0db-6a8c-42cf-ab52-\
fe4bfc72e2cd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.825877633173381*^9, 
   3.8288978660937567`*^9, 3.8288981364301777`*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"353cfabf-a9f2-46a5-9e94-3c07e8d188eb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877539358095*^9, 
  3.825877633173463*^9, 3.827924970038656*^9, 3.828897368122044*^9, 
  3.828897555662189*^9, 3.828897866093903*^9, 3.82889813697972*^9, 
  3.82891660135423*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"0ae46011-cb76-4a38-aa95-67320d363483"],

Cell[BoxData["\<\"RicciTensorSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877539358095*^9, 
  3.825877633173463*^9, 3.827924970038656*^9, 3.828897368122044*^9, 
  3.828897555662189*^9, 3.828897866093903*^9, 3.82889813697972*^9, 
  3.828916601358506*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"dd9efb91-1777-44c2-91be-b5a2b6d58d47"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{"32", " ", 
         SuperscriptBox["R", "2"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["R", "2"]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], ")"}], "2"]], "0", "0"},
      {"0", "0", 
       FractionBox[
        RowBox[{"32", " ", 
         SuperscriptBox["R", "2"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["R", "2"]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], ")"}], "2"]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{"32", " ", 
         SuperscriptBox["R", "2"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["R", "2"]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877539358095*^9, 
  3.825877633173463*^9, 3.827924970038656*^9, 3.828897368122044*^9, 
  3.828897555662189*^9, 3.828897866093903*^9, 3.82889813697972*^9, 
  3.82891660138721*^9},
 CellLabel->
  "Out[90]//TraditionalForm=",ExpressionUUID->"7b4272fb-5425-46f6-a9f3-\
2c79c5e3165f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.8258776331752167`*^9, 
   3.8288978660943604`*^9, 3.8288981402217207`*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"7f584b58-5527-4d28-bfd4-438d3aea4bd8"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.8258775394621067`*^9, 
  3.825877633175309*^9, 3.8279249701494923`*^9, 3.828897368162607*^9, 
  3.828897555725515*^9, 3.828897866094502*^9, 3.828898141362967*^9, 
  3.828916601419354*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"53102bf6-a2a2-4d5e-8951-41af3912b0dc"],

Cell[BoxData["\<\"RicciScalarSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.8258775394621067`*^9, 
  3.825877633175309*^9, 3.8279249701494923`*^9, 3.828897368162607*^9, 
  3.828897555725515*^9, 3.828897866094502*^9, 3.828898141362967*^9, 
  3.828916601424807*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"823f5fa1-d826-4220-8b4d-48d56d542e81"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox["6", 
    SuperscriptBox["R", "2"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.8258775394621067`*^9, 
  3.825877633175309*^9, 3.8279249701494923`*^9, 3.828897368162607*^9, 
  3.828897555725515*^9, 3.828897866094502*^9, 3.828898141362967*^9, 
  3.828916601426811*^9},
 CellLabel->
  "Out[93]//TraditionalForm=",ExpressionUUID->"4811ef9d-7a37-4532-a59a-\
e5d1d9061f3d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.825877633175589*^9, 
   3.828897866094884*^9, 3.8288981447497997`*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"f96ad015-c509-4c1c-94af-d4860ab64d36"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825877539502172*^9, 3.82587763317568*^9, 
  3.827924970200953*^9, 3.828897368205247*^9, 3.828897866095015*^9, 
  3.828898145316752*^9, 3.828916601436755*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"ed8937d1-b591-4edc-90a7-53430e4b7d97"],

Cell[BoxData["\<\"KretschmannScalarSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825877539502172*^9, 3.82587763317568*^9, 
  3.827924970200953*^9, 3.828897368205247*^9, 3.828897866095015*^9, 
  3.828898145316752*^9, 3.828916601440967*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"acae2762-be30-4416-9d09-56526b8ec3c4"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox["12", 
    SuperscriptBox["R", "4"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825877539502172*^9, 3.82587763317568*^9, 
  3.827924970200953*^9, 3.828897368205247*^9, 3.828897866095015*^9, 
  3.828898145316752*^9, 3.828916601442604*^9},
 CellLabel->
  "Out[96]//TraditionalForm=",ExpressionUUID->"a2aa2242-a3df-4c83-99a9-\
f677840ede17"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.8258776331759644`*^9, 3.828897866095573*^9, 
   3.82889814903753*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"6107d0db-699a-41e6-bf43-73ac6b64a74a"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.825877539563105*^9, 3.825877633176052*^9, 
   3.827924970262167*^9, 3.828897368213731*^9, 3.828897555853093*^9, 
   3.828897866095716*^9, 3.8288981495809717`*^9, 3.828916601473549*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"3004479a-de78-420c-98cf-ad4119d5cc43"],

Cell[BoxData["\<\"EinsteinTensorSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.825877539563105*^9, 3.825877633176052*^9, 
   3.827924970262167*^9, 3.828897368213731*^9, 3.828897555853093*^9, 
   3.828897866095716*^9, 3.8288981495809717`*^9, 3.828916601478163*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"6af1de57-9284-401b-ae57-193ee3725d3e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox["3", 
        SuperscriptBox["R", "2"]], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"16", " ", 
          SuperscriptBox["R", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"], "+", 
            SuperscriptBox["z", "2"]}], ")"}], "2"]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"16", " ", 
          SuperscriptBox["R", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"], "+", 
            SuperscriptBox["z", "2"]}], ")"}], "2"]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"16", " ", 
          SuperscriptBox["R", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"]}], "+", 
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"], "+", 
            SuperscriptBox["z", "2"]}], ")"}], "2"]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.825877539563105*^9, 3.825877633176052*^9, 
   3.827924970262167*^9, 3.828897368213731*^9, 3.828897555853093*^9, 
   3.828897866095716*^9, 3.8288981495809717`*^9, 3.828916601480336*^9},
 CellLabel->
  "Out[99]//TraditionalForm=",ExpressionUUID->"3f756c30-3ba1-4932-9da5-\
286bf75aee94"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877633176299*^9, 3.828897866096119*^9, 
   3.82889815270997*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"329134a6-f8f4-43fc-8804-0bfda780ac26"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877539754312*^9, 3.8258776331763897`*^9, 
   3.827924970475458*^9, 3.828897368257608*^9, 3.828897555927657*^9, 
   3.828897866096286*^9, 3.828898153273478*^9, 3.828916601498931*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"e54ae775-7caf-4a8d-8885-c5f7391a1477"],

Cell[BoxData["\<\"WeylTensorSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.825877539754312*^9, 3.8258776331763897`*^9, 
   3.827924970475458*^9, 3.828897368257608*^9, 3.828897555927657*^9, 
   3.828897866096286*^9, 3.828898153273478*^9, 3.828916601504683*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"0c848c75-1ba0-4088-9732-e7a34fa7fe95"],

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", "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", "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", "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", "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", "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", "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", "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", "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]", ")"}]}
     },
     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", 10006.},
 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.825877539754312*^9, 3.8258776331763897`*^9, 
   3.827924970475458*^9, 3.828897368257608*^9, 3.828897555927657*^9, 
   3.828897866096286*^9, 3.828898153273478*^9, 3.828916601541193*^9},
 CellLabel->
  "Out[102]//TraditionalForm=",ExpressionUUID->"d6a8bead-d42d-4744-bbb1-\
6412d8100b81"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "/.", " ", 
      "fDerivatives"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.825877633176649*^9, 3.828897866096685*^9, 
   3.82889815666177*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"67be7fd9-6878-4401-a7d0-2095f6f19fc4"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8258775410657377`*^9, 3.825877633176743*^9, 
  3.827924971801427*^9, 3.828897368310254*^9, 3.828897556211587*^9, 
  3.8288978660968027`*^9, 3.8288981572250443`*^9, 3.828916601568892*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"27f78b29-6c62-43d0-9e4c-8f5bd41c6794"],

Cell[BoxData["\<\"CottonTensorSpatiallyIsotropic\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8258775410657377`*^9, 3.825877633176743*^9, 
  3.827924971801427*^9, 3.828897368310254*^9, 3.828897556211587*^9, 
  3.8288978660968027`*^9, 3.8288981572250443`*^9, 3.828916601573951*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"0bafd8d7-cd43-4514-9219-148db8fc5d64"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox["R", "2"]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox["R", "2"]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox["R", "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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"6", " ", 
               SuperscriptBox["R", "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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "y"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"6", " ", 
               SuperscriptBox["R", "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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"6", " ", 
               SuperscriptBox["R", "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"},
           {
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "y"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "2"]}], ")"}]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}]}]]},
           {"0"},
           {
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "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"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "2"]}], ")"}]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["y", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "2"]}], ")"}]}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"4", " ", 
               SuperscriptBox["R", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "y"}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"f", "(", 
                    RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "3"]}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["R", "2"]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"], "+", 
                 SuperscriptBox["z", "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"},
           {
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["y", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "x"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "2"]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["R", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "y"}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}]}],
                 MultilineFunction->None], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "3"], 
                  RowBox[{"f", "(", 
                   RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "3"]}],
                 MultilineFunction->None]}], ")"}]}], 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["R", "2"]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"], "+", 
                SuperscriptBox["z", "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]", ")"}]}
     },
     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", 10006.},
 CellChangeTimes->{3.8258775410657377`*^9, 3.825877633176743*^9, 
  3.827924971801427*^9, 3.828897368310254*^9, 3.828897556211587*^9, 
  3.8288978660968027`*^9, 3.8288981572250443`*^9, 3.828916601784589*^9},
 CellLabel->
  "Out[105]//TraditionalForm=",ExpressionUUID->"1a5c07d2-5df8-4289-b6cc-\
cdb106018cb8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Scalar Field & Klein Gordon Equation For Metric 3.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.828917455338913*^9, 
  3.82891747843431*^9}},ExpressionUUID->"3d963dc0-e404-40f5-b1ae-\
2b76238e419d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "phi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"phi", "=", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[Phi]\>\""}], "}"}], ",", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
    RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.828898219400042*^9, 3.828898277985674*^9}, 
   3.828917462198011*^9},
 CellLabel->
  "In[146]:=",ExpressionUUID->"a40a2fae-c13d-4610-be85-84d170529b37"],

Cell[BoxData[
 TagBox["\<\"\[Phi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8288982499202213`*^9, 3.828898278632576*^9}, 
   3.828917462198175*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"2e9c375d-1c72-4c6b-9075-3e32ac255be5"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.828898283448626*^9, 3.828898288422573*^9}, {
   3.828898327919509*^9, 3.828898328259351*^9}, 3.8289174621983*^9},
 CellLabel->
  "In[148]:=",ExpressionUUID->"82b752c7-38b8-4790-9af3-2ce28aa1f716"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.018254`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "ERB"], "", "\[Alpha]\[Beta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        TagBox[
         SubsuperscriptBox["\[CapitalGamma]", 
          RowBox[{"  ", "\[Alpha]\[Beta]"}], 
          RowBox[{"\[Gamma]", "    "}]],
         DisplayForm]}], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[Phi]"}], ")"}], "\[Gamma]", ""],
        DisplayForm]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[Phi]"}], ")"}]}], ")"}], 
        "\[Beta]\[Alpha]", ""],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828898329814818*^9, 3.8289174621984377`*^9},
 CellLabel->
  "Out[148]=",ExpressionUUID->"5a7f63b2-832b-4dca-860a-e12224a3b7b7"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"boxPhi1", "=", 
   RowBox[{"MergeTensors", "[", "waveScalar1", "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8288983582234383`*^9, 3.8289174621985903`*^9},
 CellLabel->
  "In[149]:=",ExpressionUUID->"a7e4c0d1-df1d-4023-9cd9-0dff3d83be37"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.082571`", ",", 
   TagBox["\<\"(((-1)\[CenterDot]((\\!\\(\\*SuperscriptBox[\\(g\\), \
\\(ERB\\)]\\)\[CenterDot]\[CapitalGamma])\[CenterDot](\[PartialD]\[Phi])))+(\\\
!\\(\\*SuperscriptBox[\\(g\\), \\(ERB\\)]\\)\[CenterDot](\[PartialD](\
\[PartialD]\[Phi]))))\"\>",
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828898359856948*^9, 3.828917462198719*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"3a9154d6-64a1-46e5-84b7-6d3f97f3d74e"],

Cell[BoxData[
 RowBox[{"boxPhi1", "//", "TensorValues"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828917462198823*^9},
 CellLabel->
  "In[150]:=",ExpressionUUID->"375e70e2-ec0f-4e1c-a9e7-b7a0bff12c11"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SuperscriptBox["\[Alpha]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "t", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828898377532498*^9, 3.828917462198904*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"d8a28fce-35da-439c-851b-f1e62fab23bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Vacuum Field Equations For Metric 3.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.828530180245924*^9, 3.828530198997333*^9}, {
   3.82889840142315*^9, 3.828898403622768*^9}, 
   3.828898954933887*^9},ExpressionUUID->"06972a1e-0c28-4665-a739-\
4df7cce65763"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroRicci", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8258779756040163`*^9, 3.8258779792526093`*^9}, 
   3.828530188670519*^9, {3.828898407136108*^9, 3.82889842256938*^9}, 
   3.8288989549341373`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"fef8b276-4484-48d1-927e-60feab1d5ce6"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["y", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["y", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], ")"}], "2"]}], ")"}]}]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.825877684866563*^9, {3.8258779764920073`*^9, 3.825877979569045*^9}, 
   3.82792497334387*^9, 3.828530188670627*^9, {3.828898411016617*^9, 
   3.828898423257815*^9}, 3.828898954934219*^9, 3.828916634760639*^9},
 CellLabel->
  "Out[108]//TraditionalForm=",ExpressionUUID->"6c97d7f5-0d5f-4a2f-8d6e-\
0ece5080c795"],

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[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825878098601788*^9, 3.825878114028315*^9}, 
   3.82853018867074*^9, {3.828898432320835*^9, 3.828898444050013*^9}, 
   3.828898954934486*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"90566057-0800-4133-bb40-35fbc0adf71b"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["y", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["z", "2"]}],
            MultilineFunction->None]}], ")"}]}], "-", 
        RowBox[{"3", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "y"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}]}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], ")"}]}]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], ")"}]}]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None]}]}], "-", 
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"f", "(", 
             RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["y", "2"]}],
           MultilineFunction->None]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "y"}],
            MultilineFunction->None], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"f", "(", 
          RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.825877745856786*^9, {3.825878104227478*^9, 3.825878114524989*^9}, 
   3.827924973472128*^9, 3.828530188670829*^9, {3.828898435581307*^9, 
   3.8288984445893507`*^9}, 3.828898954934589*^9, 3.828916634860648*^9},
 CellLabel->
  "Out[111]//TraditionalForm=",ExpressionUUID->"0a890b55-e5f9-4d87-a466-\
5e6496c66fec"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Redo", " ", "this", " ", "simplification"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq3pt5a", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq3pt5a", " ", "=", " ", 
     RowBox[{"{", " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "7", "]"}], "]"}], "[", 
           RowBox[{"t", ",", "t"}], "]"}], " ", "/.", " ", "fDerivatives"}], 
         " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", 
       " ", "\n", "       ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "7", "]"}], "]"}], "[", 
           RowBox[{"x", ",", "x"}], "]"}], "  ", "/.", " ", 
          RowBox[{"fDerivatives", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", "10"}], "]"}], "]"}]}], " ", "//", " ", 
         "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", " ", "\n", 
       "       ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "7", "]"}], "]"}], "[", 
           RowBox[{"y", ",", "y"}], "]"}], "  ", "/.", " ", 
          RowBox[{"fDerivatives", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", "10"}], "]"}], "]"}]}], " ", "//", " ", 
         "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", " ", "\n", 
       "       ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "7", "]"}], "]"}], "[", 
           RowBox[{"z", ",", "z"}], "]"}], "  ", "/.", " ", 
          RowBox[{"fDerivatives", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", "10"}], "]"}], "]"}]}], " ", "//", " ", 
         "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
      "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq3pt5a", " ", "//", " ", "TableForm"}], " ", "//", " ", 
    "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.828898489208885*^9, 3.828898505398775*^9}, {
   3.828898768140739*^9, 3.828898814753059*^9}, 3.828898954934923*^9, {
   3.828916785282943*^9, 3.828916787704937*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"aae37f9f-e430-4012-b213-4acf1ffbd236"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox["3", 
        SuperscriptBox["R", "2"]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"], " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["R", "4"]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"], " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["R", "4"]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"x", ",", "y", ",", "z"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"4", " ", 
             SuperscriptBox["R", "2"], " ", 
             RowBox[{"f", "(", 
              RowBox[{"x", ",", "y", ",", "z"}], ")"}]}]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", 
           SuperscriptBox["z", "2"]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["R", "4"]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.828898803478579*^9, 3.82889895493512*^9, 
  3.828916634921685*^9, 3.828916806805806*^9},
 CellLabel->
  "Out[125]//TraditionalForm=",ExpressionUUID->"343414d5-85b2-4658-b9f8-\
d6b571a4c0a4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt5", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"eq3pt5a", "   ", "/.", " ", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Rule]", " ", "f"}]}],
          " ", "/.", 
         RowBox[{"(", " ", 
          RowBox[{"zReplace", " ", "/.", " ", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Rule]", " ", 
            "f"}]}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
       " ", "Simplify"}], "  ", ")"}], "  ", "//", " ", "Expand"}], " ", "//",
     " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt5", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.828916656853438*^9, 3.828916819026091*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"d5b77a7f-33a5-4a26-a644-19f7e27b85b7"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      FractionBox["3", 
       SuperscriptBox["R", "2"]]},
     {
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["f", "2"], 
        SuperscriptBox["R", "2"]]}]},
     {
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["f", "2"], 
        SuperscriptBox["R", "2"]]}]},
     {
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["f", "2"], 
        SuperscriptBox["R", "2"]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.828916658583014*^9, {3.8289167000146513`*^9, 3.828916776611826*^9}, {
   3.8289168089124193`*^9, 3.828916819026372*^9}},
 CellLabel->
  "Out[128]//TableForm=",ExpressionUUID->"3f7698b0-c20f-46f0-bb44-\
8d858e65d57f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element 3.7:  Class II", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828917373261042*^9, 
  3.828917387324252*^9}},ExpressionUUID->"a98be823-f8ce-4387-bdd2-\
5899bf57399f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt7", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt7", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       FractionBox["r", "a"], "]"}], "2"]}], 
    SuperscriptBox["dt", "2"]}], "+", 
   SuperscriptBox["dr", "2"], "+", " ", 
   RowBox[{
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      FractionBox["r", "a"], "]"}], "2"], 
    SuperscriptBox["d\[Phi]", "2"]}], "+", " ", 
   SuperscriptBox["dz", "2"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8289168674907637`*^9, 3.8289169222496843`*^9}, 
   3.828917379077675*^9},
 CellLabel->
  "In[129]:=",ExpressionUUID->"45b3ba5f-43ca-4e33-bf80-610a3bfe520d"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "+", 
  SuperscriptBox["dz", "2"], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     FractionBox["r", "a"], "]"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     FractionBox["r", "a"], "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.828916954902779*^9, 3.828917379077902*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"73455155-47d0-47e6-a9a2-789e75762f4d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric3pt7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3pt7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq3pt7", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "d\[Phi]", ",", "dz"}], "}"}]}], "]"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3pt7", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.828916957171832*^9, 3.828916993730901*^9}, 
   3.8289173790781097`*^9},
 CellLabel->
  "In[132]:=",ExpressionUUID->"6054d71c-ffc4-4f65-b789-5bb47c985374"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         FractionBox["r", "a"], "]"}], "2"]}], "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         FractionBox["r", "a"], "]"}], "2"]}], "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", 10001.},
 CellChangeTimes->{{3.828916971327703*^9, 3.828916994267784*^9}, 
   3.828917379078343*^9},
 CellLabel->
  "Out[134]//MatrixForm=",ExpressionUUID->"ea7e3cb8-73ef-4941-b113-\
a07423ef3541"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 3.7:  Class II", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8289173447647963`*^9, 3.828917367668837*^9}, 
   3.828917907575521*^9},ExpressionUUID->"935847a7-a16d-4805-a2fb-\
d160362c55b2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input3pt7", " ", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input3pt7", " ", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList3pt7", " ", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"tensorList3pt7", "  ", "=", " ", 
       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[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList3pt7", " ", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList3pt7", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.828917129333403*^9, 
   3.828917188408771*^9}, 3.828917353977026*^9, 3.828917907576229*^9},
 CellLabel->
  "In[137]:=",ExpressionUUID->"0696f87a-9b49-42bf-a1ea-b2700ed48c84"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "22.68", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input3pt7", " ", "[", " ", 
    RowBox[{
    "\"\<metric3pt7 \>\"", ",", " ", "metric3pt7", " ", ",", " ", 
     "\"\<ClassII\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(II\)]\)\>\"", 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8278816087737007`*^9, 
   3.8278816137482233`*^9}, {3.8289172039406776`*^9, 3.828917238301263*^9}, 
   3.828917353977354*^9, 3.828917907576528*^9},
 CellLabel->
  "In[139]:=",ExpressionUUID->"25468276-5feb-419b-99e9-2a5be1125804"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.533774`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.828917243241198*^9, 3.8289173539775753`*^9, 
  3.828917907576714*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"b1b66481-8534-4bd6-8810-08f0e871eef0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, {3.828917263619582*^9, 
   3.8289172682670527`*^9}, 3.828917353977803*^9, 3.828917907576931*^9},
 CellLabel->
  "In[140]:=",ExpressionUUID->"54e84c66-f8e7-4385-957a-bfbae377a753"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "II"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, 3.827878635040415*^9, 3.827881401240424*^9, 
   3.827908861148841*^9, 3.827912744370165*^9, {3.828917334197652*^9, 
   3.828917353977976*^9}, 3.8289179075771217`*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"3b36a625-dbf0-4d94-8b8b-c96e95299377"],

Cell[BoxData["\<\"ClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, 3.827878635040415*^9, 3.827881401240424*^9, 
   3.827908861148841*^9, 3.827912744370165*^9, {3.828917334200098*^9, 
   3.828917353978194*^9}, 3.8289179075772676`*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"0ba2ec7f-6e19-4943-81fb-cb9bf11be230"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox["cos", "2"], "(", 
         FractionBox["r", "a"], ")"}]}], "0", "0", "0"},
      {"0", "1", "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", 
         FractionBox["r", "a"], ")"}]}], "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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, 3.827878635040415*^9, 3.827881401240424*^9, 
   3.827908861148841*^9, 3.827912744370165*^9, {3.828917334202756*^9, 
   3.828917353978345*^9}, 3.8289179075773907`*^9},
 CellLabel->
  "Out[142]//TraditionalForm=",ExpressionUUID->"ca6e4f5c-b1c8-4d56-9b73-\
ffca953c485e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, {3.8289172706349173`*^9, 
   3.828917274738309*^9}, 3.828917353978603*^9, 3.8289179075776176`*^9},
 CellLabel->
  "In[143]:=",ExpressionUUID->"a0ecef54-8b2a-47ee-a035-678437a1b99c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, {3.828917334239725*^9, 
   3.828917353978772*^9}, 3.828917907577776*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"78cb75bb-be96-4cf0-8c3a-22c03e583127"],

Cell[BoxData["\<\"ChristoffelSymbolClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, {3.828917334242886*^9, 
   3.828917353978932*^9}, 3.8289179075779133`*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"ba97c585-ed53-4c33-a979-020dfe97398a"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"tan", "(", 
               FractionBox["r", "a"], ")"}], "a"]}]},
           {"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[{"tan", "(", 
               FractionBox["r", "a"], ")"}], "a"]}]},
           {"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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"sin", "(", 
               FractionBox[
                RowBox[{"2", " ", "r"}], "a"], ")"}], 
              RowBox[{"2", " ", "a"}]]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", "a", " ", 
             RowBox[{"sin", "(", 
              FractionBox[
               RowBox[{"2", " ", "r"}], "a"], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"cot", "(", 
              FractionBox["r", "a"], ")"}], "a"]},
           {"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[{"cot", "(", 
              FractionBox["r", "a"], ")"}], "a"]},
           {"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"},
           {"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]", ")"}]}
     },
     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", 10002.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, {3.828917334253251*^9, 
   3.828917353979041*^9}, 3.828917907578012*^9},
 CellLabel->
  "Out[145]//TraditionalForm=",ExpressionUUID->"037518e1-a00b-47e7-a493-\
f1921d98dc7d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, {3.828917277707274*^9, 
   3.8289172819064627`*^9}, 3.828917353979254*^9, 3.82891790757822*^9},
 CellLabel->
  "In[146]:=",ExpressionUUID->"d807b099-3f3a-4437-9097-7c36ee182b48"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, 3.82787863531532*^9, 3.8278814015069723`*^9, 
   3.827908861420949*^9, 3.827912744734424*^9, {3.828917334281212*^9, 
   3.8289173539793673`*^9}, 3.828917907578368*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"f758396d-2c78-42ac-8fa1-081d442f1984"],

Cell[BoxData["\<\"RiemannTensorClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, 3.82787863531532*^9, 3.8278814015069723`*^9, 
   3.827908861420949*^9, 3.827912744734424*^9, {3.828917334283832*^9, 
   3.8289173539794693`*^9}, 3.828917907578506*^9},
 CellLabel->
  "Out[147]=",ExpressionUUID->"d9f79cb0-0fc8-40e2-a7aa-0538caf9b872"],

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["cos", "2"], "(", 
              FractionBox["r", "a"], ")"}], 
             SuperscriptBox["a", "2"]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["cos", "2"], "(", 
             FractionBox["r", "a"], ")"}], 
            SuperscriptBox["a", "2"]], "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", "4"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             FractionBox[
              RowBox[{"2", " ", "r"}], "a"], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             FractionBox[
              RowBox[{"2", " ", "r"}], "a"], ")"}]}], "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", 
           FractionBox[
            RowBox[{
             SuperscriptBox["cos", "2"], "(", 
             FractionBox["r", "a"], ")"}], 
            SuperscriptBox["a", "2"]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["cos", "2"], "(", 
              FractionBox["r", "a"], ")"}], 
             SuperscriptBox["a", "2"]]}], "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", "0", "0"},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["sin", "2"], "(", 
            FractionBox["r", "a"], ")"}], "0"},
          {"0", 
           RowBox[{"-", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             FractionBox["r", "a"], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             FractionBox[
              RowBox[{"2", " ", "r"}], "a"], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "4"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             FractionBox[
              RowBox[{"2", " ", "r"}], "a"], ")"}]}], "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", 
           RowBox[{"-", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             FractionBox["r", "a"], ")"}]}], "0"},
          {"0", 
           RowBox[{
            SuperscriptBox["sin", "2"], "(", 
            FractionBox["r", "a"], ")"}], "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", "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", "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", "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", 10002.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, 3.82787863531532*^9, 3.8278814015069723`*^9, 
   3.827908861420949*^9, 3.827912744734424*^9, {3.8289173343303003`*^9, 
   3.8289173539795437`*^9}, 3.8289179075786037`*^9},
 CellLabel->
  "Out[148]//TraditionalForm=",ExpressionUUID->"29a74b4b-4176-466d-a943-\
42f6a41ac2e6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, {3.828917285386598*^9, 
   3.8289172895158787`*^9}, 3.828917353979671*^9, 3.828917907578814*^9},
 CellLabel->
  "In[149]:=",ExpressionUUID->"9cd01872-aee0-493e-8116-ffc9e4a98695"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, 3.8278786393795643`*^9, 3.82788140534545*^9, 
   3.8279088652533417`*^9, 3.8279127491644907`*^9, {3.82891733434258*^9, 
   3.828917353979762*^9}, 3.828917907578961*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"e62d9c3e-98f3-4cbc-93f5-16514dc39a54"],

Cell[BoxData["\<\"RicciTensorClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, 3.8278786393795643`*^9, 3.82788140534545*^9, 
   3.8279088652533417`*^9, 3.8279127491644907`*^9, {3.82891733434515*^9, 
   3.8289173539798603`*^9}, 3.828917907579097*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"782b8dc4-ef88-4925-9c18-5e260eb732d7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cos", "2"], "(", 
           FractionBox["r", "a"], ")"}]}], 
         SuperscriptBox["a", "2"]]}], "0", "0", "0"},
      {"0", 
       FractionBox["2", 
        SuperscriptBox["a", "2"]], "0", "0"},
      {"0", "0", 
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", 
         FractionBox["r", "a"], ")"}]}], "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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, 3.8278786393795643`*^9, 3.82788140534545*^9, 
   3.8279088652533417`*^9, 3.8279127491644907`*^9, {3.828917334348168*^9, 
   3.828917353979933*^9}, 3.828917907579193*^9},
 CellLabel->
  "Out[151]//TraditionalForm=",ExpressionUUID->"e7f59c9c-da63-4316-858a-\
67b8f2fbaae1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, {3.828917292354745*^9, 
   3.8289172963944693`*^9}, 3.828917353980056*^9, 3.828917907579406*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"1def47d2-6b65-491a-8d18-77d9428844ae"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, 3.8278786396295547`*^9, 3.827881405580286*^9, 
   3.827908865485321*^9, 3.827912749411972*^9, {3.8289173343649597`*^9, 
   3.828917353980142*^9}, 3.8289179075795593`*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"4726316c-0380-403f-8533-8ae24b181bcb"],

Cell[BoxData["\<\"RicciScalarClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, 3.8278786396295547`*^9, 3.827881405580286*^9, 
   3.827908865485321*^9, 3.827912749411972*^9, {3.828917334367856*^9, 
   3.828917353980235*^9}, 3.8289179075796967`*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"cf6c142c-0fc6-4c0c-bcfa-07d6f0f31c93"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox["6", 
    SuperscriptBox["a", "2"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, 3.8278786396295547`*^9, 3.827881405580286*^9, 
   3.827908865485321*^9, 3.827912749411972*^9, {3.8289173343698273`*^9, 
   3.8289173539803*^9}, 3.8289179075797997`*^9},
 CellLabel->
  "Out[154]//TraditionalForm=",ExpressionUUID->"8811d143-ddc7-46df-8ac1-\
c339dd928721"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.827662880133422*^9, 
   3.827662883948599*^9}, {3.827881581825639*^9, 3.8278815881690893`*^9}, {
   3.828917298746791*^9, 3.828917304529895*^9}, 3.828917353980426*^9, {
   3.828917880382081*^9, 3.8289179075800056`*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"bd48029e-d82f-4c4a-8240-c744635fd992"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828917884845441*^9, 3.8289179075801687`*^9}},
 CellLabel->
  "Out[176]=",ExpressionUUID->"f4622338-739b-4894-a69e-e629180bbc25"],

Cell[BoxData["\<\"KretschmannScalarClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828917884850151*^9, 3.828917907580317*^9}},
 CellLabel->
  "Out[177]=",ExpressionUUID->"3c96584f-4f13-4af3-8536-c748ff0fc522"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox["12", 
    SuperscriptBox["a", "4"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.828917884854269*^9, 3.82891790758043*^9}},
 CellLabel->
  "Out[178]//TraditionalForm=",ExpressionUUID->"6942cc5a-6d68-4902-9979-\
5ffd0520593f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, {3.828917306586873*^9, 3.828917310914307*^9}, 
   3.828917353980542*^9, 3.828917907580626*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"2e90a203-f5cd-4f55-a21c-8960b6a72705"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, {3.828917334391642*^9, 
   3.828917353980627*^9}, 3.8289179075807247`*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"82f6002f-50d5-4ff1-aa67-a6a8aca0d06d"],

Cell[BoxData["\<\"EinsteinTensorClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, {3.8289173343944073`*^9, 
   3.828917353980711*^9}, 3.828917907580813*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"237880e6-1b9f-4541-b802-58832198e61a"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["cos", "2"], "(", 
         FractionBox["r", "a"], ")"}], 
        SuperscriptBox["a", "2"]], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        FractionBox["1", 
         SuperscriptBox["a", "2"]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", 
         FractionBox["r", "a"], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        FractionBox["3", 
         SuperscriptBox["a", "2"]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, {3.828917334397067*^9, 
   3.828917353980771*^9}, 3.8289179075808773`*^9},
 CellLabel->
  "Out[158]//TraditionalForm=",ExpressionUUID->"add1b2a7-dfb5-4714-a7cb-\
7228c9c7a0b6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.828917314259016*^9, 3.828917318634439*^9}, 
   3.828917353980887*^9, 3.828917907581025*^9},
 CellLabel->
  "In[159]:=",ExpressionUUID->"079fab5b-b944-492d-b9ff-c2a0d500e476"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, {3.828917334420005*^9, 
   3.828917353981003*^9}, 3.8289179075811253`*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"b28f2889-184a-43b1-94e6-ac0cd8f33ec4"],

Cell[BoxData["\<\"WeylTensorClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, {3.828917334422784*^9, 
   3.828917353981161*^9}, 3.828917907581208*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"23cdfc51-67ed-4936-986d-2a94f7a5c317"],

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", "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", "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", "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", "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", "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", "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", "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", "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]", ")"}]}
     },
     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", 10002.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, {3.82891733445194*^9, 
   3.828917353981229*^9}, 3.828917907581275*^9},
 CellLabel->
  "Out[161]//TraditionalForm=",ExpressionUUID->"3fbe39c4-bcd7-4f62-a2d9-\
6f0f83607c13"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList3pt7", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList3pt7", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, {
   3.828917322283955*^9, 3.828917353981483*^9}, {3.828917870125862*^9, 
   3.828917874359767*^9}, 3.828917907581395*^9},
 CellLabel->
  "In[173]:=",ExpressionUUID->"e1526f92-519f-4226-9a24-77ddefdf46b0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.828917877164708*^9, 3.828917907581484*^9},
 CellLabel->
  "Out[173]=",ExpressionUUID->"db1dce99-1092-492a-bd1f-eb4917e5a16e"],

Cell[BoxData["\<\"CottonTensorClassII\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8289178771682043`*^9, 3.828917907581568*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"c4fa58c1-0c38-460a-8888-9d06cb9a5756"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       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"},
           {"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"},
           {"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"},
           {"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"},
           {"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"},
           {"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]", ")"}]}
     },
     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", 10002.},
 CellChangeTimes->{3.828917877173586*^9, 3.828917907581642*^9},
 CellLabel->
  "Out[175]//TraditionalForm=",ExpressionUUID->"ec8fa42c-540b-4165-b8c6-\
f67d982c5cd6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Scalar Field & Klein Gordon Equation For Metric 3.7", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.828917455338913*^9, 3.82891747843431*^9}, {
  3.828917866324668*^9, 
  3.82891786676474*^9}},ExpressionUUID->"fc66ed7d-bbd5-4161-9f5e-\
da118b81587c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "phi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"phi", "=", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[Phi]\>\""}], "}"}], ",", 
    RowBox[{"tensorList3pt7", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
    RowBox[{"\[Phi]", "[", "z", "]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.828898219400042*^9, 3.828898277985674*^9}, 
   3.828917462198011*^9, {3.8289174973629713`*^9, 3.8289174979958277`*^9}, {
   3.828917723730303*^9, 3.8289177381215267`*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"5bdd671a-f3f1-492a-8e28-bc27889da3a6"],

Cell[BoxData[
 TagBox["\<\"\[Phi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8288982499202213`*^9, 3.828898278632576*^9}, 
   3.828917462198175*^9, 3.828917738876004*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"e20d72e2-a828-4b96-9ed8-e655d3ea5119"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.828898283448626*^9, 3.828898288422573*^9}, {
   3.828898327919509*^9, 3.828898328259351*^9}, 3.8289174621983*^9},
 CellLabel->
  "In[165]:=",ExpressionUUID->"5d4e839b-eb3d-4dd5-b534-e21ea353cbbc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.021777`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "II"], "", "\[Alpha]\[Beta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        TagBox[
         SubsuperscriptBox["\[CapitalGamma]", 
          RowBox[{"  ", "\[Alpha]\[Beta]"}], 
          RowBox[{"\[Gamma]", "    "}]],
         DisplayForm]}], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[Phi]"}], ")"}], "\[Gamma]", ""],
        DisplayForm]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[Phi]"}], ")"}]}], ")"}], 
        "\[Beta]\[Alpha]", ""],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828898329814818*^9, 3.8289174621984377`*^9, 
  3.828917742676639*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"150f5fcd-d8e1-4025-b9f6-8d1240418ce3"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"boxPhi1", "=", 
   RowBox[{"MergeTensors", "[", "waveScalar1", "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8288983582234383`*^9, 3.8289174621985903`*^9},
 CellLabel->
  "In[166]:=",ExpressionUUID->"9ec8b28e-5802-439a-9f30-df3737660bc9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.077828`", ",", 
   TagBox["\<\"(((-1)\[CenterDot]((\\!\\(\\*SuperscriptBox[\\(g\\), \\(II\\)]\
\\)\[CenterDot]\[CapitalGamma])\[CenterDot](\[PartialD]\[Phi])))+(\\!\\(\\*\
SuperscriptBox[\\(g\\), \
\\(II\\)]\\)\[CenterDot](\[PartialD](\[PartialD]\[Phi]))))\"\>",
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828898359856948*^9, 3.828917462198719*^9, 
  3.828917746214036*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"d0362376-6ab7-4499-a466-9fb89da7cafd"],

Cell[BoxData[
 RowBox[{"boxPhi1", "//", "TensorValues"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828917462198823*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"dcb1f149-f810-48e5-8fc8-fcedf9e0ea73"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
   MultilineFunction->None], "[", "z", "]"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.828898377532498*^9, 3.828917462198904*^9, 
  3.828917748198605*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"08eb2b72-8a84-4094-81ea-842724d30db6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element 3.10:  Class III", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.828917835716371*^9, 
  3.828917852060038*^9}},ExpressionUUID->"1b8faf8c-c22f-4ae8-a293-\
0a03be31c124"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt10", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt10", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["dt", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[ScriptCapitalC]", "[", 
      RowBox[{"t", ",", "z"}], "]"}], "2"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["dx", "2"], "+", 
      SuperscriptBox["dy", "2"]}], ")"}]}], " ", "+", 
   SuperscriptBox["dz", "2"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.828917769143564*^9, 3.828917803365838*^9}, 
   3.828917841380828*^9},
 CellLabel->
  "In[168]:=",ExpressionUUID->"0d19ec32-4a3e-4f8b-8f03-7fd91b45f906"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dt", "2"]}], "+", 
  SuperscriptBox["dz", "2"], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"\[ScriptCapitalC]", "[", 
     RowBox[{"t", ",", "z"}], "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.82891780482006*^9, 3.828917841381053*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"b6568af9-1468-4bb4-83ec-6796efcd9abe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq3pt10", " ", ",", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ", "]"}], 
  "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.828917806766162*^9, 3.8289178413811827`*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"f183dde6-0d4b-4dfa-9996-8b98f7afd505"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", 
      SuperscriptBox[
       RowBox[{"\[ScriptCapitalC]", "[", 
        RowBox[{"t", ",", "z"}], "]"}], "2"], "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"\[ScriptCapitalC]", "[", 
        RowBox[{"t", ",", "z"}], "]"}], "2"], "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", 10008.},
 CellChangeTimes->{{3.828917821409177*^9, 3.828917841381349*^9}},
 CellLabel->
  "Out[172]//MatrixForm=",ExpressionUUID->"4f289c6f-b3e7-4122-9c86-\
2f2352cc9a3b"]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Comment", " ", "at", " ", "end", " ", "about", " ", "class", " ", "IV"}], 
   " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.8289179573748198`*^9, 
  3.8289179640762253`*^9}},ExpressionUUID->"674f41fa-62c5-439c-a187-\
ce44b285d401"]
},
WindowSize->{1273, 675},
WindowMargins->{{Automatic, 3}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"5ae352cb-32d2-4ae6-8ae9-1bb64174ac5e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1373, 20, 159, "Title",ExpressionUUID->"3edc6cce-feda-4010-b626-8559277d0436",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1956, 44, 846, 15, 76, "Author",ExpressionUUID->"0eb484cc-3c4b-4088-aebb-9b1ba1c832ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[2817, 62, 425, 10, 105, "Input",ExpressionUUID->"e9dea16f-8450-4e1b-9250-905bff5be064"],
Cell[3245, 74, 287, 8, 41, "Input",ExpressionUUID->"2cc2084d-5c3c-4c78-8fa3-d432f8ac3a42"],
Cell[3535, 84, 377, 10, 41, "Input",ExpressionUUID->"d4c8056e-93ae-4936-9633-5bbbca389f9a"],
Cell[CellGroupData[{
Cell[3937, 98, 228, 4, 69, "Section",ExpressionUUID->"61be0616-25d9-4811-b45a-d2ea8d1bf110",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4168, 104, 433, 9, 63, "Input",ExpressionUUID->"80ec31d0-aabb-4aa2-9dbd-d8d4ce8366a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4604, 115, 1293, 20, 43, "Output",ExpressionUUID->"bfc15440-9dc2-4994-a2e6-fa525ee5be43",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5934, 140, 558, 9, 55, "Section",ExpressionUUID->"afb74b0a-8c53-426f-b1bd-4640eb119763",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[6495, 151, 468, 9, 63, "Input",ExpressionUUID->"2f3e59a1-081a-44f8-9bf3-77507b5b5c8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[6966, 162, 412, 8, 43, "Output",ExpressionUUID->"0150e454-c305-4ed0-9124-15536f964586",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[7381, 172, 251, 4, 69, "Section",ExpressionUUID->"e36f4ee5-bd97-422d-bd0c-677323c904bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[7635, 178, 1668, 45, 189, "Input",ExpressionUUID->"2bba50c6-0397-4e37-a759-50e0d61b3370",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[9306, 225, 1569, 26, 24, "Print",ExpressionUUID->"1a917a1f-7fdc-4f64-ab52-7fb24e3c2f01",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[10878, 253, 1581, 26, 24, "Print",ExpressionUUID->"61608180-7179-4bfb-b73e-a38d3ade8531",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12462, 281, 1438, 22, 41, "Output",ExpressionUUID->"1c18550f-61fc-4bc4-a9dc-339c9b1e9d9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13903, 305, 268, 4, 41, "Input",ExpressionUUID->"825550bc-f6f1-4217-97a9-6f5b1b1da5f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14174, 311, 308, 5, 41, "Input",ExpressionUUID->"07852365-439c-4005-92f9-2b932e9e1c8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14519, 321, 266, 5, 55, "Section",ExpressionUUID->"984fabc0-e4e8-4604-8c09-bf811fd27c3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[14788, 328, 3865, 88, 630, "Input",ExpressionUUID->"1d7f7175-666d-4cd6-a53e-5134170113d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18656, 418, 3343, 102, 483, "Output",ExpressionUUID->"1477caed-1993-4310-8cd3-e28805cec6d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22002, 522, 675, 16, 63, "Input",ExpressionUUID->"7f91b031-3a40-4a5e-8f5f-4fb0b8e0216a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[22714, 543, 362, 6, 55, "Section",ExpressionUUID->"58567659-987c-4832-85ef-4e1d732181ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[23079, 551, 1659, 41, 126, "Input",ExpressionUUID->"6394d0ab-232d-4955-85c6-3ef5ce055635",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24741, 594, 1056, 26, 84, "Input",ExpressionUUID->"e50365c8-6382-4eab-bf41-d589b087d23b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25834, 625, 280, 5, 55, "Section",ExpressionUUID->"f730d972-ec1b-425c-a9af-11c904a65936",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26117, 632, 1083, 26, 103, "Input",ExpressionUUID->"1d210526-f551-4620-ab03-07c4af69359a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27203, 660, 661, 16, 64, "Output",ExpressionUUID->"12cad063-c089-4af1-84a2-e131b8256c38",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27867, 678, 832, 18, 41, "Input",ExpressionUUID->"5ab853d6-db31-4b7a-a808-aba8bae924c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28702, 698, 1373, 38, 133, "Output",ExpressionUUID->"3275081f-3bd1-4c0b-80fd-08144cb92d0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30078, 738, 1281, 30, 124, "Input",ExpressionUUID->"f8a68fe3-b0e6-4bf8-a9a6-21cbbe66bb86",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31362, 770, 530, 14, 61, "Output",ExpressionUUID->"b2945fa9-fe71-4636-b8f3-5def65a0124d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31895, 786, 1083, 28, 101, "Input",ExpressionUUID->"75c4d2c0-b378-4e81-bf0f-52622482e279",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32981, 816, 594, 16, 44, "Output",ExpressionUUID->"bfe0ddca-a1c8-4395-932e-3521953bcbbd",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33578, 834, 2338, 58, 315, "Input",ExpressionUUID->"b5cf3c28-2d42-4c37-83d8-72a6c18ac5ab",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35919, 894, 4587, 139, 340, "Output",ExpressionUUID->"fd0f379e-4557-42f2-8f88-0157d2bad494",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40509, 1035, 1359, 30, 105, "Input",ExpressionUUID->"52c23aea-9207-45f0-a947-99fda6801b91",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41871, 1067, 1373, 38, 133, "Output",ExpressionUUID->"1df54da5-4a55-4504-97a0-e00f291e2a46",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43247, 1107, 635, 11, 105, "Input",ExpressionUUID->"f1082821-f5ff-454a-b811-fd4e43976a8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43885, 1120, 1211, 34, 109, "Output",ExpressionUUID->"07a11793-fad7-4c11-b93f-5e13d22472d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45099, 1156, 462, 10, 41, "Input",ExpressionUUID->"db7b77d7-b882-49a6-972f-4624bf29a803",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45564, 1168, 824, 23, 101, "Output",ExpressionUUID->"9610827f-585b-4ab1-ae2e-2566c9874bb6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46391, 1193, 459, 10, 41, "Input",ExpressionUUID->"2f7ea6dd-8ea2-41f9-9f43-299f69b30067",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46853, 1205, 842, 23, 101, "Output",ExpressionUUID->"78083f99-3961-4d55-afb9-a035fa89ef8a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[47732, 1233, 328, 7, 55, "Section",ExpressionUUID->"cf78a0ac-3dc9-44d1-bb6c-75e5724a5f23",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[48063, 1242, 5831, 131, 714, "Input",ExpressionUUID->"3b540051-32fe-4405-b370-41d2d78e890b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[53897, 1375, 1238, 24, 65, "Input",ExpressionUUID->"0e08b3a9-7ef2-47a5-a473-d79c97504bea",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[55138, 1401, 454, 8, 41, "Output",ExpressionUUID->"57758ef6-4c6c-436a-815b-13aba65606a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[55595, 1411, 264, 4, 41, "Input",ExpressionUUID->"7ec59844-b7e2-49e8-8a74-ac83ea33e1e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[55862, 1417, 1186, 35, 45, "Output",ExpressionUUID->"7c9fb66f-b602-486f-8a08-3d5840ac9985",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57051, 1454, 809, 18, 84, "Input",ExpressionUUID->"88591ef6-69a5-4983-a87a-8653c558938d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57863, 1474, 651, 12, 45, "Output",ExpressionUUID->"5de8e7be-a13a-4e86-aa9e-ff5e947bad97",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[58517, 1488, 579, 8, 41, "Output",ExpressionUUID->"46e8fbb5-6020-4f3a-af55-67b486ce2651",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59099, 1498, 1568, 41, 140, "Output",ExpressionUUID->"83d78f68-a790-478d-a466-a438f0be521f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60670, 1541, 813, 18, 84, "Input",ExpressionUUID->"e0c15d09-fd46-4f30-9561-84ef5cd86a72",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[61486, 1561, 773, 15, 45, "Output",ExpressionUUID->"dca27062-ec51-4c29-b21c-abfe40e05c19",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62262, 1578, 683, 10, 41, "Output",ExpressionUUID->"d955e946-6221-4c3b-953d-98d056123ebb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62948, 1590, 18007, 506, 506, "Output",ExpressionUUID->"548c3ad3-5b6a-4383-8a69-5e16e721bb3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80958, 2098, 810, 18, 84, "Input",ExpressionUUID->"1f8056c0-1547-474d-8b83-002b71aab816",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[81771, 2118, 643, 11, 45, "Output",ExpressionUUID->"0db127a8-a50c-4d0e-b36c-5a26706ea638",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[82417, 2131, 595, 8, 41, "Output",ExpressionUUID->"45c26fdb-ad33-410d-8abd-4319b6b4160a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[83015, 2141, 47757, 1198, 578, "Output",ExpressionUUID->"d46b48b1-46f5-4ca2-9e2c-417fd4441880",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[130775, 3341, 808, 18, 84, "Input",ExpressionUUID->"046fe745-1484-4efa-9c27-49fe92f3ba5b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[131586, 3361, 624, 11, 45, "Output",ExpressionUUID->"3fa1e448-cd85-4ed6-b3aa-b36a93c1890d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[132213, 3374, 590, 8, 41, "Output",ExpressionUUID->"35a8e9d2-b43f-4897-9ecb-47cebaca54f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[132806, 3384, 10727, 289, 194, "Output",ExpressionUUID->"a752dbbf-32ee-4d48-af39-b9ff9e708413",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[143536, 3675, 812, 18, 84, "Input",ExpressionUUID->"8bdedb1d-647a-4fb6-b214-bd120a96681f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[144351, 3695, 593, 10, 41, "Output",ExpressionUUID->"bc84fec7-2dc8-42a4-929b-520790a270b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[144947, 3707, 596, 8, 41, "Output",ExpressionUUID->"926ab592-c5a6-47d6-90d4-147d1d60b531",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[145546, 3717, 2576, 72, 76, "Output",ExpressionUUID->"660417ba-7b0d-4c83-a15e-0f44306dd150",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[148125, 3791, 741, 17, 84, "Input",ExpressionUUID->"3ea4aa62-50d2-467d-a323-4d0ae06415f9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[148869, 3810, 395, 7, 41, "Output",ExpressionUUID->"79f52d2a-8226-4579-8f08-6bfa436f0d26",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[149267, 3819, 404, 5, 41, "Output",ExpressionUUID->"9e4d373e-347f-4f29-98fe-93339b249ea4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[149674, 3826, 9597, 262, 171, "Output",ExpressionUUID->"615229b9-d494-4023-bc7f-94fa647627d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[159274, 4090, 794, 18, 84, "Input",ExpressionUUID->"75ca274a-1219-4617-88c5-9c61cf3937f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[160071, 4110, 562, 11, 45, "Output",ExpressionUUID->"d51cef08-d1be-499f-8840-8aa913463f09",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[160636, 4123, 531, 8, 41, "Output",ExpressionUUID->"156f6325-2e72-4be9-9a19-8def42fc54b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[161170, 4133, 11380, 313, 208, "Output",ExpressionUUID->"db67f011-3d29-4e55-b2cc-7974595364b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[172553, 4448, 857, 19, 84, "Input",ExpressionUUID->"fb5446ee-08b4-4223-9a2f-184a5d826e33",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[173413, 4469, 648, 12, 45, "Output",ExpressionUUID->"9bc5b2a2-9180-4d83-bf04-b80fa631d22a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[174064, 4483, 597, 9, 41, "Output",ExpressionUUID->"aefd8ff0-c468-436f-91c1-147b9ced37d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[174664, 4494, 65236, 1677, 762, "Output",ExpressionUUID->"bdc2f7aa-ba38-479a-8180-37bf9e1f18b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[239903, 6173, 717, 17, 84, "Input",ExpressionUUID->"18229173-7bb5-4a49-9451-2a657e62c371",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[240623, 6192, 399, 8, 45, "Output",ExpressionUUID->"ff9c6e30-2cf4-44e0-98c9-c1f2e42fe19d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[241025, 6202, 359, 5, 41, "Output",ExpressionUUID->"445c1c24-571f-4519-896b-3af600325775",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[241387, 6209, 99007, 2384, 542, "Output",ExpressionUUID->"dbeb373e-09fe-4981-aad7-66dfed199ec1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[340431, 8598, 258, 4, 55, "Section",ExpressionUUID->"dce13497-e0cd-4b52-8a5d-051d94f51fc7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[340692, 8604, 835, 19, 84, "Input",ExpressionUUID->"4dded41b-1110-4a4b-9893-0f0fb20afe17",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[341530, 8625, 675, 12, 45, "Output",ExpressionUUID->"6d1a2413-c59e-4d29-b478-aba6e97dbfb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[342208, 8639, 602, 8, 41, "Output",ExpressionUUID->"96e48f35-0fd4-4949-befc-09f368e08ef3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[342813, 8649, 1592, 41, 140, "Output",ExpressionUUID->"5db71608-067a-4833-b70a-7a2cb23c1888",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[344408, 8692, 1037, 24, 84, "Input",ExpressionUUID->"184ea451-4a7a-4e5b-80cc-fe7ba3013006",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[345448, 8718, 817, 15, 45, "Output",ExpressionUUID->"424fb8e8-61b3-45a1-a4ec-4b80fc88e24a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[346268, 8735, 725, 10, 41, "Output",ExpressionUUID->"a648f5c1-4322-48b5-abd8-e85e318e6c72",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[346996, 8747, 16881, 485, 426, "Output",ExpressionUUID->"7788fe7e-df40-4a4e-8549-6f60def93215",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[363880, 9234, 1005, 24, 84, "Input",ExpressionUUID->"a9a9f593-ea73-4acd-8dce-eebb0fc98333",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[364888, 9260, 692, 12, 45, "Output",ExpressionUUID->"2df45251-e8b0-4ce5-96b6-d1d34d4e4484",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[365583, 9274, 642, 9, 41, "Output",ExpressionUUID->"63a280c5-e4b8-482a-8867-091d3ec253e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[366228, 9285, 14899, 391, 428, "Output",ExpressionUUID->"b64af0db-6a8c-42cf-ab52-fe4bfc72e2cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[381130, 9678, 1007, 24, 84, "Input",ExpressionUUID->"353cfabf-a9f2-46a5-9e94-3c07e8d188eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[382140, 9704, 669, 12, 45, "Output",ExpressionUUID->"0ae46011-cb76-4a38-aa95-67320d363483",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[382812, 9718, 636, 9, 41, "Output",ExpressionUUID->"dd9efb91-1777-44c2-91be-b5a2b6d58d47",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[383451, 9729, 2283, 62, 158, "Output",ExpressionUUID->"7b4272fb-5425-46f6-a9f3-2c79c5e3165f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[385737, 9793, 1011, 24, 84, "Input",ExpressionUUID->"7f584b58-5527-4d28-bfd4-438d3aea4bd8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[386751, 9819, 640, 11, 41, "Output",ExpressionUUID->"53102bf6-a2a2-4d5e-8951-41af3912b0dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[387394, 9832, 643, 9, 41, "Output",ExpressionUUID->"823f5fa1-d826-4220-8b4d-48d56d542e81",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[388040, 9843, 770, 17, 70, "Output",ExpressionUUID->"4811ef9d-7a37-4532-a59a-e5d1d9061f3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[388813, 9862, 938, 23, 84, "Input",ExpressionUUID->"f96ad015-c509-4c1c-94af-d4860ab64d36",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[389754, 9887, 442, 8, 41, "Output",ExpressionUUID->"ed8937d1-b591-4edc-90a7-53430e4b7d97",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[390199, 9897, 451, 6, 41, "Output",ExpressionUUID->"acae2762-be30-4416-9d09-56526b8ec3c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[390653, 9905, 573, 14, 70, "Output",ExpressionUUID->"a2aa2242-a3df-4c83-99a9-f677840ede17",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[391229, 9921, 988, 24, 84, "Input",ExpressionUUID->"6107d0db-699a-41e6-bf43-73ac6b64a74a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[392220, 9947, 608, 11, 45, "Output",ExpressionUUID->"3004479a-de78-420c-98cf-ad4119d5cc43",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[392831, 9960, 577, 8, 41, "Output",ExpressionUUID->"6af1de57-9284-401b-ae57-193ee3725d3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[393411, 9970, 2380, 66, 168, "Output",ExpressionUUID->"3f756c30-3ba1-4932-9da5-286bf75aee94",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[395794, 10038, 1055, 26, 84, "Input",ExpressionUUID->"329134a6-f8f4-43fc-8804-0bfda780ac26",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[396852, 10066, 697, 13, 45, "Output",ExpressionUUID->"e54ae775-7caf-4a8d-8885-c5f7391a1477",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[397552, 10081, 646, 10, 41, "Output",ExpressionUUID->"0c848c75-1ba0-4088-9732-e7a34fa7fe95",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[398201, 10093, 9779, 253, 308, "Output",ExpressionUUID->"d6a8bead-d42d-4744-bbb1-6412d8100b81",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[407983, 10348, 915, 24, 84, "Input",ExpressionUUID->"67be7fd9-6878-4401-a7d0-2095f6f19fc4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[408901, 10374, 452, 9, 45, "Output",ExpressionUUID->"27f78b29-6c62-43d0-9e4c-8f5bd41c6794",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[409356, 10385, 411, 6, 41, "Output",ExpressionUUID->"0bafd8d7-cd43-4514-9219-148db8fc5d64",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[409770, 10393, 41055, 1044, 600, "Output",ExpressionUUID->"1a5c07d2-5df8-4289-b6cc-cdb106018cb8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[450862, 11442, 250, 4, 55, "Section",ExpressionUUID->"3d963dc0-e404-40f5-b1ae-2b76238e419d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[451115, 11448, 600, 14, 63, "Input",ExpressionUUID->"a40a2fae-c13d-4610-be85-84d170529b37",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[451718, 11464, 298, 7, 41, "Output",ExpressionUUID->"2e9c375d-1c72-4c6b-9075-3e32ac255be5",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[452019, 11473, 476, 10, 41, "Input",ExpressionUUID->"82b752c7-38b8-4790-9af3-2ce28aa1f716",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[452498, 11485, 1071, 33, 45, "Output",ExpressionUUID->"5a7f63b2-832b-4dca-860a-e12224a3b7b7",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[453572, 11520, 344, 7, 41, "Input",ExpressionUUID->"a7e4c0d1-df1d-4023-9cd9-0dff3d83be37",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[453919, 11529, 546, 11, 44, "Output",ExpressionUUID->"3a9154d6-64a1-46e5-84b7-6d3f97f3d74e",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[454468, 11542, 247, 5, 41, "Input",ExpressionUUID->"375e70e2-ec0f-4e1c-a9e7-b7a0bff12c11",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[454718, 11549, 351, 8, 41, "Output",ExpressionUUID->"d8a28fce-35da-439c-851b-f1e62fab23bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[455106, 11562, 309, 5, 55, "Section",ExpressionUUID->"06972a1e-0c28-4665-a739-4df7cce65763",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[455418, 11569, 1372, 34, 168, "Input",ExpressionUUID->"fef8b276-4484-48d1-927e-60feab1d5ce6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[456793, 11605, 7965, 215, 176, "Output",ExpressionUUID->"6c97d7f5-0d5f-4a2f-8d6e-0ece5080c795",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[464761, 11822, 1624, 41, 189, "Input",ExpressionUUID->"90566057-0800-4133-bb40-35fbc0adf71b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[466388, 11865, 8688, 239, 208, "Output",ExpressionUUID->"0a890b55-e5f9-4d87-a466-5e6496c66fec",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[475079, 12106, 2513, 64, 210, "Input",ExpressionUUID->"aae37f9f-e430-4012-b213-4acf1ffbd236",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[477595, 12172, 2627, 78, 162, "Output",ExpressionUUID->"343414d5-85b2-4658-b9f8-d6b571a4c0a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[480225, 12252, 1122, 27, 105, "Input",ExpressionUUID->"d5b77a7f-33a5-4a26-a644-19f7e27b85b7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[481350, 12281, 1153, 39, 149, "Output",ExpressionUUID->"3f7698b0-c20f-46f0-bb44-8d858e65d57f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[482540, 12325, 227, 4, 55, "Section",ExpressionUUID->"a98be823-f8ce-4387-bdd2-5899bf57399f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[482770, 12331, 816, 22, 101, "Input",ExpressionUUID->"45b3ba5f-43ca-4e33-bf80-610a3bfe520d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[483589, 12355, 622, 18, 55, "Output",ExpressionUUID->"73455155-47d0-47e6-a9a2-789e75762f4d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[484214, 12375, 666, 14, 105, "Input",ExpressionUUID->"6054d71c-ffc4-4f65-b789-5bb47c985374",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[484883, 12391, 1064, 32, 117, "Output",ExpressionUUID->"ea7e3cb8-73ef-4941-b113-a07423ef3541",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[485984, 12428, 269, 4, 55, "Section",ExpressionUUID->"935847a7-a16d-4805-a2fb-d160362c55b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[486256, 12434, 5944, 132, 714, "Input",ExpressionUUID->"0696f87a-9b49-42bf-a1ea-b2700ed48c84",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[492203, 12568, 1153, 24, 65, "Input",ExpressionUUID->"25468276-5feb-419b-99e9-2a5be1125804",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[493359, 12594, 313, 7, 41, "Output",ExpressionUUID->"b1b66481-8534-4bd6-8810-08f0e871eef0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[493675, 12603, 900, 20, 84, "Input",ExpressionUUID->"54e84c66-f8e7-4385-957a-bfbae377a753",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[494578, 12625, 687, 14, 45, "Output",ExpressionUUID->"3b36a625-dbf0-4d94-8b8b-c96e95299377",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[495268, 12641, 605, 10, 41, "Output",ExpressionUUID->"0ba2ec7f-6e19-4943-81fb-cb9bf11be230",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[495876, 12653, 1454, 38, 120, "Output",ExpressionUUID->"ca6e4f5c-b1c8-4d56-9b73-ffca953c485e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[497333, 12693, 905, 20, 84, "Input",ExpressionUUID->"a0ecef54-8b2a-47ee-a035-678437a1b99c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[498241, 12715, 802, 16, 45, "Output",ExpressionUUID->"78cb75bb-be96-4cf0-8c3a-22c03e583127",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[499046, 12733, 701, 11, 41, "Output",ExpressionUUID->"ba97c585-ed53-4c33-a979-020dfe97398a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[499750, 12746, 10949, 328, 358, "Output",ExpressionUUID->"037518e1-a00b-47e7-a493-f1921d98dc7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[510702, 13076, 899, 20, 84, "Input",ExpressionUUID->"d807b099-3f3a-4437-9097-7c36ee182b48",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[511604, 13098, 680, 13, 45, "Output",ExpressionUUID->"f758396d-2c78-42ac-8fa1-081d442f1984",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[512287, 13113, 621, 10, 41, "Output",ExpressionUUID->"d9f79cb0-0fc8-40e2-a7aa-0538caf9b872",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[512911, 13125, 11868, 315, 400, "Output",ExpressionUUID->"29a74b4b-4176-466d-a943-42f6a41ac2e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[524782, 13442, 898, 20, 84, "Input",ExpressionUUID->"9cd01872-aee0-493e-8116-ffc9e4a98695",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[525683, 13464, 664, 13, 45, "Output",ExpressionUUID->"e62d9c3e-98f3-4cbc-93f5-16514dc39a54",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[526350, 13479, 621, 10, 41, "Output",ExpressionUUID->"782b8dc4-ef88-4925-9c18-5e260eb732d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[526974, 13491, 1578, 42, 140, "Output",ExpressionUUID->"e7f59c9c-da63-4316-858a-67b8f2fbaae1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[528555, 13535, 900, 20, 84, "Input",ExpressionUUID->"1def47d2-6b65-491a-8d18-77d9428844ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[529458, 13557, 631, 12, 41, "Output",ExpressionUUID->"4726316c-0380-403f-8533-8ae24b181bcb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[530092, 13571, 621, 10, 41, "Output",ExpressionUUID->"cf6c142c-0fc6-4c0c-bcfa-07d6f0f31c93",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[530716, 13583, 756, 17, 70, "Output",ExpressionUUID->"8811d143-ddc7-46df-8ac1-c339dd928721",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[531475, 13602, 957, 21, 84, "Input",ExpressionUUID->"bd48029e-d82f-4c4a-8240-c744635fd992",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[532435, 13625, 267, 6, 41, "Output",ExpressionUUID->"f4622338-739b-4894-a69e-e629180bbc25",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[532705, 13633, 263, 4, 41, "Output",ExpressionUUID->"3c96584f-4f13-4af3-8536-c748ff0fc522",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[532971, 13639, 392, 11, 70, "Output",ExpressionUUID->"6942cc5a-6d68-4902-9979-5ffd0520593f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[533366, 13652, 880, 20, 84, "Input",ExpressionUUID->"2e90a203-f5cd-4f55-a21c-8960b6a72705",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[534249, 13674, 596, 12, 45, "Output",ExpressionUUID->"82f6002f-50d5-4ff1-aa67-a6a8aca0d06d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[534848, 13688, 554, 9, 41, "Output",ExpressionUUID->"237880e6-1b9f-4541-b802-58832198e61a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[535405, 13699, 1549, 43, 150, "Output",ExpressionUUID->"add1b2a7-dfb5-4714-a7cb-7228c9c7a0b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[536957, 13744, 945, 21, 84, "Input",ExpressionUUID->"079fab5b-b944-492d-b9ff-c2a0d500e476",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[537905, 13767, 677, 13, 45, "Output",ExpressionUUID->"b28f2889-184a-43b1-94e6-ac0cd8f33ec4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[538585, 13782, 613, 10, 41, "Output",ExpressionUUID->"23cdfc51-67ed-4936-986d-2a94f7a5c317",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[539201, 13794, 9756, 253, 308, "Output",ExpressionUUID->"3fbe39c4-bcd7-4f62-a2d9-6f0f83607c13",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[548960, 14049, 879, 20, 84, "Input",ExpressionUUID->"e1526f92-519f-4226-9a24-77ddefdf46b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[549842, 14071, 308, 7, 45, "Output",ExpressionUUID->"db1dce99-1092-492a-bd1f-eb4917e5a16e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[550153, 14080, 258, 4, 41, "Output",ExpressionUUID->"c4fa58c1-0c38-460a-8888-9d06cb9a5756",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[550414, 14086, 9606, 295, 308, "Output",ExpressionUUID->"ec8fa42c-540b-4165-b8c6-f67d982c5cd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[560057, 14386, 298, 5, 55, "Section",ExpressionUUID->"fc66ed7d-bbd5-4161-9f5e-da118b81587c",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[560358, 14393, 704, 15, 63, "Input",ExpressionUUID->"5bdd671a-f3f1-492a-8e28-bc27889da3a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[561065, 14410, 320, 7, 41, "Output",ExpressionUUID->"e20d72e2-a828-4b96-9ed8-e655d3ea5119",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[561388, 14419, 476, 10, 41, "Input",ExpressionUUID->"5d4e839b-eb3d-4dd5-b534-e21ea353cbbc",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[561867, 14431, 1095, 34, 45, "Output",ExpressionUUID->"150f5fcd-d8e1-4025-b9f6-8d1240418ce3",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[562965, 14467, 344, 7, 41, "Input",ExpressionUUID->"9ec8b28e-5802-439a-9f30-df3737660bc9",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[563312, 14476, 569, 12, 44, "Output",ExpressionUUID->"d0362376-6ab7-4499-a466-9fb89da7cafd",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[563884, 14490, 247, 5, 41, "Input",ExpressionUUID->"dcb1f149-f810-48e5-8fc8-fcedf9e0ea73",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[564134, 14497, 354, 8, 41, "Output",ExpressionUUID->"08eb2b72-8a84-4094-81ea-842724d30db6",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[564525, 14510, 229, 4, 55, "Section",ExpressionUUID->"1b8faf8c-c22f-4ae8-a293-0a03be31c124",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[564757, 14516, 728, 19, 86, "Input",ExpressionUUID->"0d19ec32-4a3e-4f8b-8f03-7fd91b45f906",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[565488, 14537, 555, 16, 44, "Output",ExpressionUUID->"b6568af9-1468-4bb4-83ec-6796efcd9abe",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[566046, 14555, 438, 10, 41, "Input",ExpressionUUID->"f183dde6-0d4b-4dfa-9996-8b98f7afd505",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[566487, 14567, 1008, 29, 107, "Output",ExpressionUUID->"4f289c6f-b3e7-4122-9c86-2f2352cc9a3b",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Closed]],
Cell[567510, 14599, 299, 8, 38, "Input",ExpressionUUID->"674f41fa-62c5-439c-a187-ce44b285d401"]
}
]
*)