Black holes surrounded by thin rings and the stability of circular orbits by Castro and Letelier .nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    479909,      11693]
NotebookOptionsPosition[    462091,      11434]
NotebookOutlinePosition[    462557,      11451]
CellTagsIndexPosition[    462514,      11448]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Black holes surrounded by thin rings and the stability of circular orbits by \
Castro and Letelier \
\>", "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.824031452536063*^9, 3.8240314588397417`*^9}, {
   3.824050286183601*^9, 3.8240502981028023`*^9}, {3.824054052123823*^9, 
   3.8240540590982018`*^9}, {3.8241112645699453`*^9, 3.824111275806172*^9}, {
   3.8241113419162703`*^9, 3.824111370584461*^9}, {3.824194466405624*^9, 
   3.824194480292894*^9}, {3.824209671317281*^9, 3.824209675596266*^9}, {
   3.824213191344763*^9, 3.824213198688175*^9}, {3.8242334229828463`*^9, 
   3.824233436813746*^9}, {3.8242915372921543`*^9, 3.824291544746887*^9}, {
   3.824316906337634*^9, 3.824316924591807*^9}, {3.8243187713441896`*^9, 
   3.8243187780885143`*^9}, {3.824321904053234*^9, 3.8243219044965897`*^9}, {
   3.824373107561822*^9, 3.824373119097262*^9}, {3.824375816375095*^9, 
   3.824375832366333*^9}, {3.824546354911455*^9, 3.824546360086112*^9}, {
   3.8245498767246103`*^9, 3.824549881847818*^9}, {3.824555025998302*^9, 
   3.824555038883604*^9}, {3.8245550976377497`*^9, 3.824555120564288*^9}, {
   3.8523131425118027`*^9, 3.852313151296012*^9}, 3.8523132686259727`*^9, {
   3.852324767283534*^9, 3.852324772899371*^9}, 3.8552517482531137`*^9},
 TextAlignment->Center,ExpressionUUID->"416d69b6-4263-4a85-83f5-a7edeefc9d55"],

Cell["\<\
Geoff Cope
University of Utah
                                                                              \
                               \|01040f\|01042d\|01044c\|010432\|010442\
\|010432\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\
\|01042d\|01043b\|01042b
January 27, 2022\
\>", "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.850737092718917*^9, 3.850737113741796*^9}, 3.8521317157482023`*^9, {
   3.852133617349394*^9, 3.852133621456737*^9}, {3.8523062465844316`*^9, 
   3.85230624695208*^9}, 3.85231326862611*^9},
 TextAlignment->Center,ExpressionUUID->"8b4082ed-6104-4563-b6a7-aff39de272bb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
  "Paper", " ", "has", " ", "a", " ", "great", " ", "description", " ", "of", 
   " ", "the", " ", "Inverse", " ", "Scattering", " ", "Method"}], 
  "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.852324842469524*^9, 3.852324863083535*^9}, 
   3.8552517466703377`*^9},ExpressionUUID->"13988f57-4d1a-4e8b-a6de-\
9a0ed0e86a8e"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"68340e71-b35d-43d2-a697-\
fcb65e0cb60c"],

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[14]:=",ExpressionUUID->"5395b883-8572-4486-a3e4-70c38f35855c"],

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.824032150329472*^9, 
   3.824050435315671*^9, 3.824050999906499*^9, 3.824051492117627*^9, 
   3.824054172450189*^9, 3.824054375215625*^9, 3.824111434931583*^9, 
   3.824117930025662*^9, 3.8241945834794397`*^9, 3.8242097150616713`*^9, 
   3.82421332410147*^9, 3.824233539058529*^9, 3.824291604923744*^9, 
   3.8242917489137487`*^9, 3.824292244201261*^9, 3.8242940267035923`*^9, 
   3.824316850672309*^9, 3.824316937946146*^9, 3.824317254629013*^9, 
   3.8243188226186247`*^9, 3.8243190704041023`*^9, 3.824321984015122*^9, 
   3.824373228882228*^9, 3.8243759367886868`*^9, 3.824546451478854*^9, 
   3.824549994975473*^9, 3.824555190447184*^9, 3.825279988928486*^9, 
   3.852325333470483*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"f33b5cfd-660f-4f92-aeaf-d16cf2d614ed"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 
   3.852313275968032*^9},ExpressionUUID->"02e62d1f-c747-4106-9a0b-\
5e80d051ba46"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Black holes surrounded by thin rings and the stability of circular \
orbits by Castro and Letelier\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://iopscience.iop.org/article/10.1088/0264-9381/28/22/225020/\
meta\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.852324791341374*^9, 3.852324832107963*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"5a1561ad-f550-41b7-a010-de9649feacc9"],

Cell[BoxData[
 TemplateBox[{
  "\"Black holes surrounded by thin rings and the stability of circular \
orbits by Castro and Letelier\"", 
   "https://iopscience.iop.org/article/10.1088/0264-9381/28/22/225020/meta"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.852324833076241*^9, 3.852325333481947*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"e772f82c-6a54-4860-acdf-6b02841d9fc8"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Exact general relativistic thin disks around black holes by Lemos and \
Letelier \>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.49.5135\>\""}],
   "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8523132401140547`*^9, 3.852313255296845*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"6b5ffff5-be95-4053-ba32-3c0b27c04316"],

Cell[BoxData[
 TemplateBox[{
  "\"Exact general relativistic thin disks around black holes by Lemos and \
Letelier \"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.49.5135"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.852313257024221*^9, 3.852325333499509*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"e486557c-4d30-4077-8dab-0115ffb93a57"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Singularities formed by the focusing of cylindrical null fluids by \
Letelier & Wang\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.49.5105\>\""}],
   "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.849970263661166*^9, 3.849970274930964*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"83f42cf7-5682-4acd-a6ef-a4c97d1238a9"],

Cell[BoxData[
 TemplateBox[{
  "\"Singularities formed by the focusing of cylindrical null fluids by \
Letelier & Wang\"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.49.5105"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.849970276635516*^9, 3.852325333510009*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"cceb73f0-751a-42c5-a962-7b1117d6378b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"607f912c-a1a8-4476-bcaf-\
82b312ae6fb2"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"43a1184a-011f-447d-8e9f-d28fc02d1371"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.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.8240321504830923`*^9, 3.8240504354973917`*^9, 
   3.824051000133101*^9, 3.824051492357512*^9, 3.824054172748905*^9, 
   3.824054375453238*^9, 3.824111435226822*^9, 3.824117930311021*^9, 
   3.8241945836859083`*^9, 3.824209715330535*^9, 3.824213324408888*^9, 
   3.824233539359887*^9, 3.824291605233205*^9, 3.824291749189829*^9, 
   3.824292244505015*^9, 3.824294026870283*^9, 3.824316850851623*^9, 
   3.824316938230309*^9, 3.8243172548897743`*^9, 3.824318822930578*^9, 
   3.824319070624185*^9, 3.824321984530898*^9, 3.82437322918025*^9, 
   3.824375937032415*^9, 3.8245464518249493`*^9, 3.824549995510298*^9, 
   3.8245551907226152`*^9, 3.825279989243244*^9, 3.8523134903380613`*^9, 
   3.852325333700232*^9},
 CellLabel->
  "During evaluation of \
In[18]:=",ExpressionUUID->"f6194b84-7f25-4629-8894-4b75340bf6f8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"47 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "47 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.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.8240321504830923`*^9, 3.8240504354973917`*^9, 
   3.824051000133101*^9, 3.824051492357512*^9, 3.824054172748905*^9, 
   3.824054375453238*^9, 3.824111435226822*^9, 3.824117930311021*^9, 
   3.8241945836859083`*^9, 3.824209715330535*^9, 3.824213324408888*^9, 
   3.824233539359887*^9, 3.824291605233205*^9, 3.824291749189829*^9, 
   3.824292244505015*^9, 3.824294026870283*^9, 3.824316850851623*^9, 
   3.824316938230309*^9, 3.8243172548897743`*^9, 3.824318822930578*^9, 
   3.824319070624185*^9, 3.824321984530898*^9, 3.82437322918025*^9, 
   3.824375937032415*^9, 3.8245464518249493`*^9, 3.824549995510298*^9, 
   3.8245551907226152`*^9, 3.825279989243244*^9, 3.8523134903380613`*^9, 
   3.852325333704492*^9},
 CellLabel->
  "During evaluation of \
In[18]:=",ExpressionUUID->"4a016837-ebee-40a5-9b49-cb48dfaa3865"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.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.824032150486408*^9, 3.8240504355005302`*^9, 
   3.824051000137991*^9, 3.824051492360982*^9, 3.82405417275224*^9, 
   3.82405437545785*^9, 3.8241114352302933`*^9, 3.824117930315586*^9, 
   3.8241945836899357`*^9, 3.8242097153340693`*^9, 3.8242133244138002`*^9, 
   3.824233539363517*^9, 3.824291605236739*^9, 3.824291749195037*^9, 
   3.82429224450939*^9, 3.824294026874441*^9, 3.824316850855619*^9, 
   3.8243169382344837`*^9, 3.824317254894225*^9, 3.82431882293402*^9, 
   3.824319070629488*^9, 3.824321984538563*^9, 3.824373229184*^9, 
   3.824375937036552*^9, 3.82454645182887*^9, 3.824549995519063*^9, 
   3.824555190725994*^9, 3.825279989249481*^9, 3.852313490341302*^9, 
   3.852325333706711*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"7390bb01-d7f7-4b81-a084-8039ebc157b9"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"1ac4c0a1-20af-4c1c-9dab-d36e8713bbd7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"c2a46daa-1e8f-4c8e-8b36-\
aaca44f767f1"],

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", "[", "w", "]"}], "\[Rule]", " ", "dw"}], " ", ",", " ", 
     "\[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", "[", "\[ScriptV]", "]"}], "\[Rule]", " ", "d\[ScriptV]"}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", " ", "d\[ScriptU]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", " ", "d\[ScriptX]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", " ", "d\[ScriptY]"}],
      ",", "   ", "\[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]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Zeta]", "]"}], "\[Rule]", " ", "d\[Zeta]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Zeta]bar", "]"}], "\[Rule]", " ", 
      "d\[Zeta]bar"}]}], " ", "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.824032529537923*^9, 
  3.8240325755969877`*^9}, {3.824111980853726*^9, 3.82411200435644*^9}, {
  3.824554161255048*^9, 3.824554164719001*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"5c60439f-9039-4861-93fa-c813d4821448"],

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", "[", "w", "]"}], "\[Rule]", "dw"}]},
     {
      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", "[", "\[ScriptV]", "]"}], "\[Rule]", "d\[ScriptV]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", "d\[ScriptU]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", "d\[ScriptX]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", "d\[ScriptY]"}]},
     {
      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]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Zeta]", "]"}], "\[Rule]", "d\[Zeta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Zeta]bar", "]"}], "\[Rule]", "d\[Zeta]bar"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82403258232056*^9, 3.8240504355846977`*^9, 
  3.824051000170314*^9, 3.8240514924468307`*^9, 3.8240541728467197`*^9, 
  3.824054375493238*^9, 3.824111435338122*^9, 3.824112005137067*^9, 
  3.824117930406502*^9, 3.824194583721236*^9, 3.8242097154291267`*^9, 
  3.824213324509409*^9, 3.8242335394582376`*^9, 3.8242916053374853`*^9, 
  3.824291749235929*^9, 3.824292244592392*^9, 3.8242940269640083`*^9, 
  3.824316850962772*^9, 3.824316938267046*^9, 3.824317254932661*^9, 
  3.8243188230296164`*^9, 3.824319070663567*^9, 3.824321984713394*^9, 
  3.824373229314906*^9, 3.82437593707454*^9, 3.8245464519407873`*^9, 
  3.824549995675088*^9, 3.8245541651063623`*^9, 3.824555190815028*^9, 
  3.8252715812868137`*^9, 3.825279989284532*^9, 3.852313492315701*^9, 
  3.852325333800129*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"d2823ecd-c0af-4fe0-b3c7-0dbbfffa9c69"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"for", " ", "transform", " ", "equation", " ", "3"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", "/:", 
    RowBox[{"Dt", "[", "b", "]"}], "=", "0"}], "  ", ";"}], " ", 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", " ", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 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.824112239153829*^9, 3.824112246801137*^9}, {3.824550218385911*^9, 
   3.824550238259604*^9}, 3.825271581286984*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"e9fb0285-6e0a-4f6c-8205-f19bb46743f5"]
}, 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->"a438eaa0-ea00-4e22-841b-\
c7eb139fec53"],

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->"edc69994-ffa0-48c1-8f39-83fcf58c717c"],

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->"bbf8d7e8-492a-442f-bffd-c6792b9b7f03"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 24:  Static Axially Symmetric Weyl ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.852325293510545*^9, 
  3.852325321312049*^9}},ExpressionUUID->"d515da2d-81c3-4c87-b4a2-\
c425aa8ab161"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq24", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq24", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Exp", "[", 
      RowBox[{"\[CapitalPhi]", "[", 
       RowBox[{"r", ",", "z"}], "]"}], "]"}]}], 
    SuperscriptBox["dt", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox["r", "2"], 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"\[CapitalPhi]", "[", 
       RowBox[{"r", ",", "z"}], "]"}]}], "]"}], 
    SuperscriptBox["d\[Phi]", "2"]}], "+", " ", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"r", ",", "z"}], "]"}], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["dr", "2"], "+", " ", 
      SuperscriptBox["dz", "2"]}], ")"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.852325192010107*^9, 3.852325243447711*^9}, 
   3.852325299945796*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"4e94dc21-ddb2-4697-af2d-d5d734936d59"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["dt", "2"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[CapitalPhi]", "[", 
     RowBox[{"r", ",", "z"}], "]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Phi]", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"\[CapitalPhi]", "[", 
      RowBox[{"r", ",", "z"}], "]"}]}]], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dr", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"r", ",", "z"}], "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.852325267629075*^9, 3.852325299946205*^9, 
  3.852325333888983*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"c9220804-df3e-482b-a037-cf691f02581f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric24", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric24", "  ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq24", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "d\[Phi]", ",", "dz"}], "}"}]}], "]"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric24", "//", " ", "MatrixForm"}], "  ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.852325248240857*^9, 3.852325326978436*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"9395eb24-b745-4005-bbc4-660859a158e1"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]]}], "0", "0", "0"},
      {"0", 
       RowBox[{"f", "(", 
        RowBox[{"r", ",", "z"}], ")"}], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"f", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8523252614704733`*^9, 3.852325299946693*^9}, 
   3.852325333922902*^9},
 CellLabel->
  "Out[17]//TraditionalForm=",ExpressionUUID->"ca6c262d-f0ba-4ea2-b9de-\
d8fa6f0acd22"]
}, Closed]],

Cell[CellGroupData[{

Cell["Recasting of Einstein\[CloseCurlyQuote]s Equations", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328484423296*^9, 
  3.852328503103879*^9}},ExpressionUUID->"8486d0c4-3601-4a69-adff-\
6571ae6f7550"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", 
    RowBox[{"eq24", ",", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "d\[Phi]"}], "}"}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"g", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.85232576652066*^9, 3.8523258007921143`*^9}, 
   3.852328494889089*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"473bcc14-02c2-4792-bdfe-1bc25c934f45"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[CapitalPhi]", "[", 
         RowBox[{"r", ",", "z"}], "]"}]]}], "0"},
     {"0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         RowBox[{"\[CapitalPhi]", "[", 
          RowBox[{"r", ",", "z"}], "]"}]}]], " ", 
       SuperscriptBox["r", "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", 10006.},
 CellChangeTimes->{{3.852325774052462*^9, 3.852325801602807*^9}, 
   3.85232591100334*^9, 3.852328494889524*^9},
 CellLabel->
  "Out[74]//MatrixForm=",ExpressionUUID->"f5bdeb0b-f6bb-46d4-9455-\
8bb78dc26243"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Det", "[", "g", "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852325803977159*^9, 3.8523258447366953`*^9}, {
   3.852325887880478*^9, 3.85232594841576*^9}, 3.8523284948897142`*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"31a88b7f-d741-47cd-8f6c-0e822da75d4f"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox["r", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852325912580402*^9, 3.8523259486868677`*^9}, 
   3.852328494890093*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"8e5daba1-d382-4893-8232-8e02b9ed587a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U", "[", 
     RowBox[{"r", ",", "z"}], "]"}], " ", "==", 
    RowBox[{"(", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"g", ",", "r"}], "]"}], " ", ".", " ", 
         RowBox[{"Inverse", "[", "g", "]"}]}]}], " ", "//", " ", "Expand"}], 
      " ", "//", " ", "FullSimplify"}], " ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq6a", "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "MatrixForm"}], " ", "//",
   " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523259589285*^9, 3.852326047303707*^9}, 
   3.852326456227298*^9, 
   3.8523284948903646`*^9},ExpressionUUID->"1dbf4091-05d9-421e-91ea-\
5aa4592bf47c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"r", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "0"},
      {"0", 
       RowBox[{"2", "-", 
        RowBox[{"r", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852325959613854*^9, 3.852326048297702*^9}, 
   3.852328494890708*^9},
 CellLabel->
  "Out[97]//TraditionalForm=",ExpressionUUID->"6965f183-767b-484d-a6e0-\
ec7f356fda43"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"V", "[", 
     RowBox[{"r", ",", "z"}], "]"}], " ", "==", 
    RowBox[{"(", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"g", ",", "z"}], "]"}], " ", ".", " ", 
         RowBox[{"Inverse", "[", "g", "]"}]}]}], " ", "//", " ", "Expand"}], 
      " ", "//", " ", "FullSimplify"}], " ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq6b", "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "MatrixForm"}], " ", "//",
   " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852326055088326*^9, 3.8523260662810507`*^9}, 
   3.8523284948909616`*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"258bb1ef-1312-4d09-bbd4-be5b99ca57da"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"r", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None]}], "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", "r"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.852326067112389*^9, 3.852328494891246*^9},
 CellLabel->
  "Out[100]//TraditionalForm=",ExpressionUUID->"0283f7a0-2da1-4c97-9986-\
01933bd386b6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "[", 
   RowBox[{"U_", ",", "V_"}], "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{"DeleteCases", "[", 
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"U", ",", "r"}], "]"}], " ", "+", " ", 
        RowBox[{"D", "[", 
         RowBox[{"V", ",", "z"}], "]"}]}], "]"}], " ", "==", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2"}], "}"}]}], "]"}], "]"}]}], "]"}], ",", 
    "True", ",", " ", "Infinity"}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852326419616647*^9, 3.852326474498291*^9}, {
   3.852326508744669*^9, 3.852326544520773*^9}, {3.85232658512948*^9, 
   3.852326602488415*^9}, 3.852328494891564*^9},
 CellLabel->
  "In[117]:=",ExpressionUUID->"d0dafbf2-9074-4121-84aa-0389a9376add"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "equation3a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation3a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"eq3", "[", 
    RowBox[{
     RowBox[{"eq6a", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", 
     RowBox[{"eq6b", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation3a", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523264472643347`*^9, 3.8523264647645607`*^9}, {
   3.8523265563925343`*^9, 3.8523265601838408`*^9}, {3.852326606712295*^9, 
   3.852326608063283*^9}, {3.8523269852565002`*^9, 3.852327001648169*^9}, {
   3.8523270793449297`*^9, 3.85232708155243*^9}, 3.852328494891786*^9},
 CellLabel->
  "In[142]:=",ExpressionUUID->"4b249162-b2f5-4eb4-9c22-9470b0a8c6df"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", 
    TagBox[GridBox[{
       {
        RowBox[{
         RowBox[{
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["z", "2"]}],
            MultilineFunction->None]}], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "\[LongEqual]", "0"}]},
       {
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}]}], "-", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["z", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "\[LongEqual]", "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]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.852326465638608*^9, {3.852326527627521*^9, 3.852326560580014*^9}, {
   3.85232660494724*^9, 3.852326608653809*^9}, 3.8523270027856903`*^9, 
   3.852327082932193*^9, 3.852328494892202*^9},
 CellLabel->
  "Out[144]//TraditionalForm=",ExpressionUUID->"6e5b730d-cdc8-4942-8237-\
ccdb6732d0c1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "equation3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation3", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Expand", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", "r"}], ")"}], "*", 
     RowBox[{
      RowBox[{"equation3a", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"equation3", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523270886878233`*^9, 3.852327138888278*^9}, 
   3.8523284948925047`*^9},
 CellLabel->
  "In[149]:=",ExpressionUUID->"1e7aa982-b4d0-4f2a-8dc7-df72f74e7b6a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["r", "2"]}],
    MultilineFunction->None], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["z", "2"]}],
    MultilineFunction->None], "+", 
   FractionBox[
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], "r"]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852327090495592*^9, 3.8523271039442463`*^9}, 
   3.85232713938702*^9, 3.8523284948928137`*^9},
 CellLabel->
  "Out[151]//TraditionalForm=",ExpressionUUID->"648b706b-c9b9-4e7f-9e14-\
f85ff761e0e8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4", "[", 
   RowBox[{"f_", ",", "U_", ",", "V_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Log", "[", "f", "]"}], ",", "r"}], "]"}], " ", "==", " ", 
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", "1"}], "r"], ")"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["1", 
       RowBox[{"4", "r"}]], ")"}], " ", 
     RowBox[{"Tr", "[", 
      RowBox[{
       RowBox[{"U", ".", "U"}], " ", "-", " ", 
       RowBox[{"V", " ", ".", " ", "V"}]}], " ", "]"}]}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852326769817471*^9, 3.852326834106189*^9}, 
   3.852328494893146*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"974fc840-52c6-4664-8784-a4e731c4bc55"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "equation4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq4", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"r", ",", "z"}], "]"}], ",", 
      RowBox[{"eq6a", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"eq6b", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"equation4", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852326842801292*^9, 3.852326883607997*^9}, {
   3.852327006712637*^9, 3.852327022739827*^9}, 3.852328494893359*^9},
 CellLabel->
  "In[136]:=",ExpressionUUID->"51e29cf7-a51b-4614-9c2f-a449ccdb7e20"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"f", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], 
    RowBox[{"f", "(", 
     RowBox[{"r", ",", "z"}], ")"}]], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], ")"}], "2"]}], "-", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "z"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852326864725749*^9, 3.8523268841396503`*^9}, 
   3.85232702381785*^9, 3.8523284948936367`*^9},
 CellLabel->
  "Out[138]//TraditionalForm=",ExpressionUUID->"e270d6b5-3b8e-4b8b-90aa-\
8bb9e9bd74e2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", "[", 
   RowBox[{"f_", ",", "U_", ",", "V_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Log", "[", "f", "]"}], ",", "z"}], "]"}], " ", "==", " ", 
   RowBox[{
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"2", "r"}]], ")"}], " ", 
    RowBox[{"Tr", "[", 
     RowBox[{"U", " ", ".", " ", "V"}], " ", "]"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852326930496957*^9, 3.852326947520918*^9}, 
   3.852328494893952*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"c20e57ee-c01d-4911-aabf-a9f0be276f73"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "equation5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation5", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq5", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"r", ",", "z"}], "]"}], ",", 
      RowBox[{"eq6a", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"eq6b", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "//", " ", "Expand"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"equation5", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523269596405287`*^9, 3.852326959808701*^9}, {
   3.852327030696562*^9, 3.8523270461201067`*^9}, 3.8523284948941708`*^9},
 CellLabel->
  "In[139]:=",ExpressionUUID->"1de733e7-ba44-4795-bdb3-5692db3e9df4"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"f", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "z"}],
     MultilineFunction->None], 
    RowBox[{"f", "(", 
     RowBox[{"r", ",", "z"}], ")"}]], "\[LongEqual]", 
   RowBox[{
    RowBox[{"r", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "z"}],
      MultilineFunction->None]}], "-", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "z"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.852326960636755*^9, 3.852327046912966*^9, 
  3.852328494894444*^9},
 CellLabel->
  "Out[141]//TraditionalForm=",ExpressionUUID->"2193476a-3f70-4e15-8194-\
f9fa50579286"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7a", "[", 
   RowBox[{"\[Psi]_", ",", "U_", ",", "V_"}], "]"}], " ", ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"\[Psi]", ",", "z"}], "]"}], " ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        FractionBox[
         RowBox[{"2", " ", 
          SuperscriptBox["\[Lambda]", "2"]}], 
         RowBox[{
          SuperscriptBox["\[Lambda]", "2"], "+", 
          SuperscriptBox["r", "2"]}]], ")"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{"\[Psi]", ",", "\[Lambda]"}], "]"}]}]}], " ", "]"}], "==", 
    "  ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"(", 
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", "V"}], " ", "-", " ", 
         RowBox[{"\[Lambda]", " ", "U"}]}], 
        RowBox[{
         SuperscriptBox["\[Lambda]", "2"], "+", 
         SuperscriptBox["r", "2"]}]], ")"}], " ", ".", " ", "\[Psi]"}], " ", 
     "]"}]}], " ", "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8522516323942327`*^9, 3.852251758141995*^9}, {
   3.852252024778706*^9, 3.852252030673429*^9}, 3.852252126949215*^9, {
   3.852326178008819*^9, 3.852326221297304*^9}, {3.852326263896356*^9, 
   3.8523263202168837`*^9}, {3.8523266247859297`*^9, 3.852326635329105*^9}, 
   3.852328494894787*^9},
 CellLabel->
  "In[121]:=",ExpressionUUID->"06560c3d-4d5d-4266-9735-e7f61e79fc15"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "equation7a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation7a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"eq7a", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Psi]1", "[", 
        RowBox[{"\[Lambda]", ",", "r", ",", "z"}], "]"}], ",", 
       RowBox[{"\[Psi]2", "[", 
        RowBox[{"\[Lambda]", ",", "r", ",", "z"}], "]"}]}], "}"}], ",", 
     RowBox[{"eq6a", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", 
     RowBox[{"eq6b", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation7a", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", 
  "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation7a", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852327199585874*^9, 3.852327294384562*^9}, 
   3.852328494895032*^9},
 CellLabel->
  "In[157]:=",ExpressionUUID->"538e3cf8-f482-4777-a28a-801179ab18ad"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Psi]1", "(", 
       RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "z"}],
     MultilineFunction->None], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\[Lambda]", "2"], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Psi]1", "(", 
         RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Lambda]"}],
       MultilineFunction->None]}], 
     RowBox[{
      SuperscriptBox["\[Lambda]", "2"], "+", 
      SuperscriptBox["r", "2"]}]]}], "\[LongEqual]", 
   FractionBox[
    RowBox[{
     RowBox[{"\[Psi]1", "(", 
      RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"\[Lambda]", " ", "r", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["\[Lambda]", "2"], "+", 
     SuperscriptBox["r", "2"]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523272403955317`*^9, 3.8523272558802223`*^9}, {
   3.852327287262825*^9, 3.8523272949420424`*^9}, 3.852328494895207*^9},
 CellLabel->
  "Out[159]//TraditionalForm=",ExpressionUUID->"7448b8e2-9221-4bf7-abd0-\
10dcc61108ed"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Psi]2", "(", 
       RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "z"}],
     MultilineFunction->None], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\[Lambda]", "2"], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Psi]2", "(", 
         RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Lambda]"}],
       MultilineFunction->None]}], 
     RowBox[{
      SuperscriptBox["\[Lambda]", "2"], "+", 
      SuperscriptBox["r", "2"]}]]}], "\[LongEqual]", 
   FractionBox[
    RowBox[{
     RowBox[{"\[Psi]2", "(", 
      RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], ")"}]}], "-", 
       RowBox[{"\[Lambda]", " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["\[Lambda]", "2"], "+", 
     SuperscriptBox["r", "2"]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523272403955317`*^9, 3.8523272558802223`*^9}, {
   3.852327287262825*^9, 3.852327294979541*^9}, 3.852328494895472*^9},
 CellLabel->
  "Out[160]//TraditionalForm=",ExpressionUUID->"6239ab91-9670-4631-ae54-\
b0c63d7ebe1f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7b", "[", 
   RowBox[{"\[Psi]_", ",", "U_", ",", "V_"}], "]"}], " ", ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"\[Psi]", ",", "r"}], "]"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        FractionBox[
         RowBox[{"2", " ", "\[Lambda]", " ", "r"}], 
         RowBox[{
          SuperscriptBox["\[Lambda]", "2"], "+", 
          SuperscriptBox["r", "2"]}]], ")"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{"\[Psi]", ",", "\[Lambda]"}], "]"}]}]}], "]"}], " ", "==", 
    "  ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"(", 
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", "U"}], " ", "+", " ", 
         RowBox[{"\[Lambda]", " ", "V"}]}], 
        RowBox[{
         SuperscriptBox["\[Lambda]", "2"], "+", 
         SuperscriptBox["r", "2"]}]], ")"}], " ", ".", " ", "\[Psi]"}], " ", 
     "]"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8522517707372828`*^9, 3.852251796856574*^9}, {
   3.852252035002442*^9, 3.852252040177404*^9}, 3.8522521269496202`*^9, {
   3.8523261862725773`*^9, 3.852326210096736*^9}, {3.852326310928863*^9, 
   3.852326365361496*^9}, {3.852326639401218*^9, 3.8523266537770243`*^9}, 
   3.852328494895829*^9},
 CellLabel->
  "In[123]:=",ExpressionUUID->"87fe5f70-74a8-41fa-839b-4a4410e262b9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "equation7b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation7b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"eq7b", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Psi]1", "[", 
        RowBox[{"\[Lambda]", ",", "r", ",", "z"}], "]"}], ",", 
       RowBox[{"\[Psi]2", "[", 
        RowBox[{"\[Lambda]", ",", "r", ",", "z"}], "]"}]}], "}"}], ",", 
     RowBox[{"eq6a", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", 
     RowBox[{"eq6b", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation7b", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", 
  "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equation7b", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523273143205757`*^9, 3.8523273221516733`*^9}, 
   3.85232849489605*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"7163c884-9d26-4783-8a01-ea34103a3edd"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"2", " ", "\[Lambda]", " ", "r", " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Psi]1", "(", 
         RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Lambda]"}],
       MultilineFunction->None]}], 
     RowBox[{
      SuperscriptBox["\[Lambda]", "2"], "+", 
      SuperscriptBox["r", "2"]}]], "+", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Psi]1", "(", 
       RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None]}], "\[LongEqual]", 
   FractionBox[
    RowBox[{
     RowBox[{"\[Psi]1", "(", 
      RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "+", 
       RowBox[{"\[Lambda]", " ", "r", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["\[Lambda]", "2"], "+", 
     SuperscriptBox["r", "2"]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8523273228168793`*^9, 3.8523284948962393`*^9},
 CellLabel->
  "Out[163]//TraditionalForm=",ExpressionUUID->"6e64ab2e-fb09-4c46-adfb-\
469c8e228172"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"2", " ", "\[Lambda]", " ", "r", " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Psi]2", "(", 
         RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Lambda]"}],
       MultilineFunction->None]}], 
     RowBox[{
      SuperscriptBox["\[Lambda]", "2"], "+", 
      SuperscriptBox["r", "2"]}]], "+", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Psi]2", "(", 
       RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None]}], "\[LongEqual]", 
   FractionBox[
    RowBox[{
     RowBox[{"\[Psi]2", "(", 
      RowBox[{"\[Lambda]", ",", "r", ",", "z"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}], "-", 
       RowBox[{"\[Lambda]", " ", "r", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None]}]}], ")"}]}], 
    RowBox[{
     SuperscriptBox["\[Lambda]", "2"], "+", 
     SuperscriptBox["r", "2"]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.852327322851571*^9, 3.852328494896509*^9},
 CellLabel->
  "Out[164]//TraditionalForm=",ExpressionUUID->"c3cb4550-fec1-4a30-bb09-\
2e92b6a3aaa3"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Tensors Calculated For Metric 24:  Static Axially Symmetric Weyl \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82753103002352*^9, 3.827531052415834*^9}, {
  3.8523057407117968`*^9, 3.852305741407835*^9}, {3.852306206575652*^9, 
  3.852306213541214*^9}, {3.852313661111846*^9, 3.8523136697279053`*^9}, {
  3.852325404111445*^9, 
  3.8523254108263903`*^9}},ExpressionUUID->"99149a4e-3f90-4837-9bc2-\
e7dd2aca7b3f"],

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[{
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}], " ", "*)"}], " ", "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.8275309635868196`*^9, 
   3.827530965633152*^9}, 3.827531041137661*^9, {3.852305771348864*^9, 
   3.8523057746990147`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"471dab49-c155-4f6c-9dc6-81a622ae336e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "3.58", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", "  ", "Cotton"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric24\>\"", ",", " ", "metric24", ",", " ", "\"\<Weyl\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(weyl\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "z"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.827530980865696*^9, 
   3.827531060072402*^9}, {3.852305745851985*^9, 3.852305768432556*^9}, {
   3.852305832785726*^9, 3.852305841681376*^9}, {3.852313675825543*^9, 
   3.852313696257595*^9}, {3.8523254148488913`*^9, 3.852325422304048*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"0e9c9d82-00b6-4b6a-a0b3-f93d350dcc8d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.186588`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.827531030651795*^9, 3.8275310411379538`*^9}, 
   3.827923267025786*^9, 3.843834761394718*^9, 3.843947230419145*^9, 
   3.8523058177676983`*^9, 3.852311852741253*^9, 3.852313709542651*^9, 
   3.852313822659464*^9, 3.852325433890852*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"14fc76a1-da53-4ffe-84c2-3fa6c82905c6"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8275310153844624`*^9, 3.827531041138036*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"44e8d991-16d9-4689-97ab-f7cb9a5c28c3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "weyl"], "\[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], ",", "\<\"cottonmetric24\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82753106614108*^9, 3.8275321257370567`*^9, 
  3.827923267136018*^9, 3.8438347614581127`*^9, 3.843947230470193*^9, 
  3.852305817925479*^9, 3.8523118529072638`*^9, 3.8523137095974693`*^9, 
  3.852313822711666*^9, 3.852325433961748*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"07c0fac1-2f1f-4ada-aa55-2e93196a43f0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.827531041138124*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"f745c75d-5cdc-49d1-8971-157cb1834766"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "weyl"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827923267150333*^9, 3.843834761487138*^9, 3.843947230489871*^9, 
   3.852305817939487*^9, 3.852311852919394*^9, 3.8523137096130123`*^9, 
   3.8523138227247868`*^9, 3.852325433974845*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"223c73e8-667b-4571-ae2f-d20faa1bc0c7"],

Cell[BoxData["\<\"Weyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827923267150333*^9, 3.843834761487138*^9, 3.843947230489871*^9, 
   3.852305817939487*^9, 3.852311852919394*^9, 3.8523137096130123`*^9, 
   3.8523138227247868`*^9, 3.852325433978006*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"a854fa21-8471-41d6-8be0-742a8846b3b2"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]]}], "0", "0", "0"},
      {"0", 
       RowBox[{"f", "(", 
        RowBox[{"r", ",", "z"}], ")"}], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"f", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827923267150333*^9, 3.843834761487138*^9, 3.843947230489871*^9, 
   3.852305817939487*^9, 3.852311852919394*^9, 3.8523137096130123`*^9, 
   3.8523138227247868`*^9, 3.852325433982695*^9},
 CellLabel->
  "Out[24]//TraditionalForm=",ExpressionUUID->"21f48915-3ce5-4208-a54c-\
9d5af3c6eaa9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.827531041138465*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"2d8ced08-bb29-4285-b9e0-1ca27d1e8e88"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.82792326719608*^9, 3.843834761566759*^9, 3.843947230564633*^9, 
   3.852305817983101*^9, 3.8523118529650383`*^9, 3.8523137096461*^9, 
   3.852313822773182*^9, 3.85232543400917*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"f0cc7cd6-c177-4fb8-9c07-8d5d7c3a63a1"],

Cell[BoxData["\<\"ChristoffelSymbolWeyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.82792326719608*^9, 3.843834761566759*^9, 3.843947230564633*^9, 
   3.852305817983101*^9, 3.8523118529650383`*^9, 3.8523137096461*^9, 
   3.852313822773182*^9, 3.852325434013319*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"cf94eb0e-8040-4a14-b99b-ec53aad16236"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              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[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              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[{
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]},
           {"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[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "2"}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "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"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "r"], "-", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "r"], "-", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}]},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]},
           {"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[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]]}]},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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[
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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.827531041138555*^9, 3.827531066250152*^9}, 
   3.82792326719608*^9, 3.843834761566759*^9, 3.843947230564633*^9, 
   3.852305817983101*^9, 3.8523118529650383`*^9, 3.8523137096461*^9, 
   3.852313822773182*^9, 3.8523254340916977`*^9},
 CellLabel->
  "Out[27]//TraditionalForm=",ExpressionUUID->"3247f3ac-0fb7-487a-b8e9-\
b7410b97efa4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.82753104113878*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"3920b3cf-0727-4cdc-9224-2536ae0345b8"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.827923267444069*^9, 3.843834762103753*^9, 3.843947230775958*^9, 
   3.852305818077752*^9, 3.852311853088848*^9, 3.852313709756192*^9, 
   3.8523138228493643`*^9, 3.852325434168831*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"619fd5c0-e2ea-4916-b74a-a47f99dee2aa"],

Cell[BoxData["\<\"RiemannTensorWeyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.827923267444069*^9, 3.843834762103753*^9, 3.843947230775958*^9, 
   3.852305818077752*^9, 3.852311853088848*^9, 3.852313709756192*^9, 
   3.8523138228493643`*^9, 3.852325434174651*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"842ae85a-39f7-459d-967c-035492736541"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "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["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}]},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "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[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "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[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "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[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{"4", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "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[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "z"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}]},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "z"}]}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             RowBox[{"2", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], 
            RowBox[{"2", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "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[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                  RowBox[{"2", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.827923267444069*^9, 3.843834762103753*^9, 3.843947230775958*^9, 
   3.852305818077752*^9, 3.852311853088848*^9, 3.852313709756192*^9, 
   3.8523138228493643`*^9, 3.852325434910782*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"926316e8-f2fb-4cf3-99ed-\
8dac25109c67"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.827531041139097*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"640fc9e9-bed8-4f0c-b214-9f68a73079ad"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827923271547653*^9, 3.843834766494377*^9, 3.843947234918741*^9, 
   3.8523058188773727`*^9, 3.8523118537484703`*^9, 3.8523137106814213`*^9, 
   3.852313823562717*^9, 3.8523254349937267`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"3bc067b4-7f78-4b1f-a962-1e8d6aa9486e"],

Cell[BoxData["\<\"RicciTensorWeyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827923271547653*^9, 3.843834766494377*^9, 3.843947234918741*^9, 
   3.8523058188773727`*^9, 3.8523118537484703`*^9, 3.8523137106814213`*^9, 
   3.852313823562717*^9, 3.8523254349970407`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"df6cdecf-cdc2-4a39-b341-a6f51e80465f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], ")"}]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}]}], "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{"2", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}]}], 
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {"0", "0", 
       FractionBox[
        RowBox[{"r", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]], "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], ")"}]}]}], "-", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}]}], 
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "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.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827923271547653*^9, 3.843834766494377*^9, 3.843947234918741*^9, 
   3.8523058188773727`*^9, 3.8523118537484703`*^9, 3.8523137106814213`*^9, 
   3.852313823562717*^9, 3.852325435073564*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"30ff08f8-99ce-47d1-8a61-\
d1381b8f163f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.827531041139411*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"d1b5d2f8-4098-465a-a6ae-9082e6a3a765"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.82792327178183*^9, 3.8438347667247953`*^9, 
  3.843947235156402*^9, 3.852305818956938*^9, 3.8523118538951063`*^9, 
  3.852313710833371*^9, 3.8523138237008057`*^9, 3.85232543508841*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"64bc0db8-8082-4a5a-af41-610641ecf1a3"],

Cell[BoxData["\<\"RicciScalarWeyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.82792327178183*^9, 3.8438347667247953`*^9, 
  3.843947235156402*^9, 3.852305818956938*^9, 3.8523118538951063`*^9, 
  3.852313710833371*^9, 3.8523138237008057`*^9, 3.852325435092424*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"7b274908-bda7-4746-a0e1-0c95d3b1ff57"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"f", "(", 
        RowBox[{"r", ",", "z"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["z", "2"]}],
          MultilineFunction->None]}], ")"}]}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"f", "(", 
        RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "z"}],
            MultilineFunction->None], ")"}], "2"]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "-", "2"}], ")"}]}]}], ")"}]}], "+", 
     
     RowBox[{"2", " ", "r", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], ")"}], "2"]}], "+", 
     RowBox[{"2", " ", "r", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}]}], 
         RowBox[{"\[PartialD]", "z"}],
         MultilineFunction->None], ")"}], "2"]}]}], 
    RowBox[{"2", " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"f", "(", 
       RowBox[{"r", ",", "z"}], ")"}], "3"]}]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.82792327178183*^9, 3.8438347667247953`*^9, 
  3.843947235156402*^9, 3.852305818956938*^9, 3.8523118538951063`*^9, 
  3.852313710833371*^9, 3.8523138237008057`*^9, 3.85232543511761*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"9a079123-e483-41ee-9b52-\
684b7663dd17"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "6", "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorName", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "6", "]"}], "]"}], "]"}]}], " ", "//", " ", 
    "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.8275310411397467`*^9, {
   3.827531085049985*^9, 3.8275310892800713`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"9746c132-f970-400a-89d9-da253bb05cf7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.827531041140236*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"f20f8296-d36c-419b-b121-14b832b26c2d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827923271857465*^9, 3.84383476683326*^9, 3.843947235237376*^9, 
   3.85230581904422*^9, 3.852311853954364*^9, 3.852313710932526*^9, 
   3.852313823779379*^9, 3.852325435148349*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"d862f7d6-16ce-401f-b6cc-a12e3072a190"],

Cell[BoxData["\<\"EinsteinTensorWeyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827923271857465*^9, 3.84383476683326*^9, 3.843947235237376*^9, 
   3.85230581904422*^9, 3.852311853954364*^9, 3.852313710932526*^9, 
   3.852313823779379*^9, 3.852325435153822*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"46e1fb20-d11f-4d5f-b5a8-0a41da37ca8c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], "+", 
           RowBox[{"2", " ", "r", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{"2", " ", "r", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"4", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], "3"]}]], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {"0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], "3"]}]], "0"},
      {"0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", "2"}], ")"}]}], "-", 
            RowBox[{"r", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827923271857465*^9, 3.84383476683326*^9, 3.843947235237376*^9, 
   3.85230581904422*^9, 3.852311853954364*^9, 3.852313710932526*^9, 
   3.852313823779379*^9, 3.852325435243896*^9},
 CellLabel->
  "Out[40]//TraditionalForm=",ExpressionUUID->"f943e57d-dc18-4ca2-b48a-\
c9ec2f6f2fcf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.827531041140554*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"2a9abdbf-ae14-4f34-8c55-835c61ca2518"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.82792327213684*^9, 3.843834767390759*^9, 3.843947235615587*^9, 
   3.852305819123241*^9, 3.852311854074031*^9, 3.852313711115398*^9, 
   3.852313823862505*^9, 3.852325435262285*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"fcc3d324-d7a5-4e02-8c3a-2e4b82893f47"],

Cell[BoxData["\<\"WeylTensorWeyl\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.82792327213684*^9, 3.843834767390759*^9, 3.843947235615587*^9, 
   3.852305819123241*^9, 3.852311854074031*^9, 3.852313711115398*^9, 
   3.852313823862505*^9, 3.852325435265739*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"c858c838-c7eb-4814-8c63-e33288b937ce"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", "r", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"r", " ", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "3"]}]]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "3"]}]], "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["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"5", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", "r", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]]},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}], "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", "r", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "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", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"5", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "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[{
             RowBox[{"-", 
              RowBox[{"r", " ", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
               ")"}]}], "+", 
             RowBox[{"r", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{"r", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}]}], 
            RowBox[{"6", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
                ")"}]}], "+", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"6", " ", "r", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "3"]}]], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"r", " ", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "3"]}]]}], "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[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"5", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}], "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]]},
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "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[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   RowBox[{"5", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", "r", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}]},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                  RowBox[{"5", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "-", 
                    RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", "r", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]], "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[{
              RowBox[{"-", 
               RowBox[{"r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                   MultilineFunction->None]}], ")"}]}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
                ")"}]}], "+", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], ")"}], "2"]}]}], 
             RowBox[{"6", " ", "r", " ", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              RowBox[{"r", " ", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["z", "2"]}],
                  MultilineFunction->None]}], ")"}]}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
               ")"}]}], "+", 
             RowBox[{"r", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             RowBox[{"r", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}]}], 
            RowBox[{"6", " ", "r", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "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[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0"},
          {"0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "z"}]}],
                    MultilineFunction->None]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None]}], ")"}]}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}]], "0", 
           FractionBox[
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"3", " ", "r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "+", 
                  RowBox[{"r", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"3", " ", "r", " ", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], ")"}], "2"]}], "+", 
               RowBox[{"r", " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "z"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}], "2"]}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"r", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"f", "(", 
                   RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"3", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "+", 
                   RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["z", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{"f", "(", 
                  RowBox[{"r", ",", "z"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "z"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}], "2"]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.82792327213684*^9, 3.843834767390759*^9, 3.843947235615587*^9, 
   3.852305819123241*^9, 3.852311854074031*^9, 3.852313711115398*^9, 
   3.852313823862505*^9, 3.8523254366121798`*^9},
 CellLabel->
  "Out[43]//TraditionalForm=",ExpressionUUID->"8e1375f1-c236-476f-9743-\
e76937f64e77"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "9", "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorName", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "9", "]"}], "]"}], "]"}]}], " ", "//", " ", 
    "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.8275310411408653`*^9, {3.8275310942501097`*^9, 
   3.827531098768097*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"1c2d452c-cdb3-446b-ae85-eb2964790003"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Derivation of Vacuum Field Equations For Metric 2.1:  Weyl\[CloseCurlyQuote]s \
Canonical Coordinates
Comparison of Field Equations Derived From Metric and Equivalent Equations 3-6\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852305886605892*^9, 3.852305903631928*^9}, {
  3.85230621556875*^9, 3.852306218711965*^9}, {3.8523143264479713`*^9, 
  3.8523143272354937`*^9}, {3.852328431951702*^9, 
  3.8523284681840363`*^9}},ExpressionUUID->"594e6dff-4ec7-4768-b186-\
4ea207823c9d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Cases", "[", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
          RowBox[{
           RowBox[{"TensorValues", "[", 
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
        " ", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
     " ", 
     RowBox[{"Except", "[", "0", "]"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.852305893015394*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"3ad52163-5fea-40cf-9ac1-992390c91bc6"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], ")"}]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}]}], "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{"2", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}]}], 
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], "2"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{"r", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["z", "2"]}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"r", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"f", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], ")"}]}]}], "-", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"f", "(", 
               RowBox[{"r", ",", "z"}], ")"}]}], 
             RowBox[{"\[PartialD]", "z"}],
             MultilineFunction->None], ")"}], "2"]}]}], 
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "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", 10006.},
 CellChangeTimes->{{3.852305881633439*^9, 3.8523058930157146`*^9}, 
   3.8523118551129293`*^9, 3.85231373032736*^9, 3.8523138289308233`*^9, 
   3.8523254426847677`*^9},
 CellLabel->
  "Out[47]//TraditionalForm=",ExpressionUUID->"c44a5559-60f4-4193-9564-\
b189c340f2e3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Cases", "[", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
          RowBox[{
           RowBox[{"TensorValues", "[", 
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
        " ", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
     " ", 
     RowBox[{"Except", "[", "0", "]"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.852305893015931*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"4a808868-353b-4b51-974c-67cb70e2f6a4"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"r", ",", "z"}], ")"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"r", ",", "z"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "z"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], "+", 
           RowBox[{"2", " ", "r", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{"2", " ", "r", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"4", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], "3"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "z"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"f", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}], 
          RowBox[{"\[PartialD]", "z"}],
          MultilineFunction->None]}], 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"r", ",", "z"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"f", "(", 
              RowBox[{"r", ",", "z"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "z"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", 
                 RowBox[{"r", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], "3"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"f", "(", 
           RowBox[{"r", ",", "z"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"r", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"r", ",", "z"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", "2"}], ")"}]}], "-", 
            RowBox[{"r", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"r", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", "z"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"r", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}]}], 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"f", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852305883892735*^9, 3.852305893016214*^9}, 
   3.852311855184311*^9, 3.852313734769074*^9, 3.8523138290390053`*^9, 
   3.8523254463495607`*^9},
 CellLabel->
  "Out[50]//TraditionalForm=",ExpressionUUID->"6a9c1542-c4ad-4192-9c9e-\
991b9d32a801"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"This", " ", "matches", " ", "equation", " ", "3"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq25", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq25", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"Expand", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "r"}], ")"}], "*", 
       RowBox[{
        RowBox[{"nonzeroRicci", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"eq25", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852325535863596*^9, 3.85232557749518*^9}, {
   3.852328085257147*^9, 3.85232810348037*^9}, 3.852328424315216*^9},
 CellLabel->
  "In[171]:=",ExpressionUUID->"7410cdc7-61c7-4e55-89b5-93e2ca178a3a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["r", "2"]}],
    MultilineFunction->None], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["z", "2"]}],
    MultilineFunction->None], "+", 
   FractionBox[
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], "r"]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852325537920588*^9, 3.8523255784680843`*^9}, 
   3.8523281038083553`*^9, 3.852328424315729*^9},
 CellLabel->
  "Out[173]//TraditionalForm=",ExpressionUUID->"8c954712-fb93-4bb1-9597-\
e8e75ae26dce"],

Cell[BoxData[{
 RowBox[{"equation3", " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{"eq25", " ", "==", " ", "equation3", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328074552999*^9, 3.852328114176025*^9}, 
   3.8523284243159933`*^9},
 CellLabel->
  "In[174]:=",ExpressionUUID->"ec3fdbc8-7848-470f-b083-b6cf50000a49"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["r", "2"]}],
    MultilineFunction->None], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[CapitalPhi]", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["z", "2"]}],
    MultilineFunction->None], "+", 
   FractionBox[
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"r", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], "r"]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328076670198*^9, 3.8523280815605497`*^9}, 
   3.8523281145547*^9, 3.852328424316236*^9},
 CellLabel->
  "Out[174]//TraditionalForm=",ExpressionUUID->"1bb1a5fb-853e-4524-a6bc-\
5610c734cea5"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328076670198*^9, 3.8523280815605497`*^9}, 
   3.8523281145583353`*^9, 3.852328424316814*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"4f02d332-7ed8-4000-82b8-88bedfa51216"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Field", " ", "Equation", " ", "Constraint", " ", "calculated", " ", 
    "directly", " ", "from", " ", 
    RowBox[{"Einstein", "'"}], "s", " ", "equations"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"nonzeroRicci", "[", 
            RowBox[{"[", "3", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
          " ", 
          RowBox[{
           SuperscriptBox["f", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "z"}], "]"}]}], " ", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", ")"}], " ", "//", " ", 
    "Expand"}], "  ", "//", " ", "pdConv"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328133352242*^9, 3.852328195664278*^9}, {
   3.8523283496580772`*^9, 3.852328370496254*^9}, 
   3.852328424317122*^9},ExpressionUUID->"f40c77cb-52b4-4278-b6d2-\
b35cc5dc4dad"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", "z"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"r", " ", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "z"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "z"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328145564802*^9, 3.852328196241757*^9}, 
   3.852328424317443*^9},
 CellLabel->
  "Out[182]//TraditionalForm=",ExpressionUUID->"80310879-9552-4753-b0b0-\
5bed57906aec"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Equivalent", " ", "to", " ", "above", " ", "using", " ", 
    "reformulation"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{"equation5", " ", ",", 
          RowBox[{
           SuperscriptBox["f", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "z"}], "]"}]}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", ")"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "pdConv"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523280513132057`*^9, 3.852328062216127*^9}, {
   3.852328200928793*^9, 3.852328235376856*^9}, {3.85232837245681*^9, 
   3.85232839045603*^9}, 
   3.852328424317614*^9},ExpressionUUID->"352fd459-bea1-4f4a-a09f-\
977b8f6f86a0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", "z"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"r", " ", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "z"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "z"}],
      MultilineFunction->None]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8523280537565937`*^9, 3.8523280627102003`*^9}, {
   3.852328201499302*^9, 3.85232823587129*^9}, 3.852328424317795*^9},
 CellLabel->
  "Out[187]//TraditionalForm=",ExpressionUUID->"96bcd7f3-02b4-4e0d-9de5-\
c6401b999165"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Field", " ", "Equation", " ", "Constraint", " ", "calculated", " ", 
    "directly", " ", "from", " ", 
    RowBox[{"Einstein", "'"}], "s", " ", "equations"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"nonzeroEinstein", "[", 
            RowBox[{"[", "5", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
          RowBox[{
           SuperscriptBox["f", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "z"}], "]"}]}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"Rule", "->", " ", "Equal"}]}], " ", ")"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "pdConv"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328305737665*^9, 3.852328342016473*^9}, {
  3.852328398520659*^9, 
  3.852328424317957*^9}},ExpressionUUID->"f708058d-cf18-443c-895d-\
2365908e12d2"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "r", " ", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], ")"}], "2"]}], "-", 
    RowBox[{
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "r", " ", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "z"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328307112606*^9, 3.8523283425581923`*^9}, 
   3.85232842431814*^9},
 CellLabel->
  "Out[197]//TraditionalForm=",ExpressionUUID->"d2d7ec2e-4b45-4c12-926a-\
7eb44e3d6bb5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Equivalent", " ", "to", " ", "above", " ", "using", " ", 
    "reformulation"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{"equation4", " ", ",", " ", 
          RowBox[{
           SuperscriptBox["f", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "z"}], "]"}]}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"Rule", "->", " ", "Equal"}]}], " ", ")"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "pdConv"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.85232804784883*^9, 3.852328057768098*^9}, {
  3.852328251753366*^9, 3.852328284168092*^9}, {3.852328406352807*^9, 
  3.852328424318391*^9}},ExpressionUUID->"7bc7856a-2075-46c8-a09b-\
5b21d5ca7d40"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "r", " ", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], ")"}], "2"]}], "-", 
    RowBox[{
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"r", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "r", " ", 
     RowBox[{"f", "(", 
      RowBox[{"r", ",", "z"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"r", ",", "z"}], ")"}]}], 
        RowBox[{"\[PartialD]", "z"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.852328050181449*^9, 3.852328058206059*^9}, {
   3.852328252110881*^9, 3.8523282846721563`*^9}, 3.852328424318681*^9},
 CellLabel->
  "Out[192]//TraditionalForm=",ExpressionUUID->"126b89db-7c89-425c-b27f-\
efc97b0c050d"]
}, Closed]]
},
WindowSize->{1276, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"5cc9eebd-7d94-48b1-be78-e7e3d4fdfd4c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2291, 33, 221, "Title",ExpressionUUID->"416d69b6-4263-4a85-83f5-a7edeefc9d55",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2874, 57, 1244, 21, 94, "Author",ExpressionUUID->"8b4082ed-6104-4563-b6a7-aff39de272bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[4133, 81, 404, 8, 84, "Input",ExpressionUUID->"13988f57-4d1a-4e8b-a6de-9a0ed0e86a8e"],
Cell[CellGroupData[{
Cell[4562, 93, 228, 4, 69, "Section",ExpressionUUID->"68340e71-b35d-43d2-a697-fcb65e0cb60c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4793, 99, 434, 9, 63, "Input",ExpressionUUID->"5395b883-8572-4486-a3e4-70c38f35855c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[5230, 110, 1821, 28, 43, "Output",ExpressionUUID->"f33b5cfd-660f-4f92-aeaf-d16cf2d614ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[7088, 143, 545, 9, 55, "Section",ExpressionUUID->"02e62d1f-c747-4106-9a0b-5e80d051ba46",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7636, 154, 499, 9, 63, "Input",ExpressionUUID->"5a1561ad-f550-41b7-a010-de9649feacc9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8138, 165, 443, 8, 43, "Output",ExpressionUUID->"e772f82c-6a54-4860-acdf-6b02841d9fc8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8584, 175, 477, 9, 63, "Input",ExpressionUUID->"6b5ffff5-be95-4053-ba32-3c0b27c04316",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9064, 186, 418, 8, 43, "Output",ExpressionUUID->"e486557c-4d30-4077-8dab-0115ffb93a57",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9485, 196, 478, 9, 63, "Input",ExpressionUUID->"83f42cf7-5682-4acd-a6ef-a4c97d1238a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9966, 207, 421, 8, 43, "Output",ExpressionUUID->"cceb73f0-751a-42c5-a962-7b1117d6378b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[10424, 220, 228, 4, 55, "Section",ExpressionUUID->"607f912c-a1a8-4476-bcaf-82b312ae6fb2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10655, 226, 1641, 44, 189, "Input",ExpressionUUID->"43a1184a-011f-447d-8e9f-d28fc02d1371",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12299, 272, 2093, 34, 24, "Print",ExpressionUUID->"f6194b84-7f25-4629-8894-4b75340bf6f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14395, 308, 2110, 35, 24, "Print",ExpressionUUID->"4a016837-ebee-40a5-9b49-cb48dfaa3865",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[16508, 345, 2086, 32, 41, "Output",ExpressionUUID->"7390bb01-d7f7-4b81-a084-8039ebc157b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[18597, 379, 246, 4, 41, "Input",ExpressionUUID->"1ac4c0a1-20af-4c1c-9dab-d36e8713bbd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[18880, 388, 240, 4, 55, "Section",ExpressionUUID->"c2a46daa-1e8f-4c8e-8b36-aaca44f767f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[19123, 394, 4920, 111, 777, "Input",ExpressionUUID->"5c60439f-9039-4861-93fa-c813d4821448",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[24046, 507, 4227, 126, 609, "Output",ExpressionUUID->"d2823ecd-c0af-4fe0-b3c7-0dbbfffa9c69",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[28276, 635, 1020, 24, 84, "Input",ExpressionUUID->"e9fb0285-6e0a-4f6c-8205-f19bb46743f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[29333, 664, 362, 6, 55, "Section",ExpressionUUID->"a438eaa0-ea00-4e22-841b-c7eb139fec53",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[29698, 672, 1659, 41, 126, "Input",ExpressionUUID->"edc69994-ffa0-48c1-8f39-83fcf58c717c",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[31360, 715, 1056, 26, 84, "Input",ExpressionUUID->"bbf8d7e8-492a-442f-bffd-c6792b9b7f03",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[32453, 746, 259, 4, 55, "Section",ExpressionUUID->"d515da2d-81c3-4c87-b4a2-c425aa8ab161",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32715, 752, 985, 27, 86, "Input",ExpressionUUID->"4e94dc21-ddb2-4697-af2d-d5d734936d59",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33703, 781, 859, 25, 44, "Output",ExpressionUUID->"c9220804-df3e-482b-a037-cf691f02581f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34565, 808, 665, 14, 105, "Input",ExpressionUUID->"9395eb24-b745-4005-bbc4-660859a158e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35233, 824, 1327, 38, 106, "Output",ExpressionUUID->"ca6c262d-f0ba-4ea2-b9de-d8fa6f0acd22",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[36597, 867, 250, 4, 55, "Section",ExpressionUUID->"8486d0c4-3601-4a69-adff-6571ae6f7550",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[36850, 873, 590, 13, 105, "Input",ExpressionUUID->"473bcc14-02c2-4792-bdfe-1bc25c934f45",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[37443, 888, 1088, 31, 73, "Output",ExpressionUUID->"f5bdeb0b-f6bb-46d4-9455-8bb78dc26243",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[38534, 921, 452, 7, 84, "Input",ExpressionUUID->"31a88b7f-d741-47cd-8f6c-0e822da75d4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[38989, 930, 297, 6, 41, "Output",ExpressionUUID->"8e5daba1-d382-4893-8232-8e02b9ed587a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[39289, 938, 969, 26, 105, "Input",ExpressionUUID->"1dbf4091-05d9-421e-91ea-5aa4592bf47c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[40261, 966, 1286, 37, 84, "Output",ExpressionUUID->"6965f183-767b-484d-a6e0-ec7f356fda43",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[41550, 1005, 969, 25, 105, "Input",ExpressionUUID->"258bb1ef-1312-4d09-bbd4-be5b99ca57da",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[42522, 1032, 1248, 36, 86, "Output",ExpressionUUID->"0283f7a0-2da1-4c97-9986-01933bd386b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[43773, 1070, 1063, 26, 84, "Input",ExpressionUUID->"d0dafbf2-9074-4121-84aa-0389a9376add",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[44839, 1098, 930, 20, 105, "Input",ExpressionUUID->"4b249162-b2f5-4eb4-9c22-9470b0a8c6df",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[45772, 1120, 2897, 79, 96, "Output",ExpressionUUID->"6e5b730d-cdc8-4942-8237-ccdb6732d0c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[48672, 1201, 732, 18, 105, "Input",ExpressionUUID->"1e7aa982-b4d0-4f2a-8dc7-df72f74e7b6a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[49407, 1221, 1042, 31, 79, "Output",ExpressionUUID->"648b706b-c9b9-4e7f-9e14-f85ff761e0e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[50452, 1254, 906, 26, 102, "Input",ExpressionUUID->"974fc840-52c6-4664-8784-a4e731c4bc55",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[51361, 1282, 826, 19, 105, "Input",ExpressionUUID->"51e29cf7-a51b-4614-9c2f-a449ccdb7e20",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[52190, 1303, 1477, 45, 80, "Output",ExpressionUUID->"e270d6b5-3b8e-4b8b-90aa-8bb9e9bd74e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[53670, 1350, 729, 20, 102, "Input",ExpressionUUID->"c20e57ee-c01d-4911-aabf-a9f0be276f73",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[54402, 1372, 827, 19, 105, "Input",ExpressionUUID->"1de733e7-ba44-4795-bdb3-5692db3e9df4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[55232, 1393, 1221, 37, 81, "Output",ExpressionUUID->"2193476a-3f70-4e15-8194-f9fa50579286",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[56456, 1432, 1574, 41, 110, "Input",ExpressionUUID->"06560c3d-4d5d-4266-9735-e7f61e79fc15",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[58033, 1475, 1099, 28, 126, "Input",ExpressionUUID->"538e3cf8-f482-4777-a28a-801179ab18ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[59135, 1505, 1813, 51, 79, "Output",ExpressionUUID->"7448b8e2-9221-4bf7-abd0-10dcc61108ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[60951, 1558, 1975, 56, 79, "Output",ExpressionUUID->"6239ab91-9670-4631-ae54-b0c63d7ebe1f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[62929, 1616, 1544, 40, 104, "Input",ExpressionUUID->"87fe5f70-74a8-41fa-839b-4a4410e262b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[64476, 1658, 1102, 28, 126, "Input",ExpressionUUID->"7163c884-9d26-4783-8a01-ea34103a3edd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[65581, 1688, 1719, 49, 79, "Output",ExpressionUUID->"6e64ab2e-fb09-4c46-adfb-469c8e228172",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[67303, 1739, 1793, 51, 79, "Output",ExpressionUUID->"c3cb4550-fec1-4a30-bb09-2e92b6a3aaa3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[69133, 1795, 471, 9, 55, "Section",ExpressionUUID->"99149a4e-3f90-4837-9bc2-e7dd2aca7b3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[69607, 1806, 5837, 134, 714, "Input",ExpressionUUID->"471dab49-c155-4f6c-9dc6-81a622ae336e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[75447, 1942, 1183, 23, 65, "Input",ExpressionUUID->"0e9c9d82-00b6-4b6a-a0b3-f93d350dcc8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[76633, 1967, 476, 8, 41, "Output",ExpressionUUID->"14fc76a1-da53-4ffe-84c2-3fa6c82905c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77112, 1977, 238, 3, 41, "Input",ExpressionUUID->"44e8d991-16d9-4689-97ab-f7cb9a5c28c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[77353, 1982, 1214, 33, 45, "Output",ExpressionUUID->"07c0fac1-2f1f-4ada-aa55-2e93196a43f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[78570, 2017, 810, 18, 84, "Input",ExpressionUUID->"f745c75d-5cdc-49d1-8971-157cb1834766",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[79383, 2037, 759, 14, 45, "Output",ExpressionUUID->"223c73e8-667b-4571-ae2f-d20faa1bc0c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80145, 2053, 672, 10, 41, "Output",ExpressionUUID->"a854fa21-8471-41d6-8be0-742a8846b3b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[80820, 2065, 1732, 44, 106, "Output",ExpressionUUID->"21f48915-3ce5-4208-a54c-9d5af3c6eaa9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[82555, 2111, 813, 18, 84, "Input",ExpressionUUID->"2d8ced08-bb29-4285-b9e0-1ca27d1e8e88",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[83371, 2131, 865, 16, 45, "Output",ExpressionUUID->"f0cc7cd6-c177-4fb8-9c07-8d5d7c3a63a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[84239, 2149, 760, 11, 41, "Output",ExpressionUUID->"cf94eb0e-8040-4a14-b99b-ec53aad16236",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[85002, 2162, 18299, 517, 436, "Output",ExpressionUUID->"3247f3ac-0fb7-487a-b8e9-b7410b97efa4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[103304, 2681, 809, 18, 84, "Input",ExpressionUUID->"3920b3cf-0727-4cdc-9224-2536ae0345b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[104116, 2701, 747, 13, 45, "Output",ExpressionUUID->"619fd5c0-e2ea-4916-b74a-a47f99dee2aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[104866, 2716, 685, 10, 41, "Output",ExpressionUUID->"842ae85a-39f7-459d-967c-035492736541",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[105554, 2728, 108778, 2610, 668, "Output",ExpressionUUID->"926316e8-f2fb-4cf3-99ed-8dac25109c67",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[214335, 5340, 808, 18, 84, "Input",ExpressionUUID->"640fc9e9-bed8-4f0c-b214-9f68a73079ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[215146, 5360, 738, 13, 45, "Output",ExpressionUUID->"3bc067b4-7f78-4b1f-a962-1e8d6aa9486e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[215887, 5375, 690, 10, 41, "Output",ExpressionUUID->"df6cdecf-cdc2-4a39-b341-a6f51e80465f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[216580, 5387, 10941, 296, 222, "Output",ExpressionUUID->"30ff08f8-99ce-47d1-8a61-d1381b8f163f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[227524, 5685, 810, 18, 84, "Input",ExpressionUUID->"d1b5d2f8-4098-465a-a6ae-9082e6a3a765",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[228337, 5705, 684, 11, 41, "Output",ExpressionUUID->"64bc0db8-8082-4a5a-af41-610641ecf1a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[229024, 5718, 674, 9, 41, "Output",ExpressionUUID->"7b274908-bda7-4746-a0e1-0c95d3b1ff57",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[229701, 5729, 3337, 93, 87, "Output",ExpressionUUID->"9a079123-e483-41ee-9b52-684b7663dd17",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[233041, 5824, 882, 19, 126, "Input",ExpressionUUID->"9746c132-f970-400a-89d9-da253bb05cf7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[233926, 5845, 792, 18, 84, "Input",ExpressionUUID->"f20f8296-d36c-419b-b121-14b832b26c2d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[234721, 5865, 654, 12, 45, "Output",ExpressionUUID->"d862f7d6-16ce-401f-b6cc-a12e3072a190",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[235378, 5879, 609, 9, 41, "Output",ExpressionUUID->"46e1fb20-d11f-4d5f-b5a8-0a41da37ca8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[235990, 5890, 13836, 362, 206, "Output",ExpressionUUID->"f943e57d-dc18-4ca2-b48a-c9ec2f6f2fcf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[249829, 6254, 857, 19, 84, "Input",ExpressionUUID->"2a9abdbf-ae14-4f34-8c55-835c61ca2518",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[250689, 6275, 740, 13, 45, "Output",ExpressionUUID->"fcc3d324-d7a5-4e02-8c3a-2e4b82893f47",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[251432, 6290, 675, 10, 41, "Output",ExpressionUUID->"c858c838-c7eb-4814-8c63-e33288b937ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[252110, 6302, 169581, 3998, 676, "Output",ExpressionUUID->"8e1375f1-c236-476f-9743-e76937f64e77",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[421694, 10302, 858, 19, 126, "Input",ExpressionUUID->"1c2d452c-cdb3-446b-ae85-eb2964790003",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[422589, 10326, 537, 10, 93, "Section",ExpressionUUID->"594e6dff-4ec7-4768-b186-4ea207823c9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[423129, 10338, 1248, 32, 105, "Input",ExpressionUUID->"3ad52163-5fea-40cf-9ac1-992390c91bc6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[424380, 10372, 9510, 264, 262, "Output",ExpressionUUID->"c44a5559-60f4-4193-9564-b189c340f2e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[433893, 10638, 1260, 33, 105, "Input",ExpressionUUID->"4a808868-353b-4b51-974c-67cb70e2f6a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[435156, 10673, 12484, 331, 246, "Output",ExpressionUUID->"6a9c1542-c4ad-4192-9c9e-991b9d32a801",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[447643, 11006, 938, 23, 126, "Input",ExpressionUUID->"7410cdc7-61c7-4e55-89b5-93e2ca178a3a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[448584, 11031, 1043, 31, 79, "Output",ExpressionUUID->"8c954712-fb93-4bb1-9597-e8e75ae26dce",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[449630, 11064, 384, 7, 63, "Input",ExpressionUUID->"ec3fdbc8-7848-470f-b083-b6cf50000a49",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[450017, 11073, 1039, 31, 79, "Output",ExpressionUUID->"1bb1a5fb-853e-4524-a6bc-5610c734cea5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[451059, 11106, 287, 5, 41, "Output",ExpressionUUID->"4f02d332-7ed8-4000-82b8-88bedfa51216",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[451349, 11113, 1310, 35, 65, "Input",ExpressionUUID->"f40c77cb-52b4-4278-b6d2-b35cc5dc4dad",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[452662, 11150, 1297, 39, 69, "Output",ExpressionUUID->"80310879-9552-4753-b0b0-5bed57906aec",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[453962, 11191, 1139, 30, 65, "Input",ExpressionUUID->"352fd459-bea1-4f4a-a09f-977b8f6f86a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[455104, 11223, 1346, 39, 69, "Output",ExpressionUUID->"96bcd7f3-02b4-4e0d-9de5-c6401b999165",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[456453, 11264, 1264, 34, 65, "Input",ExpressionUUID->"f708058d-cf18-443c-895d-2365908e12d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[457720, 11300, 1594, 49, 72, "Output",ExpressionUUID->"d2d7ec2e-4b45-4c12-926a-7eb44e3d6bb5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[459317, 11351, 1114, 29, 65, "Input",ExpressionUUID->"7bc7856a-2075-46c8-a09b-5b21d5ca7d40",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[460434, 11382, 1641, 49, 72, "Output",ExpressionUUID->"126b89db-7c89-425c-b27f-efc97b0c050d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]]
}
]
*)