Cauchy problem in general relativity II Main and constraint equations in the characteristic initial value problem by d'Inverno.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    766688,      17966]
NotebookOptionsPosition[    743327,      17569]
NotebookOutlinePosition[    743815,      17587]
CellTagsIndexPosition[    743772,      17584]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Cauchy problem in general relativity II Main and constraint equations in the \
characteristic initial value problem by d\[CloseCurlyQuote]Inverno\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.825843456962591*^9, 3.825843470538437*^9}, {
   3.82587531772775*^9, 3.825875324670994*^9}, {3.8260076306940603`*^9, 
   3.826007641918522*^9}, 3.826011839512066*^9, {3.8263801688919907`*^9, 
   3.82638019304388*^9}, {3.8263958589521112`*^9, 3.826395869887525*^9}, {
   3.826395931303625*^9, 3.826395939943798*^9}, {3.8263961522321043`*^9, 
   3.8263961649670258`*^9}, 3.8264576044436207`*^9, {3.826532680726181*^9, 
   3.8265326870531597`*^9}, 3.826532734543453*^9, {3.826533116450289*^9, 
   3.826533124873698*^9}, {3.826533177034293*^9, 3.826533177449621*^9}, {
   3.826533345354254*^9, 3.826533345712063*^9}, {3.826533447380822*^9, 
   3.82653350371865*^9}, {3.826533627028933*^9, 3.82653363935043*^9}, {
   3.826533707484222*^9, 3.82653371594044*^9}, {3.826533828077026*^9, 
   3.8265338284558773`*^9}, {3.826534072681231*^9, 3.826534075296845*^9}, {
   3.826534277005148*^9, 3.826534295116191*^9}, {3.8265344097890177`*^9, 
   3.82653441661204*^9}, {3.826534538309024*^9, 3.826534543164234*^9}, {
   3.826534621037068*^9, 3.826534629179826*^9}, {3.826534709420918*^9, 
   3.826534712612302*^9}, {3.8273315873641787`*^9, 3.82733160993854*^9}, {
   3.82738680103983*^9, 3.82738681239182*^9}, {3.8273882617119207`*^9, 
   3.827388268231215*^9}, {3.827530669072693*^9, 3.8275306832478333`*^9}, {
   3.8275630622550287`*^9, 3.8275630752069883`*^9}, {3.827653734556151*^9, 
   3.827653750131662*^9}, {3.829241242929727*^9, 3.829241255836205*^9}, {
   3.829241966080991*^9, 3.829241978984152*^9}, 3.856101898844865*^9},
 TextAlignment->Center,ExpressionUUID->"3bc5fb12-2506-4843-94e0-9f5969129f4f"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
May 5, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9, {3.855407872416093*^9, 3.855407879483934*^9}, 
   3.8554963948316936`*^9, {3.855504241007119*^9, 3.855504245254983*^9}, 
   3.8555049671827374`*^9, {3.855505955128133*^9, 3.855505961623564*^9}, {
   3.855532612945916*^9, 3.855532622453443*^9}, {3.8555766527923927`*^9, 
   3.855576656141964*^9}, {3.855841625871888*^9, 3.855841633587627*^9}, {
   3.855844157477105*^9, 3.855844162818038*^9}, {3.856101898844961*^9, 
   3.8561019015236*^9}},
 TextAlignment->Center,ExpressionUUID->"a9d0621c-9a7a-405e-b928-0f0f45ca7ed4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"b47a98bb-7b25-40a5-adb5-\
a8316fc374c2"],

Cell[CellGroupData[{

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[176]:=",ExpressionUUID->"bfff0a24-4c74-4775-b4a7-93062aae1147"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.825843522027536*^9, 
   3.825875355898499*^9, 3.8260077681021748`*^9, 3.826380423345456*^9, 
   3.8263927978526917`*^9, 3.826553813481596*^9, 3.827332028734309*^9, 
   3.827386838117896*^9, 3.827388549731575*^9, 3.827530764473493*^9, 
   3.8275631864499407`*^9, 3.827653878331839*^9, {3.829242117528822*^9, 
   3.8292421334376907`*^9}, 3.8572939551059437`*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"ad1e8846-2381-48ad-9b40-362d9db42576"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 3.8265327310118723`*^9, {
   3.826533163674143*^9, 3.826533167241699*^9}, 3.82653355805296*^9, {
   3.827388003218487*^9, 3.8273880065386333`*^9}, {3.827566811662676*^9, 
   3.8275668211670723`*^9}, 
   3.843087065838592*^9},ExpressionUUID->"ed46a2b5-13f2-48cf-9a71-\
7a27c2f3f23c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Cauchy problem in general relativity II Main and constraint equations \
in the characteristic initial value problem by d'Inverno\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://aip.scitation.org/doi/abs/10.1063/1.522579\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843087044043467*^9, 3.843087076368957*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"41a989bf-4dc7-43a5-ac9b-b48e43512725"],

Cell[BoxData[
 TemplateBox[{
  "\"Cauchy problem in general relativity II Main and constraint equations in \
the characteristic initial value problem by d'Inverno\"", 
   "https://aip.scitation.org/doi/abs/10.1063/1.522579"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8430870598880253`*^9, 3.8430870763701468`*^9}, 
   3.857293955142643*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"cf1de4ca-66ed-491a-93e0-f15c9fde605c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "See", " ", "page", " ", "296", " ", "and", " ", "369", " ", "for", " ", 
    RowBox[{"Bondi", "'"}], "s", " ", "Radiating", " ", "Metric"}], "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Introducing einstein's relativity d'inverno\>\"", ",", 
    "\[IndentingNewLine]", 
    "\"\<https://profmcruz.files.wordpress.com/2018/02/livro-introducing-\
einsteins-relativity-dinverno.pdf\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.855996552683894*^9, 3.855996606338252*^9}, {
  3.855996692962636*^9, 
  3.855996699258689*^9}},ExpressionUUID->"01484f15-39af-4149-8d9d-\
00d17c495d2a"],

Cell[BoxData[
 TemplateBox[{
  "\"Introducing einstein's relativity d'inverno\"", 
   "https://profmcruz.files.wordpress.com/2018/02/livro-introducing-einsteins-\
relativity-dinverno.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.855996581051919*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"d4255078-144f-4d8c-942a-fe5e1dede906"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"8f576927-4555-4e05-bd06-\
9ccb242a3c34"],

Cell[CellGroupData[{

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258753561698093`*^9, 3.826007768416874*^9, 3.826380423662938*^9, 
   3.826392798321377*^9, 3.826553813683632*^9, 3.8273320290278063`*^9, 
   3.827386838389818*^9, 3.8273885499231586`*^9, 3.8275307646891537`*^9, 
   3.8275631866491547`*^9, 3.827653878592229*^9, {3.829242117741933*^9, 
   3.829242133653757*^9}, 3.857293955382278*^9},
 CellLabel->
  "During evaluation of \
In[180]:=",ExpressionUUID->"85f8c5e2-7fa5-4c86-95ac-8675beacb639"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"1125 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "1125 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.825287778263542*^9, 3.825843522300147*^9, 
   3.8258753561698093`*^9, 3.826007768416874*^9, 3.826380423662938*^9, 
   3.826392798321377*^9, 3.826553813683632*^9, 3.8273320290278063`*^9, 
   3.827386838389818*^9, 3.8273885499231586`*^9, 3.8275307646891537`*^9, 
   3.8275631866491547`*^9, 3.827653878592229*^9, {3.829242117741933*^9, 
   3.829242133653757*^9}, 3.8572939553839273`*^9},
 CellLabel->
  "During evaluation of \
In[180]:=",ExpressionUUID->"1c05a3e8-78e1-47d5-8d77-18ef4f1fcf69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.825287778263782*^9, 3.825843522304077*^9, 
   3.82587535617485*^9, 3.826007768422662*^9, 3.8263804236686697`*^9, 
   3.826392798332839*^9, 3.8265538136893*^9, 3.8273320290307903`*^9, 
   3.82738683839509*^9, 3.827388549927188*^9, 3.827530764693576*^9, 
   3.827563186653928*^9, 3.827653878596849*^9, {3.8292421177466373`*^9, 
   3.8292421336580477`*^9}, 3.857293955385879*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"2e982f69-650a-453d-8455-10d4b59121c4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"1a3135fb-e312-4b8a-aa8c-4a41bfe72834"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"0a392d42-b383-4b81-8d7c-0ed5f42a3c01"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825287791153748*^9},ExpressionUUID->"bb2c9ee4-41a6-49d4-8be3-\
720ff43fc012"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CreatePalette", "[", 
  RowBox[{"{", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PasteButton", "[", 
     RowBox[{"SubPlus", "[", "u", "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PasteButton", "[", 
     RowBox[{"SubPlus", "[", "v", "]"}], "]"}]}], "\[IndentingNewLine]", 
   "}"}], " ", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827388848296938*^9, 3.827388892750021*^9}, {
  3.827388979796694*^9, 3.827388987031948*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"921d9a52-988a-4753-8d43-2ca6b01db224"],

Cell[BoxData[
 TemplateBox[{
   FrontEndObject[
    LinkObject["dkpr2_shm", 3, 1]], 49, 
   "FrontEndObject[LinkObject[\"dkpr2_shm\", 3, 1]]", "49", "\"Untitled-1\""},
  
  "NotebookObjectUnsaved"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827388875780456*^9, 3.827388892750308*^9}, 
   3.827388988953232*^9, 3.8275307649809637`*^9, 3.827563186873562*^9, 
   3.827653878911201*^9, {3.829242118007201*^9, 3.829242133835454*^9}, 
   3.857293955731051*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"8fc5c4da-3baa-440d-8382-2b01ac82153b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, 3.825287791153907*^9, {
   3.827387971485525*^9, 3.827387993676759*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"6abd7de2-c560-4a78-8e9d-d3476a891fe8"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.823598254375844*^9, 3.823598877146447*^9, 3.823598911379983*^9, 
   3.823618495599228*^9, 3.823683414107848*^9, 3.823683842051852*^9, 
   3.823684775483016*^9, 3.82368879462633*^9, 3.823690777330206*^9, 
   3.823691323069952*^9, 3.823704572638439*^9, 3.823704791783836*^9, 
   3.823967036322558*^9, 3.8239675180766773`*^9, 3.823970038900818*^9, 
   3.824025682372151*^9, 3.8252877911540327`*^9, 3.825843522413425*^9, 
   3.825875356265313*^9, 3.826007768477283*^9, 3.82638042378487*^9, 
   3.826392798568123*^9, 3.8265538137816563`*^9, 3.8273320291418343`*^9, 
   3.8273868385200787`*^9, {3.827387990674118*^9, 3.827387994239736*^9}, 
   3.827388550013358*^9, 3.827530765014926*^9, 3.827563186893221*^9, 
   3.827653878946905*^9, {3.829242118028308*^9, 3.829242133867298*^9}, 
   3.857293955744876*^9},
 CellLabel->
  "Out[7]//TableForm=",ExpressionUUID->"939e571f-54cd-4ef4-936b-636be3ca6cd6"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.825287791154132*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"0ffc489d-978e-4ae9-8c41-606e999bf542"]
}, 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->"8728eb6f-e50a-438e-9183-\
609e792500c1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"3b3b5ec9-4d31-4c98-9cde-d65188d87f8b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"53a19744-62ff-4274-ac97-9b4937f33b64"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Line Element and Metric 2.1 Bondi\[CloseCurlyQuote]s Radiating Metric:  See \
Page 295 D\[CloseCurlyQuote]Inverno\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242170411038*^9, 
  3.829242203995059*^9}},ExpressionUUID->"d1d884a5-dff6-42af-b5f8-\
e37ebfd61aa4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["V", "r"], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"2", " ", "\[Beta]"}], "]"}]}], " ", "-", " ", 
      RowBox[{
       SuperscriptBox["U", "2"], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"2", "\[Gamma]"}], "]"}]}]}], ")"}], 
    SuperscriptBox["du", "2"]}], " ", "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"2", " ", "\[Beta]"}], "]"}], " ", "du", " ", "dr"}], " ", "+", 
   " ", 
   RowBox[{"2", " ", "U", " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"2", " ", "\[Gamma]"}], "]"}], " ", "du", " ", "d\[Theta]"}], 
   " ", "-", " ", 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"2", " ", "\[Gamma]"}], "]"}], " ", 
       SuperscriptBox["d\[Theta]", "2"]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[Gamma]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82924200191468*^9, 3.829242009600327*^9}, 
   3.829242105822612*^9, 3.829242176702956*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"9a1112fb-f479-4d33-b1a1-7c97563048e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "dr", " ", "du", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Beta]"}]]}], "+", 
  RowBox[{"2", " ", "du", " ", "d\[Theta]", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Gamma]"}]], " ", 
   SuperscriptBox["r", "2"], " ", "U"}], "+", 
  RowBox[{
   SuperscriptBox["du", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Gamma]"}]]}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["U", "2"]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Beta]"}]], " ", "V"}], "r"]}], ")"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["d\[Theta]", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[Gamma]"}]]}], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[Gamma]"}]], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242118105167*^9, 3.829242133925455*^9}, 
   3.829242176703052*^9, 3.857293955828806*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"ba7c1b92-d71a-4968-b93b-eecbfb2ab481"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq2pt1", " ", ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{
      "du", " ", ",", " ", "dr", " ", ",", " ", "d\[Theta]", " ", ",", " ", 
       "d\[Phi]"}], " ", "}"}]}], " ", "]"}], "  ", "//", " ", "MatrixForm"}],
   " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242098393338*^9, 3.82924211010072*^9}, {
  3.829242151196969*^9, 3.8292421767031603`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"c963de3a-9283-49bb-94e2-04e80e3ffa91"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[Beta]"}]], " ", "V"}], "r"], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[Gamma]"}]], " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["U", "2"]}]}], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Beta]"}]], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[Gamma]"}]], " ", 
        SuperscriptBox["r", "2"], " ", "U"}], "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Beta]"}]], "0", "0", "0"},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[Gamma]"}]], " ", 
        SuperscriptBox["r", "2"], " ", "U"}], "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[Gamma]"}]]}], " ", 
        SuperscriptBox["r", "2"]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Gamma]"}]]}], " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "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.829242152134935*^9, 3.829242176703318*^9}, 
   3.857293955851555*^9},
 CellLabel->
  "Out[16]//TraditionalForm=",ExpressionUUID->"d5f545fe-4e06-43cd-9615-\
44c4174b3f79"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt1a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"V", "\[Rule]", " ", 
      RowBox[{"V", "[", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"U", "\[Rule]", " ", 
      RowBox[{"U", "[", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Beta]", "\[Rule]", " ", 
      RowBox[{"\[Beta]", "[", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Gamma]", "\[Rule]", " ", 
      RowBox[{"\[Gamma]", "[", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt1a", " ", "//", " ", "TableForm", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242067430047*^9, 3.829242079380114*^9}, 
   3.829242176703456*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"82454e96-7b26-40d8-97bb-6a279ffe8b5e"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{"V", "[", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{"U", "[", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"\[Beta]", "\[Rule]", 
       RowBox[{"\[Beta]", "[", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"\[Gamma]", "\[Rule]", 
       RowBox[{"\[Gamma]", "[", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242118139782*^9, 3.829242133962625*^9}, 
   3.829242176703532*^9, 3.8572939558720703`*^9},
 CellLabel->
  "Out[19]//TableForm=",ExpressionUUID->"79e0d44d-a788-447a-848c-\
3f4c5ca0dacd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq2pt1", " ", ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
       "du", " ", ",", " ", "dr", " ", ",", " ", "d\[Theta]", " ", ",", " ", 
        "d\[Phi]"}], " ", "}"}]}], " ", "]"}], "/.", " ", "eq2pt1a"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2pt1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242041773945*^9, 3.829242061060844*^9}, {
  3.8292421565661497`*^9, 3.8292421767036457`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"0a74678b-41ac-45f1-8a80-1203e3f0a6c1"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "r"], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
         SuperscriptBox[
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}]}], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], "0", "0", "0"},
      {
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], ")"}]}], 
       "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "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.829242118193387*^9, 3.829242176703752*^9}, 
   3.857293955904521*^9},
 CellLabel->
  "Out[22]//TraditionalForm=",ExpressionUUID->"8749d57c-683e-4335-b404-\
080eabdd1323"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "work", " ", "with", " ", "this", " ", "form", " ", "of", " ", 
    "the", " ", "inverse", " ", "to", " ", "do", " ", "calculations", " ", 
    "for", " ", "equation", " ", "4.3", " ", "then", " ", "put", " ", "back", 
    " ", "in", " ", "functional", " ", "dependence"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "inverse2pt1", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inverse2pt1", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Inverse", "[", " ", 
        RowBox[{"lineToMetric", "[", " ", 
         RowBox[{"eq2pt1", " ", ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{
           "du", " ", ",", " ", "dr", " ", ",", " ", "d\[Theta]", " ", ",", 
            " ", "d\[Phi]"}], " ", "}"}]}], " ", "]"}], " ", " ", "]"}], " ", 
       "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"inverse2pt1", "//", " ", "MatrixForm"}], " ", "//", " ", 
    "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8292424772362013`*^9, 3.829242533994437*^9}, 
   3.829242571503893*^9, {3.829243412302457*^9, 3.829243441797824*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"8eef2c7a-2997-46ca-959c-353e86fab7a4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[Beta]"}]], "0", "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[Beta]"}]], 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Beta]"}]], " ", "V"}], "r"]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Beta]"}]], " ", "U"}], "0"},
      {"0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Beta]"}]], " ", "U"}], 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Gamma]"}]], 
         SuperscriptBox["r", "2"]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[Gamma]"}]], " ", 
          RowBox[{
           SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}]}], 
         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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242495354135*^9, 3.829242502412654*^9}, 
   3.829242534464501*^9, 3.8292425715040827`*^9, {3.829243413613859*^9, 
   3.8292434428463*^9}, 3.85729395593714*^9},
 CellLabel->
  "Out[25]//TraditionalForm=",ExpressionUUID->"dce53f2a-8709-4b09-935f-\
0289f9207289"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"metric2pt1", " ", ".", " ", "inverse2pt1"}], "  ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "MatrixForm"}],
   "\[IndentingNewLine]", "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242504555718*^9, 3.829242515906603*^9}, 
   3.8292425715042048`*^9, {3.829243455349175*^9, 3.8292434601011887`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"bef9ce40-a887-47c5-a34a-d3fc9d6dca49"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"inverse2pt1", " ", ".", " ", "metric2pt1"}], "   ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "MatrixForm"}],
   "\[IndentingNewLine]", "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.829242545658946*^9, 3.829242571504486*^9}, {
  3.829243462054124*^9, 3.829243466812654*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"5d11c63a-848e-4dd1-99f3-abebf8d93137"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated From Metric 2.1 Bondi\[CloseCurlyQuote]s Radiating \
Metric", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.821190474728498*^9, 3.8211904888554153`*^9}, {
   3.825438010473774*^9, 3.825438061020821*^9}, {3.825438219426695*^9, 
   3.825438224738263*^9}, 3.828001540825891*^9, 3.8280020169698963`*^9, 
   3.829242470802746*^9, {3.829243250958604*^9, 
   3.8292432556948957`*^9}},ExpressionUUID->"945a2740-f791-4fb5-9939-\
ca9e6b617005"],

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[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", 
        RowBox[{"(*", "  ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], " ",
         "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", 
        RowBox[{"(*", " ", 
         RowBox[{",", " ", 
          RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
         "*)"}], "  ", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", 
        RowBox[{"(*", " ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], 
        "  ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", 
        RowBox[{"(*", " ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], " ",
         "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        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[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", 
        RowBox[{"(*", " ", 
         RowBox[{",", "  ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], " ",
         "]"}]}], ";", " ", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", 
        RowBox[{"(*", "  ", 
         RowBox[{",", " ", 
          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.821190467637084*^9, {3.821956688384391*^9, 3.821956692279579*^9}, {
   3.8219571720059843`*^9, 3.821957198965435*^9}, 3.8254380242816*^9, {
   3.8279995320599127`*^9, 3.8279995779537783`*^9}, {3.827999937819875*^9, 
   3.827999941322689*^9}, 3.828001540826448*^9, {3.828001890835115*^9, 
   3.8280018945699463`*^9}, 3.828002016970353*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"2cfffc9b-383c-40eb-9e6c-7a9fedbc2d22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "was", " ", "8.28", " ", "for", " ", "all", 
    " ", "but", " ", "Kretschamnn", " ", "and", " ", "Cotton"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2pt1\>\"", ",", " ", "metric2pt1", ",", " ", 
     "\"\<BondiSachs\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(BondiSachs\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.821190467637217*^9, {3.82195665454381*^9, 3.8219566726296263`*^9}, {
   3.821957157157518*^9, 3.821957161283506*^9}, {3.8219572054919*^9, 
   3.821957260814342*^9}, {3.825438024281766*^9, 3.8254380409388638`*^9}, 
   3.828001540826631*^9, {3.828001964306733*^9, 3.8280019784995337`*^9}, 
   3.828002016970519*^9, {3.8292424595716333`*^9, 3.829242464178648*^9}, {
   3.829242593504319*^9, 3.829242595927137*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"7b075670-43aa-4458-971e-8c1fe266cf9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.430801`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.828001952769446*^9, 3.8280020169706297`*^9, 
  3.829242588066966*^9, 3.857293962406025*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"36f7e1ee-fe02-41e1-a0e7-8585fee60b28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825437886724407*^9, 3.825437890331232*^9}, 
   3.825438024282073*^9, 3.828001540826848*^9, 3.828002016970787*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"8388e949-4783-4591-bf9c-6eac69645c73"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "BondiSachs"], "\[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], ",", "\<\"kretschmannscalarmetric2pt1\"\>", ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", "\<\"cottonmetric2pt1\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.825437890693468*^9, 3.825438024282483*^9, 
  3.827999750715589*^9, 3.828001540826936*^9, 3.828001847848399*^9, 
  3.828002016970881*^9, 3.8292425881560907`*^9, 3.8572939624787493`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"c9436b1c-af9a-43c6-b082-a70b3614dd25"]
}, Open  ]],

Cell[CellGroupData[{

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.825438024282819*^9, 
   3.8280015408270597`*^9, 3.828002016971087*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"31048e03-2dba-44cb-8f37-bea120409a7c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "BondiSachs"], "\[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.825437924927024*^9, 
  3.825438024283008*^9, 3.827999750729175*^9, 3.828001540827145*^9, 
  3.828001847916933*^9, 3.8280020169711857`*^9, 3.829242588172329*^9, 
  3.857293962488783*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"061c98b6-cdc5-4c57-90f4-62d93bbe7bd8"],

Cell[BoxData["\<\"BondiSachs\"\>"], "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.825437924927024*^9, 
  3.825438024283008*^9, 3.827999750729175*^9, 3.828001540827145*^9, 
  3.828001847916933*^9, 3.8280020169711857`*^9, 3.829242588172329*^9, 
  3.857293962491177*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"1f54e96c-4413-4c1d-9d1f-4ca095dbfe61"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "r"], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
         SuperscriptBox[
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}]}], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], "0", "0", "0"},
      {
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], ")"}]}], 
       "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "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.825437924927024*^9, 
  3.825438024283008*^9, 3.827999750729175*^9, 3.828001540827145*^9, 
  3.828001847916933*^9, 3.8280020169711857`*^9, 3.829242588172329*^9, 
  3.857293962508861*^9},
 CellLabel->
  "Out[34]//TraditionalForm=",ExpressionUUID->"e6a0069d-726a-435e-9c95-\
b0b2eb9da669"]
}, Open  ]],

Cell[CellGroupData[{

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.825438024283494*^9, 
   3.828001540827433*^9, 3.828002016971465*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"242a19f4-8924-4c52-971c-3dfe03a4d7ae"],

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.8254379285757732`*^9, 3.8254380242835827`*^9, 
   3.8279997508022623`*^9, 3.82800154082752*^9, 3.828001848101307*^9, 
   3.828002016971549*^9, 3.829242588234982*^9, 3.857293962521184*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"b65eb8e9-914a-4b76-a778-a3953840c9cf"],

Cell[BoxData["\<\"ChristoffelSymbolBondiSachs\"\>"], "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.8254379285757732`*^9, 3.8254380242835827`*^9, 
   3.8279997508022623`*^9, 3.82800154082752*^9, 3.828001848101307*^9, 
   3.828002016971549*^9, 3.829242588234982*^9, 3.857293962523018*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"0dc33e24-ba65-4d15-9059-c60526df09cd"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
                
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                SuperscriptBox["r", "2"]], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", "r", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], 
               "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "r"], "-", 
               FractionBox[
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "r"]}], ")"}]}]},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"-", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                 ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", "r", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]},
           {"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"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"-", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                 ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", "r", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"2", " ", "r", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
              ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "r", " ", 
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
               
               RowBox[{"2", " ", 
                SuperscriptBox["r", "2"], " ", 
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 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"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    SuperscriptBox["r", "2"]], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], 
                    "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"], "-", 
                    FractionBox[
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}], "r"]}], "+", 
               
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "r"], "+", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                   " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"], "-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   SuperscriptBox["r", "2"]], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], 
                  "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"], "+", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"], "+", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                    ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                  ")"}]}], "r"]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   SuperscriptBox["r", "2"]], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], 
                  "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"], "+", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}]}], ")"}]}]},
           {
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                 ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"], "+", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                    ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                  ")"}]}], "r"]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                 ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                  ")"}]}], "r"]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], "-", 
                   
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
                   RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "r"]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                   " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   SuperscriptBox["r", "2"]], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], 
                  "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"], "-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], 
                    " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"], "-", 
                   FractionBox[
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "r"]}], ")"}]}], 
                SuperscriptBox["r", "2"]]}], ")"}]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"-", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                    ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"-", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                    ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", "r", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                 ")"}]}], "+", 
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}]}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
                    RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None]}]}], ")"}]}], 
                SuperscriptBox["r", "2"]]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
                  RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
                  RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
                ")"}]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.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.8254379285757732`*^9, 3.8254380242835827`*^9, 
   3.8279997508022623`*^9, 3.82800154082752*^9, 3.828001848101307*^9, 
   3.828002016971549*^9, 3.829242588234982*^9, 3.8572939633270283`*^9},
 CellLabel->
  "Out[37]//TraditionalForm=",ExpressionUUID->"44a915a9-61a6-46fe-8381-\
14610c305523"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   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.825438024283964*^9, 
   3.82800154082778*^9, 3.828002016971785*^9, {3.8572938428922253`*^9, 
   3.857293845667438*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"3ccb3b20-544d-47cb-9353-478aa8edfe2f"],

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.8254379323249187`*^9, 
  3.825438024284049*^9, 3.827999751995634*^9, 3.828001540827866*^9, 
  3.828001850836022*^9, 3.828002016971861*^9, 3.829242589225711*^9, 
  3.8572939633735113`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"7fb84c6d-5fcd-4e49-9599-cb71e7f6c5f4"],

Cell[BoxData["\<\"RiemannTensorBondiSachs\"\>"], "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.8254379323249187`*^9, 
  3.825438024284049*^9, 3.827999751995634*^9, 3.828001540827866*^9, 
  3.828001850836022*^9, 3.828002016971861*^9, 3.829242589225711*^9, 
  3.857293963375058*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"69e405a1-968d-4745-a8ae-c55df2684f9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   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.825438024284446*^9, 
   3.8280015408281603`*^9, 3.828002016972093*^9, {3.8572938546756907`*^9, 
   3.8572938577713203`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"99e54dfb-1d6a-4991-9f5d-6aad541de7ac"],

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.8254379428973703`*^9, 
  3.8254380242845297`*^9, 3.82799975810264*^9, 3.828001540828246*^9, 
  3.828001856604451*^9, 3.828002016972164*^9, 3.829242595903067*^9, 
  3.857293963390129*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"03e60b81-fbfe-4fa4-9903-751f9855631b"],

Cell[BoxData["\<\"RicciTensorBondiSachs\"\>"], "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.8254379428973703`*^9, 
  3.8254380242845297`*^9, 3.82799975810264*^9, 3.828001540828246*^9, 
  3.828001856604451*^9, 3.828002016972164*^9, 3.829242595903067*^9, 
  3.857293963392511*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"061a1d9e-7988-40ad-a756-7906d70d11c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], 
     " ", "//", " ", "Simplify"}], "  ", "//", " ", "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.825438024284927*^9, {
   3.827999955234695*^9, 3.8279999609528112`*^9}, 3.828001540828557*^9, 
   3.8280020169724197`*^9, {3.857293868611409*^9, 3.8572938748193817`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"150a4562-2dc6-41f5-878b-04b55a369d56"],

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.825437946797752*^9, 
  3.8254380242850103`*^9, 3.827999759132449*^9, 3.827999961421006*^9, 
  3.828001540828651*^9, 3.828001857288533*^9, 3.8280020169724913`*^9, 
  3.829242597078807*^9, 3.8572939634013557`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"da7b598d-72ca-40d1-87e1-0274eb6e0a9c"],

Cell[BoxData["\<\"RicciScalarBondiSachs\"\>"], "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.825437946797752*^9, 
  3.8254380242850103`*^9, 3.827999759132449*^9, 3.827999961421006*^9, 
  3.828001540828651*^9, 3.828001857288533*^9, 3.8280020169724913`*^9, 
  3.829242597078807*^9, 3.857293963402938*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"7c047239-ed4f-4876-b49e-65dd7a7a6555"]
}, Open  ]],

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.825437950602826*^9, 
   3.825437955058043*^9}, 3.82543802428553*^9, 3.828001540829035*^9, 
   3.828002016972736*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"d7d1d10e-8891-4828-8ec3-a8605377e866"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   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.8254380242856503`*^9, 3.8280015408293047`*^9, 
   3.828002016972844*^9, {3.8572938836515636`*^9, 3.8572938864589767`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"772c0f88-1ac7-4090-8bee-605a01ef8ff7"],

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.825437958877653*^9, 3.825438024285735*^9, 
   3.827999759715871*^9, 3.828001540829414*^9, 3.828001863462866*^9, 
   3.82800201697292*^9, 3.8292426031394053`*^9, 3.8572939634514503`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"34d6e399-59bf-4a1a-aad2-bebbae966cbb"],

Cell[BoxData["\<\"EinsteinTensorBondiSachs\"\>"], "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.825437958877653*^9, 3.825438024285735*^9, 
   3.827999759715871*^9, 3.828001540829414*^9, 3.828001863462866*^9, 
   3.82800201697292*^9, 3.8292426031394053`*^9, 3.857293963452993*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"812fd885-350b-4d27-a17a-4c4a3711decb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "The", " ", "output", " ", "of", " ", "this", " ", "is", " ", "huge"}], 
     "..."}], " ", "uncommment", " ", "only", " ", "if", " ", "necessary"}], 
   " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], " ", "\[IndentingNewLine]", 
   RowBox[{"TensorName", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    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.8254379700750237`*^9, 3.825437975569846*^9}, 
   3.825438024286244*^9, {3.827999982186173*^9, 3.8279999872672*^9}, {
   3.82800003364283*^9, 3.8280000654353113`*^9}, 3.8280015408297367`*^9, 
   3.828002016973031*^9, {3.857293894094006*^9, 3.857293904683483*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"af612c03-cee9-40eb-943c-23e60d61767c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8572939634624567`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"aac28872-841d-4665-b2bb-4438ef20476d"],

Cell[BoxData["\<\"WeylTensorBondiSachs\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.857293963464069*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"6d1ceb7c-ac83-4ac9-9f00-18ac422b6bf7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  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.8254379796989517`*^9, 3.825437984545944*^9}, 
   3.825438024286582*^9, 3.828001540830106*^9, 3.828002016973134*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"b5fcc3e9-3944-41cc-8c71-cd699902f8bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Group These Later (NOT FINISHED)", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8561018652202597`*^9, 
  3.8561018839237823`*^9}},ExpressionUUID->"cac6a9d4-1265-4337-8702-\
f9b31c53b3ac"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt3a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Not", " ", "numbered", " ", "in", " ", "paper"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt3a", " ", "=", "  ", "\[IndentingNewLine]", 
  RowBox[{"PowerExpand", "[", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "*", 
     RowBox[{"Det", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82924319471334*^9, 3.829243286459168*^9}, 
   3.856101872329811*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"febe7049-3635-40e9-a76e-7bf81d0afd73"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"2", " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], " ", 
  SuperscriptBox["r", "2"], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8292431981527033`*^9, 3.829243247916361*^9}, 
   3.8292432875741053`*^9, 3.85610187233016*^9, 3.8572939634855747`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"23e810e1-4715-466d-b89b-4ec6c1095243"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt3", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "[", 
      RowBox[{
       RowBox[{"-", "u"}], ",", 
       RowBox[{"-", "\[Phi]"}]}], "]"}], " ", ",", " ", "\n", "        ", 
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "[", 
      RowBox[{
       RowBox[{"-", "r"}], ",", 
       RowBox[{"-", "\[Phi]"}]}], "]"}], " ", ",", " ", "\n", "        ", 
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "[", 
      RowBox[{
       RowBox[{"-", "\[Theta]"}], ",", 
       RowBox[{"-", "\[Phi]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt3", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829242618033144*^9, 3.8292426370483217`*^9}, {
   3.829242670250249*^9, 3.8292426923954678`*^9}, {3.829242728747493*^9, 
   3.829242758233996*^9}, 3.8561018723304243`*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"7ced213c-ad8b-475b-98ba-0eb16b5d67fb"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {"0"},
      {"0"},
      {"0"}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829242751444476*^9, 3.856101872330743*^9, 
  3.8572939636628313`*^9},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"cf59f3cb-ae4f-4d2e-b799-\
09dc540be430"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "4", "]"}], "]"}], "[", 
     RowBox[{
      RowBox[{"-", "r"}], ",", 
      RowBox[{"-", "r"}]}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ",
    "Simplify"}], "  ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829242764306943*^9, 3.829242793961331*^9}, 
   3.856101872331017*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"9fb2432a-4f3d-45c5-a2ff-cabd72d59c97"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "r"], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None], ")"}], "2"]}]}], TraditionalForm]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829242770767626*^9, 3.829242794454481*^9}, 
   3.8561018723313217`*^9, 3.857293963735165*^9},
 CellLabel->
  "Out[55]//TraditionalForm=",ExpressionUUID->"c59019aa-a6e9-4155-b3d2-\
29462b6b21a6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "4", "]"}], "]"}], "[", 
     RowBox[{
      RowBox[{"-", "r"}], ",", 
      RowBox[{"-", "\[Theta]"}]}], "]"}], " ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify"}], "  ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8292428408870583`*^9, 3.8292428431824093`*^9}, 
   3.856101872331609*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"1e2656b7-2d57-48bf-8994-75e59a48bb0e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[Beta]", "(", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "\[Theta]"}]}],
     MultilineFunction->None]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "\[Theta]"}]}],
    MultilineFunction->None], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"\[Gamma]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"U", "(", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["r", "2"]}],
     MultilineFunction->None]}], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "\[Theta]"}],
      MultilineFunction->None]}], "r"], "+", 
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Gamma]", "(", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Theta]"}],
       MultilineFunction->None]}], ")"}]}], "-", 
   RowBox[{"r", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"\[Gamma]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"U", "(", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"r", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"r", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "-", "2"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829242845230061*^9, 3.856101872331911*^9, 
  3.857293965278161*^9},
 CellLabel->
  "Out[56]//TraditionalForm=",ExpressionUUID->"64b14c78-07cf-4e72-88c3-\
fd8a1f8dd33d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "4", "]"}], "]"}], "[", 
     RowBox[{
      RowBox[{"-", "\[Theta]"}], ",", 
      RowBox[{"-", "\[Phi]"}]}], "]"}], " ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify"}], "  ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829242850703019*^9, 3.829242859189849*^9}, 
   3.856101872332182*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"9d494c6b-4a28-4d8d-b71c-baf27b46937b"],

Cell[BoxData[
 FormBox["0", TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829242852566533*^9, 3.829242859756956*^9}, 
   3.856101872332478*^9, 3.857293965369124*^9},
 CellLabel->
  "Out[57]//TraditionalForm=",ExpressionUUID->"c0556d91-4a28-4ea7-95f7-\
9892d2952717"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "4", "]"}], "]"}], "[", 
     RowBox[{
      RowBox[{"-", "u"}], ",", 
      RowBox[{"-", "r"}]}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ",
    "Simplify"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8292428685211887`*^9, 3.829242888991186*^9}, 
   3.8561018723327436`*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"dfac3c63-2943-44d3-8321-8ff2f2441c8d"],

Cell[BoxData[
 FormBox[
  RowBox[{"-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "r"}]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "\[Theta]"}]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "\[Theta]"}]}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "\[Theta]"}]}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"r", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["\[Theta]", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Theta]"}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", "r", " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
      RowBox[{"2", " ", "r", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82924287173028*^9, 3.829242879693151*^9}, 
   3.829242912907319*^9, 3.856101872333034*^9, 3.857293987603158*^9},
 CellLabel->
  "Out[58]//TraditionalForm=",ExpressionUUID->"80335807-f51e-4b93-85f5-\
94eed8bc9078"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "4", "]"}], "]"}], "[", 
     RowBox[{
      RowBox[{"-", "u"}], ",", 
      RowBox[{"-", "u"}]}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ",
    "Simplify"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829242921687068*^9, 3.829242936869812*^9}, 
   3.856101872333312*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"43d67e0d-f8e9-4535-991e-da2f532a3b5f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "3"]}]], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
         RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"], " ", 
       SuperscriptBox["r", "4"]}], "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "+", "3"}], ")"}], " ", "r"}], "-", 
         
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             SuperscriptBox["r", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox["r", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], " ", 
       
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       "r"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], "+", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "3"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "3"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
             RowBox[{"4", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", "1"}], ")"}], " ", "r"}], "-", 
         
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"6", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"6", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"4", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"6", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"6", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292429276060667`*^9, 3.829242987242016*^9, 
  3.85610187233363*^9, 3.857294040491397*^9},
 CellLabel->
  "Out[59]//TraditionalForm=",ExpressionUUID->"efe5349b-9524-4776-8b10-\
19724b35de30"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4pt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq4pt2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"y", " ", "\[Equal]", " ", 
   RowBox[{"{", 
    RowBox[{"V", ",", "U", ",", "\[Beta]", ",", "\[Gamma]"}], 
    "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243480574441*^9, 3.829243502454259*^9}, 
   3.856101872333967*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"a62a3ff4-32d4-4427-9ac2-956bd17579c0"],

Cell[BoxData[
 RowBox[{"y", "\[Equal]", 
  RowBox[{"{", 
   RowBox[{"V", ",", "U", ",", "\[Beta]", ",", "\[Gamma]"}], 
   "}"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292435034559317`*^9, 3.85610187233431*^9, 
  3.857294040526705*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"d39f6510-2b05-48ff-b788-b6a161065a11"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "X", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Spacetime", " ", "indices", " ", "run", " ", "0"}], "-", "3"}], 
    ",", " ", 
    RowBox[{
     RowBox[{"list", " ", "indices", " ", "run", " ", "1"}], "-", 
     RowBox[{"4", " ", "thus", " ", "offset", " ", "by", " ", "one"}]}]}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"a_", ",", "b_", ",", "A_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"D", "[", " ", 
   RowBox[{
    RowBox[{"inverse2pt1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"a", "+", "1"}], ",", 
       RowBox[{"b", "+", "1"}]}], "]"}], "]"}], " ", ",", " ", 
    RowBox[{"eq4pt2", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"A", "+", "1"}]}], "]"}], "]"}]}], " ", "]"}], " "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82924350649506*^9, 3.829243607496714*^9}, 
   3.856101872334597*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"b59931bd-f27d-4ebe-ae9f-e2a1c436f881"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "1", ",", "0"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "1", ",", "0"}], "]"}], " ", "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243540974527*^9, 3.8292435424688177`*^9}, {
   3.82924358442104*^9, 3.82924358698925*^9}, {3.829243928868869*^9, 
   3.82924393990863*^9}, 3.8561018723348703`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"e8e49a5c-b83a-48ef-9b28-10708a301993"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Beta]"}]], "r"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243587320887*^9, 3.82924361006852*^9}, {
   3.829243930678569*^9, 3.829243940528837*^9}, 3.829244026445299*^9, 
   3.856101872335183*^9, 3.857294040553628*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"3b90107c-309b-4e87-a07d-9417e278e92c"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{"\[Beta]", "[", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], "r"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243587320887*^9, 3.82924361006852*^9}, {
   3.829243930678569*^9, 3.829243940528837*^9}, 3.829244026445299*^9, 
   3.856101872335183*^9, 3.857294040555799*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"26a7460a-70da-4b58-83e8-400d8ff4f778"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"1", ",", "2", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "2", ",", "1"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8292436241884212`*^9, 3.8292436379399357`*^9}, {
   3.829243945221836*^9, 3.829243946017838*^9}, 3.829243991865797*^9, 
   3.856101872335722*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"4a8ecb7d-75fc-4ed7-8b82-e4079a0baf1e"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[Beta]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243624705091*^9, 3.8292436384789457`*^9}, 
   3.829244026486546*^9, 3.856101872336001*^9, 3.8572940405662107`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"76bd89f5-02a2-4954-9dd0-a0eb38770f4e"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   RowBox[{"\[Beta]", "[", 
    RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243624705091*^9, 3.8292436384789457`*^9}, 
   3.829244026486546*^9, 3.856101872336001*^9, 3.85729404056802*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"87af4e74-158d-41db-85df-cd1b502e04c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"2", ",", "1", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"2", ",", "1", ",", "1"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243643379848*^9, 3.829243646795869*^9}, {
   3.8292439495104218`*^9, 3.829243950761119*^9}, 3.829243994104577*^9, 
   3.856101872336434*^9},
 CellLabel->"In[68]:=",ExpressionUUID->"eddc4eae-5651-45be-af28-ccc8de5c30a8"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "\[Beta]"}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243647880333*^9, 3.829244026500237*^9, 
  3.8561018723366327`*^9, 3.857294040586978*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"3362f610-ede4-473b-a09c-47d31bfecf76"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   RowBox[{"\[Beta]", "[", 
    RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243647880333*^9, 3.829244026500237*^9, 
  3.8561018723366327`*^9, 3.857294040588808*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"c890584f-7c11-4715-9040-a83dcd24c58f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"0", ",", "1", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"0", ",", "1", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243651116235*^9, 3.82924365567542*^9}, {
   3.8292439544467087`*^9, 3.829243955073056*^9}, 3.829243996130303*^9, 
   3.856101872336956*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"2abf30a7-6077-4dd4-86a5-58affddd0661"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Beta]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243655931632*^9, 3.829244026529236*^9, 
  3.856101872337242*^9, 3.8572940405990047`*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"27709bcc-520e-4d00-b78a-546074923221"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243655931632*^9, 3.829244026529236*^9, 
  3.856101872337242*^9, 3.857294040601*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"4c2b5cc1-4fbe-4f15-8cbd-4f13dfdc88d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"1", ",", "0", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "0", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243661588476*^9, 3.829243663499733*^9}, {
   3.82924395869431*^9, 3.829243959169037*^9}, 3.829243998258087*^9, 
   3.8561018723376093`*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"fc9a872e-49e6-45ec-9a33-50a6a36a7c92"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Beta]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292436637724943`*^9, 3.829244026542054*^9, 
  3.856101872337782*^9, 3.857294040618429*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"b3fd4843-3659-4c2a-840a-402b629fd9f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292436637724943`*^9, 3.829244026542054*^9, 
  3.856101872337782*^9, 3.8572940406202917`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"7e6f8a36-d148-4d8b-bb07-0ea666331775"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"0", ",", "1", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"0", ",", "1", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243667756722*^9, 3.829243672234911*^9}, {
   3.829243962935705*^9, 3.829243963648038*^9}, 3.829244000393775*^9, 
   3.8561018723380938`*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"f6c35700-7143-4407-9079-3aaaae0c783c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Beta]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.82924367253578*^9, 3.8292440265656033`*^9, 
  3.8561018723382587`*^9, 3.857294040630336*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"4d022afb-f884-4b83-83c3-d2ebcd2dc61f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.82924367253578*^9, 3.8292440265656033`*^9, 
  3.8561018723382587`*^9, 3.8572940406323833`*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"69bf449f-a2d1-411c-80d9-db63301dc8ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"1", ",", "0", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "0", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8292436757483807`*^9, 3.829243680611196*^9}, {
   3.829243967917741*^9, 3.8292439686398478`*^9}, 3.829244002499447*^9, 
   3.856101872338561*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"7df1db99-fa16-41d5-9ee8-d4b40ca68229"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Beta]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243680976527*^9, 3.8292440265794277`*^9, 
  3.856101872338731*^9, 3.85729404065063*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"a89b3e9e-3bfd-4fb7-9bba-6b79de32da47"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243680976527*^9, 3.8292440265794277`*^9, 
  3.856101872338731*^9, 3.857294040652987*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"8da18fd9-5352-434f-ab10-e753333cd0e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"1", ",", "1", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "1", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243684500457*^9, 3.829243687052465*^9}, {
   3.829243972269373*^9, 3.829243972984425*^9}, 3.829244004762177*^9, 
   3.856101872339171*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"b13b062a-b655-42b2-9b69-58890c7e5010"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Beta]"}]], " ", "V"}], "r"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292436877902184`*^9, 3.829244026601788*^9, 
  3.8561018723393393`*^9, 3.8572940406646433`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"84d341a9-16c8-49e0-b0b5-95b217a177a4"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{"\[Beta]", "[", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], " ", 
   RowBox[{"V", "[", 
    RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], "r"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292436877902184`*^9, 3.829244026601788*^9, 
  3.8561018723393393`*^9, 3.857294040666799*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"7d808241-d97c-40ac-9150-dc1f28d16868"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"1", ",", "2", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"1", ",", "2", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243691708061*^9, 3.829243694547749*^9}, {
   3.829243976541422*^9, 3.829244006889914*^9}, 3.856101872339631*^9},
 CellLabel->"In[80]:=",ExpressionUUID->"67f7de8a-ffdf-45f9-b2f9-5858ca79bf3d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Beta]"}]], " ", "U"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243695487743*^9, 3.829244026615796*^9, 
  3.8561018723397913`*^9, 3.8572940406841297`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"0edaf5aa-6b32-477d-a53c-23654b16a45a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], " ", 
  RowBox[{"U", "[", 
   RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243695487743*^9, 3.829244026615796*^9, 
  3.8561018723397913`*^9, 3.8572940406860943`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"291f13a1-d033-4667-a260-752b3dde2a2a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"2", ",", "1", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"2", ",", "1", ",", "2"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243697965332*^9, 3.829243701067444*^9}, {
   3.8292439809263353`*^9, 3.829244008914427*^9}, 3.8561018723400927`*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"8e399e96-b244-4d17-9d3d-316e697d3585"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Beta]"}]], " ", "U"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243701750218*^9, 3.829244026638814*^9, 
  3.856101872340254*^9, 3.857294040696981*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"1bb36b02-ecdd-4943-a34e-246b51d49531"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    RowBox[{"\[Beta]", "[", 
     RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], " ", 
  RowBox[{"U", "[", 
   RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243701750218*^9, 3.829244026638814*^9, 
  3.856101872340254*^9, 3.8572940406991177`*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"6ce52c0b-aaff-4f21-858d-5fd9afa36842"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"2", ",", "2", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"2", ",", "2", ",", "3"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829243704156225*^9, 3.829243706475313*^9}, {
   3.829243985077804*^9, 3.829244011305739*^9}, 3.856101872340543*^9},
 CellLabel->"In[84]:=",ExpressionUUID->"852cb195-7943-44d2-9d52-8226187b4cd5"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Gamma]"}]]}], 
  SuperscriptBox["r", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243706868536*^9, 3.829244026652835*^9, 
  3.8561018723407*^9, 3.85729404071747*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"8441fd04-4fce-40af-a424-b8e365bf13cd"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{"\[Gamma]", "[", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]]}], 
  SuperscriptBox["r", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.829243706868536*^9, 3.829244026652835*^9, 
  3.8561018723407*^9, 3.8572940407199783`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"e772c71b-a01a-4e2a-98c6-ba6b4b44b556"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"X", "[", 
  RowBox[{"3", ",", "3", ",", "3"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"3", ",", "3", ",", "3"}], "]"}], "/.", " ", "eq2pt1a", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8292437087964783`*^9, 3.829243711963908*^9}, {
   3.829244013561729*^9, 3.8292440197838593`*^9}, 3.8561018723410387`*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"317b799c-391a-400a-896f-4836c47aa757"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"2", " ", "\[Gamma]"}]], " ", 
    SuperscriptBox[
     RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], 
   SuperscriptBox["r", "2"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292437123889*^9, 3.8292440266802464`*^9, 
  3.856101872341199*^9, 3.857294040731719*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"c97ce0d7-db59-4adb-aa30-e749d9039997"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"2", " ", 
      RowBox[{"\[Gamma]", "[", 
       RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}]], " ", 
    SuperscriptBox[
     RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"]}], 
   SuperscriptBox["r", "2"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8292437123889*^9, 3.8292440266802464`*^9, 
  3.856101872341199*^9, 3.8572940407340527`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"51e52bf3-79d3-4e36-87fe-cf222c71479c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Derivation of Vacuum Field Equations  (These Have Not Been Grouped Properly \
Yet)\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855773448192749*^9, 3.8557734613620567`*^9}, {
  3.857295726288741*^9, 
  3.857295735488801*^9}},ExpressionUUID->"96ca63e5-8ffb-4051-98a4-\
7e1f57f76738"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"DeleteDuplicates", "[", 
      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", "]"}]}], "]"}], "]"}], "  ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8550804551055307`*^9, 3.855080461809052*^9}, 
   3.855773453961225*^9, {3.857293936883938*^9, 3.8572939404677773`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"e446d589-620d-401e-878d-6dc32d995631"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"], " ", 
            SuperscriptBox["r", "4"]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    ")"}]}]], " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], 
            " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "3"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                  SuperscriptBox["r", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", "r"}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "\[Theta]"}]}],
                   MultilineFunction->None], " ", "r"}], "-", 
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], 
            " ", "r"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", "r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], ")"}]}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "2"]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                  RowBox[{"4", " ", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"6", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"6", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}], " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "3"]}]]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "r"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "3"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Theta]", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}]]}]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"3", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "2"]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], 
            " ", 
            SuperscriptBox["r", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], ")"}], " ", "r"}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"]}]]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "r"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "\[Theta]"}]}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Theta]"}]}],
         MultilineFunction->None], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "r"], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], ")"}]}], "-", 
        RowBox[{"r", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "-", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "-", "2"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "r"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "\[Theta]"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], ")"}], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Theta]", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"4", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"6", " ", 
           RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Theta]", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "r"}]}],
             MultilineFunction->None]}]}], "-", 
          RowBox[{"r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "r", " ", 
              RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "\[Theta]"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "-", 
             RowBox[{"3", " ", 
              RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Theta]", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"3", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"cos", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"r", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.857294061741633*^9},
 CellLabel->
  "Out[90]//TraditionalForm=",ExpressionUUID->"5cd17f56-ade9-4623-93f5-\
c077e02ce200"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"DeleteDuplicates", "[", 
      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", "]"}]}], "]"}], "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8550804645210114`*^9, 3.855080470568581*^9}, 
   3.855773453961347*^9, {3.857293943062448*^9, 3.857293947219798*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"aafd3eef-4c0f-43f0-94fb-5fc0bcbbaac0"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"8", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"], " ", 
            SuperscriptBox["r", "4"]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"12", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "2"]}], "-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], 
            " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "4"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "3"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}], " ", 
                  SuperscriptBox["r", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", "r"}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", "r"}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None], " ", "r"}], "-", 
                 RowBox[{"7", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], 
            " ", "r"}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", "r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], ")"}]}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], ")"}], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "2"]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                  RowBox[{"4", " ", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "7"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
               
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"12", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"6", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}]}], ")"}], " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "3"]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "\[Theta]"}]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"2", " ", "r", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"2", " ", "r", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "\[Theta]"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"2", " ", "r", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "2"}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["r", "3"], " ", 
               RowBox[{"(", 
                RowBox[{"-", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], 
                ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", "r", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"4", " ", "r", " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], ")"}], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None]}], "-", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]}], "+", 
           RowBox[{"12", " ", 
            RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"4", " ", 
            RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]}], "+", 
           RowBox[{"8", " ", "r", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]}], "-", 
           RowBox[{"4", " ", "r", " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "+", 
           RowBox[{"8", " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "8"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
            SuperscriptBox["r", "3"]}], "+", 
           RowBox[{
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               SuperscriptBox["r", "4"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"12", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    ")"}]}]], " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  SuperscriptBox["r", "2"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"4", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "\[Theta]"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"4", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], 
            " ", 
            SuperscriptBox["r", "2"]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None], " ", 
               SuperscriptBox["r", "3"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", "r"}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None], " ", "r"}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"U", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}]}], ")"}], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
              "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], ")"}], " ", "r"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"4", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"]}]]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "r"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "\[Theta]"}]}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Theta]"}]}],
         MultilineFunction->None], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["r", "2"]}],
          MultilineFunction->None]}], "+", 
        FractionBox[
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "r"], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], ")"}]}], "-", 
        RowBox[{"r", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "-", 
           RowBox[{"r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "-", "2"}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "+", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}]}], "-", 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "4"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"8", " ", "r", " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "\[Theta]"}]}],
                MultilineFunction->None]}]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "\[Theta]"}]}],
               MultilineFunction->None]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "-", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"4", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                  ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], "-", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"8", " ", 
              RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}]}], 
            ")"}]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "4"]}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"8", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "r"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "r"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "\[Theta]"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 ")"}]}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"U", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["\[Theta]", "2"]}],
            MultilineFunction->None]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"8", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"U", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"8", " ", "r", " ", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "\[Theta]"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"4", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
           " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.857294163418964*^9},
 CellLabel->
  "Out[93]//TraditionalForm=",ExpressionUUID->"46a15392-7380-4dfb-9a9a-\
2ee37ba13a4a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"nonzeroEinstein", " ", "[", 
         RowBox[{"[", "4", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", " ", 
       RowBox[{
        SuperscriptBox["\[Beta]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], " ", "]"}], " ", 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
   RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellChangeTimes->{{3.8572945706171*^9, 3.8572946015791397`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"d52e8f87-d418-4f3b-918b-5a327780b122"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "2"], " ", "r", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None], ")"}], "2"]}]}], TraditionalForm]], "Output",\

 CellChangeTimes->{{3.857294571705613*^9, 3.8572946019047003`*^9}},
 CellLabel->
  "Out[98]//TraditionalForm=",ExpressionUUID->"11f38e9b-bdff-465d-a44b-\
c72ba3aba6b6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroEinstein", " ", "[", 
          RowBox[{"[", "5", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        RowBox[{
         SuperscriptBox["U", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}], " ", "//", " ", "Expand"}], " ", "//",
   " ", "pdConv"}]], "Input",
 CellChangeTimes->{{3.857294619145029*^9, 3.857294658069356*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"4d08c0f7-250f-4c21-9b76-8d6997da5720"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"U", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["r", "2"]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"\[Beta]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{
        RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
        RowBox[{"\[PartialD]", "\[Theta]"}]}],
       MultilineFunction->None]}], 
     SuperscriptBox["r", "2"]], "-", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{
        RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
        RowBox[{"\[PartialD]", "\[Theta]"}]}],
       MultilineFunction->None]}], 
     SuperscriptBox["r", "2"]], "-", 
    FractionBox[
     RowBox[{"4", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Beta]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Theta]"}],
       MultilineFunction->None]}], 
     SuperscriptBox["r", "3"]], "+", 
    FractionBox[
     RowBox[{"4", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "\[Theta]"}],
       MultilineFunction->None]}], 
     SuperscriptBox["r", "2"]], "-", 
    FractionBox[
     RowBox[{"4", " ", 
      RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Gamma]", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None]}], 
     SuperscriptBox["r", "2"]], "+", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "-", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Gamma]", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "-", 
    FractionBox[
     RowBox[{"4", " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None]}], "r"]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.857294619683435*^9, 3.857294658452218*^9}},
 CellLabel->
  "Out[102]//TraditionalForm=",ExpressionUUID->"78fe2ad9-e06c-45cb-b67d-\
4b44565921fd"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "betaGammaURderivatives", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"betaGammaURderivatives", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroEinstein", " ", "[", 
              RowBox[{"[", "6", "]"}], "]"}], " ", "==", " ", "0"}], ",", 
            RowBox[{
             RowBox[{"nonzeroEinstein", " ", "[", 
              RowBox[{"[", "7", "]"}], "]"}], " ", "==", " ", "0"}]}], " ", 
           "}"}], "  ", ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Beta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["\[Gamma]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], "}"}]}], " ", 
         "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
      "Simplify"}], "  ", ")"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", ";"}]}], "Input",
 CellChangeTimes->{{3.8572948256603518`*^9, 3.8572948395246677`*^9}, {
  3.8572948908019876`*^9, 3.857295004716515*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"755e6ea2-2b6f-4ddc-a681-096306a42e3f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2betadudr", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2betadudr", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"betaGammaURderivatives", " ", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2betadudr", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.857294979132115*^9, 3.85729502768382*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"459bbc7e-55ef-49bf-9a9e-e580056989ba"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "r"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{"-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Theta]"}]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "\[Theta]"}]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None]}]}], ")"}]}], "-", 
          RowBox[{"cot", "(", "\[Theta]", ")"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "u"}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"r", " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["\[Theta]", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "\[Theta]"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", "r", " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.857294979970245*^9, 3.857295028345956*^9}},
 CellLabel->
  "Out[120]//TraditionalForm=",ExpressionUUID->"dcb7792c-4eef-4218-9632-\
4b1a2bb4258e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2gammadudr", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2gammadudr", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"betaGammaURderivatives", " ", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2gammadudr", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.857294984364032*^9, 3.8572949919816713`*^9}, {
  3.857295030843986*^9, 3.857295045563753*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"af63e6f9-b291-4094-92df-c61ea7165cc3"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "r"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"8", " ", 
      SuperscriptBox["r", "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"U", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "\[Theta]"}]}],
         MultilineFunction->None]}]}], "-", 
      RowBox[{"4", " ", "r", " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "r", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"cot", "(", "\[Theta]", ")"}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"U", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", "r", " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["r", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["\[Theta]", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "\[Theta]"}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"8", " ", "r", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], "-", 
      RowBox[{"4", " ", "r", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"U", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "\[Theta]"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", "r", " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.857294985193054*^9, 3.857295009482634*^9}, 
   3.85729504605687*^9},
 CellLabel->
  "Out[123]//TraditionalForm=",ExpressionUUID->"50bbe784-5d66-46ea-b667-\
85e90616ef09"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", "gammaBetaUrThetaDerivatives", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gammaBetaUrThetaDerivatives", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"nonzeroRicci", "[", 
              RowBox[{"[", "1", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
            RowBox[{
             RowBox[{"nonzeroRicci", "[", 
              RowBox[{"[", "2", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
            RowBox[{
             RowBox[{"nonzeroRicci", "[", 
              RowBox[{"[", "3", "]"}], "]"}], " ", "==", " ", "0"}]}], " ", 
           "  ", "}"}], " ", ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Beta]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}], ",", " ", 
            RowBox[{
             SuperscriptBox["\[Gamma]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}], ",", 
            RowBox[{
             SuperscriptBox["U", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], "]"}]}], "}"}]}], " ", 
         "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
      "Simplify"}], "  ", ")"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", ";"}]}], "Input",
 CellChangeTimes->{{3.8572951052252693`*^9, 3.8572951683456497`*^9}, {
  3.857295207658901*^9, 3.857295303052761*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"703be2ae-3cb6-45d2-bbac-708103c9f0c6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2betadrdtheta", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2betadrdtheta", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"gammaBetaUrThetaDerivatives", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2betadrdtheta", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.857295586657085*^9, 3.85729560731478*^9}, 
   3.857295643884027*^9},ExpressionUUID->"f00c42f2-126f-4a0f-883d-\
f320e43f790b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "\[Theta]"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"], " ", 
       SuperscriptBox["r", "4"]}], "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", "1"}], ")"}], " ", "r"}], "-", 
         
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox["r", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"8", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cot", "(", "\[Theta]", ")"}], "-", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       "r"}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], "+", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "3"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "3"]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "-", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", "1"}], ")"}], " ", "r"}], "+", 
         
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"6", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"6", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"4", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", 
                 RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"6", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"6", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox["r", "5"], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.857295587554874*^9, 3.857295607888443*^9}},
 CellLabel->
  "Out[135]//TraditionalForm=",ExpressionUUID->"8767bc35-a2aa-4970-9f0f-\
0b25d99e8333"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2gammadrdtheta", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2gammadrdtheta", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"gammaBetaUrThetaDerivatives", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2gammadrdtheta", " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.857295636728891*^9, 3.8572956660589447`*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"35bc376a-b2ac-4bae-81e7-e5a14edcca2d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"\[Gamma]", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "\[Theta]"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
         RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "4"], " ", 
       SuperscriptBox["r", "6"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"U", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "+", "3"}], ")"}], " ", "r"}], "-", 
         
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["r", "2"]}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox["r", "5"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], " ", 
       
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"16", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"16", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"11", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox["r", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "+", 
            RowBox[{"3", " ", "r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], ")"}], "2"], " ", 
             SuperscriptBox["r", "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{"24", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "r"}]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "r"}]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"6", " ", "r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"8", " ", "r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", "3"}], ")"}], " ", "r"}], 
            "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], ")"}], "2"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]],
              " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"10", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox["r", "2"]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"4", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], ")"}], "2"], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], ")"}], "2"], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", "r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], ")"}], " ", 
             SuperscriptBox["r", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox["r", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], ")"}], 
       " ", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", "1"}], ")"}]}], "-", 
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "r"}]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}]}], ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
            "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", 
    
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox["r", "7"], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "4"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}]], " ", 
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.857295637699259*^9, 3.857295666502919*^9}},
 CellLabel->
  "Out[139]//TraditionalForm=",ExpressionUUID->"b9f45ae3-fb4f-47a4-ad3e-\
a6cfc1f99ad2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "d2Udrdtheta", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d2Udrdtheta", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"gammaBetaUrThetaDerivatives", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"d2Udrdtheta", "  ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.857295678386376*^9, 3.857295704707204*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"0d1ea9d7-8ec7-4905-96e2-b19f02e0a0b9"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"U", "(", 
      RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "\[Theta]"}]}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Gamma]", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox["r", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox["r", "2"], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"], " ", 
       SuperscriptBox["r", "5"]}], "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "r"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "4"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["\[Theta]", "2"]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"U", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], " ", "r"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", "r"}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]}], ")"}], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox["r", "3"]}], "+", 
      RowBox[{
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], "-", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", 
               RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], "+", 
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], ")"}]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "2"]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], ")"}], "2"], " ", 
             SuperscriptBox["r", "4"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cot", "(", "\[Theta]", ")"}], "+", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"4", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}]}], ")"}], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", "r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}], "+", "1"}], ")"}], " ", "r"}], 
            "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{"4", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], ")"}]}]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}]}], ")"}], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"U", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], ")"}], "2"], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], ")"}], "2"], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", "r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}], "-", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], ")"}], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None]}], "-", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                SuperscriptBox["r", "2"]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                RowBox[{"cot", "(", "\[Theta]", ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}], ")"}], 
       " ", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"U", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "r"}]}],
              MultilineFunction->None], " ", 
             SuperscriptBox["r", "3"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", "r"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None], " ", "r"}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", 
                    RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "2"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"U", "(", 
                   RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}],
                 MultilineFunction->None]}]}], ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", "r"}], 
            "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{
               RowBox[{"\[PartialD]", "r"}], "\[ThinSpace]", 
               RowBox[{"\[PartialD]", "\[Theta]"}]}],
              MultilineFunction->None]}]}], ")"}]}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", 
                RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], "-", "1"}], ")"}]}]}], ")"}]}]}], 
     ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Gamma]", "(", 
          RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]], " ", 
       SuperscriptBox["r", "7"], " ", 
       SuperscriptBox[
        RowBox[{"U", "(", 
         RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "3"]}], "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], "+", 
           RowBox[{"\[Gamma]", "(", 
            RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}], ")"}]}]], " ", 
       
       SuperscriptBox["r", "4"], " ", 
       RowBox[{"U", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}], " ", 
       RowBox[{"V", "(", 
        RowBox[{"u", ",", "r", ",", "\[Theta]"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.8572957050877934`*^9},
 CellLabel->
  "Out[144]//TraditionalForm=",ExpressionUUID->"c58e0cb7-9cb9-4efe-9d81-\
f384d5ac2d6c"]
}, Open  ]]
}, Closed]]
},
CellGrouping->Manual,
WindowSize->{1272, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (February 4, 2022)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"d9990146-60c8-4b1b-9aff-85a335a3b823"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2762, 39, 221, "Title",ExpressionUUID->"3bc5fb12-2506-4843-94e0-9f5969129f4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[3345, 63, 1571, 26, 94, "Author",ExpressionUUID->"a9d0621c-9a7a-405e-b928-0f0f45ca7ed4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[4953, 94, 228, 4, 69, "Section",ExpressionUUID->"b47a98bb-7b25-40a5-adb5-a8316fc374c2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[5206, 102, 438, 10, 63, "Input",ExpressionUUID->"bfff0a24-4c74-4775-b4a7-93062aae1147",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[5647, 114, 1496, 24, 70, "Output",ExpressionUUID->"ad1e8846-2381-48ad-9b40-362d9db42576",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[7192, 144, 744, 12, 55, "Section",ExpressionUUID->"ed46a2b5-13f2-48cf-9a71-7a27c2f3f23c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[CellGroupData[{
Cell[7961, 160, 518, 11, 63, "Input",ExpressionUUID->"41a989bf-4dc7-43a5-ac9b-b48e43512725",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8482, 173, 489, 10, 43, "Output",ExpressionUUID->"cf1de4ca-66ed-491a-93e0-f15c9fde605c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[8986, 186, 741, 17, 84, "Input",ExpressionUUID->"01484f15-39af-4149-8d9d-00d17c495d2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9730, 205, 395, 8, 43, "Output",ExpressionUUID->"d4255078-144f-4d8c-942a-fe5e1dede906",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[10162, 218, 251, 4, 55, "Section",ExpressionUUID->"8f576927-4555-4e05-bd06-9ccb242a3c34",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[CellGroupData[{
Cell[10438, 226, 1673, 46, 189, "Input",ExpressionUUID->"82385831-a289-4442-9b8f-e2f290289ad5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12114, 274, 1765, 29, 70, "Print",ExpressionUUID->"85f8c5e2-7fa5-4c86-95ac-8675beacb639",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13882, 305, 1788, 30, 70, "Print",ExpressionUUID->"1c05a3e8-78e1-47d5-8d77-18ef4f1fcf69",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15673, 337, 2111, 33, 70, "Output",ExpressionUUID->"2e982f69-650a-453d-8455-10d4b59121c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Open  ]],
Cell[17799, 373, 268, 4, 41, "Input",ExpressionUUID->"1a3135fb-e312-4b8a-aa8c-4a41bfe72834",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[18070, 379, 308, 5, 41, "Input",ExpressionUUID->"0a392d42-b383-4b81-8d7c-0ed5f42a3c01",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[18415, 389, 266, 5, 55, "Section",ExpressionUUID->"bb2c9ee4-41a6-49d4-8be3-720ff43fc012",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[CellGroupData[{
Cell[18706, 398, 598, 12, 105, "Input",ExpressionUUID->"921d9a52-988a-4753-8d43-2ca6b01db224",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19307, 412, 578, 12, 70, "Output",ExpressionUUID->"8fc5c4da-3baa-440d-8382-2b01ac82153b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[19922, 429, 2151, 49, 357, "Input",ExpressionUUID->"6abd7de2-c560-4a78-8e9d-d3476a891fe8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22076, 480, 2365, 66, 70, "Output",ExpressionUUID->"939e571f-54cd-4ef4-936b-636be3ca6cd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[24456, 549, 675, 16, 63, "Input",ExpressionUUID->"0ffc489d-978e-4ae9-8c41-606e999bf542",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25168, 570, 362, 6, 55, "Section",ExpressionUUID->"8728eb6f-e50a-438e-9183-609e792500c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[25533, 578, 1660, 41, 126, "Input",ExpressionUUID->"3b3b5ec9-4d31-4c98-9cde-d65188d87f8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[27196, 621, 1056, 26, 84, "Input",ExpressionUUID->"53a19744-62ff-4274-ac97-9b4937f33b64",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28289, 652, 321, 7, 55, "Section",ExpressionUUID->"d1d884a5-dff6-42af-b5f8-e37ebfd61aa4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[CellGroupData[{
Cell[28635, 663, 1642, 44, 102, "Input",ExpressionUUID->"9a1112fb-f479-4d33-b1a1-7c97563048e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30280, 709, 1498, 41, 70, "Output",ExpressionUUID->"ba7c1b92-d71a-4968-b93b-eecbfb2ab481",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[31815, 755, 596, 13, 41, "Input",ExpressionUUID->"c963de3a-9283-49bb-94e2-04e80e3ffa91",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32414, 770, 2097, 59, 70, "Output",ExpressionUUID->"d5f545fe-4e06-43cd-9615-44c4174b3f79",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[34548, 834, 1180, 26, 189, "Input",ExpressionUUID->"82454e96-7b26-40d8-97bb-6a279ffe8b5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35731, 862, 1219, 36, 70, "Output",ExpressionUUID->"79e0d44d-a788-447a-848c-3f4c5ca0dacd",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[36987, 903, 837, 18, 105, "Input",ExpressionUUID->"0a74678b-41ac-45f1-8a80-1203e3f0a6c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37827, 923, 3192, 86, 70, "Output",ExpressionUUID->"8749d57c-683e-4335-b404-080eabdd1323",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[41056, 1014, 1397, 30, 126, "Input",ExpressionUUID->"8eef2c7a-2997-46ca-959c-353e86fab7a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42456, 1046, 2073, 59, 70, "Output",ExpressionUUID->"dce53f2a-8709-4b09-935f-0289f9207289",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[44544, 1108, 564, 11, 84, "Input",ExpressionUUID->"bef9ce40-a887-47c5-a34a-d3fc9d6dca49",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45111, 1121, 538, 11, 84, "Input",ExpressionUUID->"5d11c63a-848e-4dd1-99f3-abebf8d93137",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[45686, 1137, 501, 8, 55, "Section",ExpressionUUID->"945a2740-f791-4fb5-9939-ca9e6b617005",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46190, 1147, 6183, 141, 714, "Input",ExpressionUUID->"2cfffc9b-383c-40eb-9e6c-7a9fedbc2d22",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[CellGroupData[{
Cell[52398, 1292, 1196, 24, 65, "Input",ExpressionUUID->"7b075670-43aa-4458-971e-8c1fe266cf9f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[53597, 1318, 331, 6, 70, "Output",ExpressionUUID->"36f7e1ee-fe02-41e1-a0e7-8585fee60b28",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[53965, 1329, 306, 4, 41, "Input",ExpressionUUID->"8388e949-4783-4591-bf9c-6eac69645c73",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[54274, 1335, 1169, 30, 70, "Output",ExpressionUUID->"c9436b1c-af9a-43c6-b082-a70b3614dd25",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[55480, 1370, 860, 19, 84, "Input",ExpressionUUID->"31048e03-2dba-44cb-8f37-bea120409a7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[56343, 1391, 706, 13, 70, "Output",ExpressionUUID->"061c98b6-cdc5-4c57-90f4-62d93bbe7bd8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57052, 1406, 619, 9, 70, "Output",ExpressionUUID->"1f54e96c-4413-4c1d-9d1f-4ca095dbfe61",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[57674, 1417, 3540, 91, 70, "Output",ExpressionUUID->"e6a0069d-726a-435e-9c95-b0b2eb9da669",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[61251, 1513, 861, 19, 84, "Input",ExpressionUUID->"242a19f4-8924-4c52-971c-3dfe03a4d7ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62115, 1534, 822, 15, 70, "Output",ExpressionUUID->"b65eb8e9-914a-4b76-a778-a3953840c9cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[62940, 1551, 722, 10, 70, "Output",ExpressionUUID->"0dc33e24-ba65-4d15-9059-c60526df09cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[63665, 1563, 116240, 2554, 70, "Output",ExpressionUUID->"44a915a9-61a6-46fe-8381-14610c305523",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[179942, 4122, 973, 22, 84, "Input",ExpressionUUID->"3ccb3b20-544d-47cb-9353-478aa8edfe2f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[180918, 4146, 692, 12, 70, "Output",ExpressionUUID->"7fb84c6d-5fcd-4e49-9599-cb71e7f6c5f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[181613, 4160, 634, 9, 70, "Output",ExpressionUUID->"69e405a1-968d-4745-a8ae-c55df2684f9a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[182284, 4174, 976, 22, 84, "Input",ExpressionUUID->"99e54dfb-1d6a-4991-9f5d-6aad541de7ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[183263, 4198, 674, 12, 70, "Output",ExpressionUUID->"03e60b81-fbfe-4fa4-9903-751f9855631b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[183940, 4212, 632, 9, 70, "Output",ExpressionUUID->"061a1d9e-7988-40ad-a756-7906d70d11c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[184609, 4226, 1073, 24, 84, "Input",ExpressionUUID->"150a4562-2dc6-41f5-878b-04b55a369d56",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[185685, 4252, 664, 11, 70, "Output",ExpressionUUID->"da7b598d-72ca-40d1-87e1-0274eb6e0a9c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[186352, 4265, 657, 9, 70, "Output",ExpressionUUID->"7c047239-ed4f-4876-b49e-65dd7a7a6555",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[187024, 4277, 925, 20, 126, "Input",ExpressionUUID->"d7d1d10e-8891-4828-8ec3-a8605377e866",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[CellGroupData[{
Cell[187974, 4301, 958, 21, 84, "Input",ExpressionUUID->"772c0f88-1ac7-4090-8bee-605a01ef8ff7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[188935, 4324, 609, 11, 70, "Output",ExpressionUUID->"34d6e399-59bf-4a1a-aad2-bebbae966cbb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[189547, 4337, 568, 8, 70, "Output",ExpressionUUID->"812fd885-350b-4d27-a17a-4c4a3711decb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[190152, 4350, 1422, 30, 105, "Input",ExpressionUUID->"af612c03-cee9-40eb-943c-23e60d61767c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[191577, 4382, 292, 6, 70, "Output",ExpressionUUID->"aac28872-841d-4665-b2bb-4438ef20476d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[191872, 4390, 231, 3, 70, "Output",ExpressionUUID->"6d1ceb7c-ac83-4ac9-9f00-18ac422b6bf7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Open  ]],
Cell[192118, 4396, 931, 20, 126, "Input",ExpressionUUID->"b5fcc3e9-3944-41cc-8c71-cd699902f8bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[193086, 4421, 236, 4, 55, "Section",ExpressionUUID->"cac6a9d4-1265-4337-8702-f9b31c53b3ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[CellGroupData[{
Cell[193347, 4429, 799, 20, 84, "Input",ExpressionUUID->"febe7049-3635-40e9-a76e-7bf81d0afd73",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[194149, 4451, 537, 11, 70, "Output",ExpressionUUID->"23e810e1-4715-466d-b89b-4ec6c1095243",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[194723, 4467, 1307, 32, 168, "Input",ExpressionUUID->"7ced213c-ad8b-475b-98ba-0eb16b5d67fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[196033, 4501, 759, 24, 70, "Output",ExpressionUUID->"cf59f3cb-ae4f-4d2e-b799-09dc540be430",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[196829, 4530, 544, 14, 41, "Input",ExpressionUUID->"9fb2432a-4f3d-45c5-a2ff-cabd72d59c97",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[197376, 4546, 891, 26, 70, "Output",ExpressionUUID->"c59019aa-a6e9-4155-b3d2-29462b6b21a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[198304, 4577, 555, 14, 41, "Input",ExpressionUUID->"1e2656b7-2d57-48bf-8994-75e59a48bb0e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[198862, 4593, 3492, 102, 70, "Output",ExpressionUUID->"64b14c78-07cf-4e72-88c3-fd8a1f8dd33d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[202391, 4700, 556, 14, 41, "Input",ExpressionUUID->"9d494c6b-4a28-4d8d-b71c-baf27b46937b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[202950, 4716, 326, 7, 70, "Output",ExpressionUUID->"c0556d91-4a28-4ea7-95f7-9892d2952717",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[203313, 4728, 547, 14, 41, "Input",ExpressionUUID->"dfac3c63-2943-44d3-8321-8ff2f2441c8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[203863, 4744, 12241, 324, 70, "Output",ExpressionUUID->"80335807-f51e-4b93-85f5-94eed8bc9078",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[216141, 5073, 543, 14, 41, "Input",ExpressionUUID->"43d67e0d-f8e9-4535-991e-da2f532a3b5f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[216687, 5089, 45809, 1120, 70, "Output",ExpressionUUID->"efe5349b-9524-4776-8b10-19724b35de30",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[262533, 6214, 506, 10, 84, "Input",ExpressionUUID->"a62a3ff4-32d4-4427-9ac2-956bd17579c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[263042, 6226, 365, 8, 70, "Output",ExpressionUUID->"d39f6510-2b05-48ff-b788-b6a161065a11",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[263422, 6237, 1113, 31, 84, "Input",ExpressionUUID->"b59931bd-f27d-4ebe-ae9f-e2a1c436f881",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[CellGroupData[{
Cell[264560, 6272, 568, 12, 63, "Input",ExpressionUUID->"e8e49a5c-b83a-48ef-9b28-10708a301993",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[265131, 6286, 476, 10, 70, "Output",ExpressionUUID->"3b90107c-309b-4e87-a07d-9417e278e92c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[265610, 6298, 551, 12, 70, "Output",ExpressionUUID->"26a7460a-70da-4b58-83e8-400d8ff4f778",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[266198, 6315, 523, 11, 63, "Input",ExpressionUUID->"4a8ecb7d-75fc-4ed7-8b82-e4079a0baf1e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[266724, 6328, 387, 7, 70, "Output",ExpressionUUID->"76bd89f5-02a2-4954-9dd0-a0eb38770f4e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[267114, 6337, 455, 9, 70, "Output",ExpressionUUID->"87af4e74-158d-41db-85df-cd1b502e04c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[267606, 6351, 521, 11, 63, "Input",ExpressionUUID->"eddc4eae-5651-45be-af28-ccc8de5c30a8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[268130, 6364, 360, 7, 70, "Output",ExpressionUUID->"3362f610-ede4-473b-a09c-47d31bfecf76",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[268493, 6373, 431, 9, 70, "Output",ExpressionUUID->"c890584f-7c11-4715-9040-a83dcd24c58f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[268961, 6387, 520, 11, 63, "Input",ExpressionUUID->"2abf30a7-6077-4dd4-86a5-58affddd0661",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[269484, 6400, 403, 9, 70, "Output",ExpressionUUID->"27709bcc-520e-4d00-b78a-546074923221",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[269890, 6411, 471, 11, 70, "Output",ExpressionUUID->"4c2b5cc1-4fbe-4f15-8cbd-4f13dfdc88d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[270398, 6427, 520, 11, 63, "Input",ExpressionUUID->"fc9a872e-49e6-45ec-9a33-50a6a36a7c92",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[270921, 6440, 403, 9, 70, "Output",ExpressionUUID->"b3fd4843-3659-4c2a-840a-402b629fd9f3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[271327, 6451, 478, 11, 70, "Output",ExpressionUUID->"7e6f8a36-d148-4d8b-bb07-0ea666331775",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[271842, 6467, 521, 11, 63, "Input",ExpressionUUID->"f6c35700-7143-4407-9079-3aaaae0c783c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[272366, 6480, 404, 9, 70, "Output",ExpressionUUID->"4d022afb-f884-4b83-83c3-d2ebcd2dc61f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[272773, 6491, 479, 11, 70, "Output",ExpressionUUID->"69bf449f-a2d1-411c-80d9-db63301dc8ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[273289, 6507, 523, 11, 63, "Input",ExpressionUUID->"7df1db99-fa16-41d5-9ee8-d4b40ca68229",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[273815, 6520, 402, 9, 70, "Output",ExpressionUUID->"a89b3e9e-3bfd-4fb7-9bba-6b79de32da47",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[274220, 6531, 476, 11, 70, "Output",ExpressionUUID->"8da18fd9-5352-434f-ab10-e753333cd0e7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[274733, 6547, 519, 11, 63, "Input",ExpressionUUID->"b13b062a-b655-42b2-9b69-58890c7e5010",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[275255, 6560, 423, 9, 70, "Output",ExpressionUUID->"84d341a9-16c8-49e0-b0b5-95b217a177a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[275681, 6571, 567, 13, 70, "Output",ExpressionUUID->"7d808241-d97c-40ac-9150-dc1f28d16868",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[276285, 6589, 493, 10, 63, "Input",ExpressionUUID->"67f7de8a-ffdf-45f9-b2f9-5858ca79bf3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[276781, 6601, 415, 9, 70, "Output",ExpressionUUID->"0edaf5aa-6b32-477d-a53c-23654b16a45a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[277199, 6612, 557, 13, 70, "Output",ExpressionUUID->"291f13a1-d033-4667-a260-752b3dde2a2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[277793, 6630, 497, 10, 63, "Input",ExpressionUUID->"8e399e96-b244-4d17-9d3d-316e697d3585",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[278293, 6642, 411, 9, 70, "Output",ExpressionUUID->"1bb36b02-ecdd-4943-a34e-246b51d49531",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[278707, 6653, 555, 13, 70, "Output",ExpressionUUID->"6ce52c0b-aaff-4f21-858d-5fd9afa36842",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[279299, 6671, 493, 10, 63, "Input",ExpressionUUID->"852cb195-7943-44d2-9d52-8226187b4cd5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[279795, 6683, 429, 10, 70, "Output",ExpressionUUID->"8441fd04-4fce-40af-a424-b8e365bf13cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[280227, 6695, 507, 12, 70, "Output",ExpressionUUID->"e772c71b-a01a-4e2a-98c6-ba6b4b44b556",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[280771, 6712, 499, 10, 63, "Input",ExpressionUUID->"317b799c-391a-400a-896f-4836c47aa757",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[281273, 6724, 509, 12, 70, "Output",ExpressionUUID->"c97ce0d7-db59-4adb-aa30-e749d9039997",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[281785, 6738, 588, 14, 70, "Output",ExpressionUUID->"51e52bf3-79d3-4e36-87fe-cf222c71479c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[282422, 6758, 341, 8, 55, "Section",ExpressionUUID->"96ca63e5-8ffb-4051-98a4-7e1f57f76738",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[282788, 6770, 1547, 37, 126, "Input",ExpressionUUID->"e446d589-620d-401e-878d-6dc32d995631",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[284338, 6809, 119931, 2736, 306, "Output",ExpressionUUID->"5cd17f56-ade9-4623-93f5-c077e02ce200",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[404306, 9550, 1557, 38, 126, "Input",ExpressionUUID->"aafd3eef-4c0f-43f0-94fb-5fc0bcbbaac0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[405866, 9590, 147133, 3322, 308, "Output",ExpressionUUID->"46a15392-7380-4dfb-9a9a-2ee37ba13a4a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[553014, 12915, 851, 23, 44, "Input",ExpressionUUID->"d52e8f87-d418-4f3b-918b-5a327780b122"],
Cell[553868, 12940, 773, 23, 72, "Output",ExpressionUUID->"11f38e9b-bdff-465d-a44b-c72ba3aba6b6"],
Cell[554644, 12965, 885, 24, 44, "Input",ExpressionUUID->"4d08c0f7-250f-4c21-9b76-8d6997da5720"],
Cell[555532, 12991, 5236, 147, 135, "Output",ExpressionUUID->"78fe2ad9-e06c-45cb-b67d-4b44565921fd"],
Cell[560771, 13140, 1776, 44, 107, "Input",ExpressionUUID->"755e6ea2-2b6f-4ddc-a681-096306a42e3f"],
Cell[CellGroupData[{
Cell[562572, 13188, 488, 9, 105, "Input",ExpressionUUID->"459bbc7e-55ef-49bf-9a9e-e580056989ba"],
Cell[563063, 13199, 10050, 263, 171, "Output",ExpressionUUID->"dcb7792c-4eef-4218-9632-4b1a2bb4258e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[573150, 13467, 543, 10, 105, "Input",ExpressionUUID->"af63e6f9-b291-4094-92df-c61ea7165cc3"],
Cell[573696, 13479, 7948, 212, 171, "Output",ExpressionUUID->"50bbe784-5d66-46ea-b667-85e90616ef09"]
}, Open  ]],
Cell[581659, 13694, 2236, 56, 109, "Input",ExpressionUUID->"703be2ae-3cb6-45d2-bbac-708103c9f0c6"],
Cell[583898, 13752, 499, 9, 105, "Input",ExpressionUUID->"f00c42f2-126f-4a0f-883d-f320e43f790b"],
Cell[584400, 13763, 43215, 1068, 696, "Output",ExpressionUUID->"8767bc35-a2aa-4970-9f0f-0b25d99e8333"],
Cell[627618, 14833, 505, 9, 105, "Input",ExpressionUUID->"35bc376a-b2ac-4bae-81e7-e5a14edcca2d"],
Cell[628126, 14844, 66073, 1564, 973, "Output",ExpressionUUID->"b9f45ae3-fb4f-47a4-ad3e-a6cfc1f99ad2"],
Cell[CellGroupData[{
Cell[694224, 16412, 492, 9, 105, "Input",ExpressionUUID->"0d1ea9d7-8ec7-4905-96e2-b19f02e0a0b9"],
Cell[694719, 16423, 48580, 1142, 700, "Output",ExpressionUUID->"c58e0cb7-9cb9-4efe-9d81-f384d5ac2d6c"]
}, Open  ]]
}, Closed]]
}
]
*)