Black hole and wormhole solutions in Einstein-Maxwell-Scalar theory by Fabris Gomes and Rodrigues.nb

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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    356005,       8640]
NotebookOptionsPosition[    340705,       8412]
NotebookOutlinePosition[    341171,       8429]
CellTagsIndexPosition[    341128,       8426]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Black hole and wormhole solutions in Einstein-Maxwell-Scalar theory by Fabris \
Gomes and Rodrigues\
\>", "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.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.827991128705386*^9, 
   3.827991132320956*^9}, {3.827992663416297*^9, 3.8279926679446497`*^9}, 
   3.828002571005631*^9, {3.828435487218956*^9, 3.828435494634301*^9}, {
   3.828455314498684*^9, 3.828455317626096*^9}, {3.82845929819172*^9, 
   3.828459314167211*^9}, {3.843779381572652*^9, 3.8437793899407473`*^9}, {
   3.843779598652507*^9, 3.8437796062208357`*^9}, 3.855312173835081*^9, {
   3.855334749103153*^9, 3.855334760871324*^9}, {3.855394114792355*^9, 
   3.855394125129117*^9}},
 TextAlignment->Center,ExpressionUUID->"3fdfee4e-5a39-4f1b-8664-c86d9ff898e5"],

Cell["\<\
Geoff Cope
University of Utah
                                                                              \
                               \|01040f\|01042d\|01044c\|010432\|010442\
\|010432\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\
\|01042d\|01043b\|01042b
March 4, 2022\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.825859229609981*^9, 3.825859230168909*^9}, {
   3.850737092718917*^9, 3.850737113741796*^9}, 3.8521317157482023`*^9, {
   3.852133617349394*^9, 3.852133621456737*^9}, 3.852135095983374*^9, {
   3.855278199136589*^9, 3.855278202761684*^9}, {3.85530587854508*^9, 
   3.8553058892272778`*^9}, {3.8553121648813953`*^9, 3.85531217383519*^9}, {
   3.855335650055236*^9, 3.8553356542498093`*^9}, {3.855394144328237*^9, 
   3.8553941445284863`*^9}},
 TextAlignment->Center,ExpressionUUID->"78be04d5-5ea7-4154-8a0c-0d7a3c33b771"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"cd62020b-834a-46fd-8934-\
748fa27f9efa"],

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[4]:=",ExpressionUUID->"2c2a96ce-debb-426e-8e0a-6c288c6415ca"],

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.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.827991252970625*^9, 3.827992769438249*^9, 
   3.8284359064920053`*^9, 3.828455531917368*^9, 3.828459339591674*^9, 
   3.8437801043899937`*^9, 3.855334922925013*^9, 3.8553350337566423`*^9, 
   3.855391694084063*^9, 3.855394270211259*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"f7966d6f-819d-424a-a28f-de6da4223439"]
}, 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.843137732619809*^9, 
   3.8437794667831078`*^9, 
   3.8437799134972*^9},ExpressionUUID->"169eaaf9-c38f-448e-9799-a28169f1a335"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Black hole and wormhole solutions in Einstein-Maxwell-Scalar theory by \
Fabris Gomes and Rodrigues\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/2203.01278\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.85539416669842*^9, 3.8553941795930758`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"94f03889-dabb-4e7e-87f1-9704df3cc16a"],

Cell[BoxData[
 TemplateBox[{
  "\"Black hole and wormhole solutions in Einstein-Maxwell-Scalar theory by \
Fabris Gomes and Rodrigues\"", "https://arxiv.org/abs/2203.01278"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.855394190329522*^9, 3.855394270357862*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"67d00389-99fc-4f8b-9e5e-008a8398ce0d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"9d272793-0ad3-4047-88ab-\
908894c0a7ec"],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.843780109950279*^9, 3.8553122314656878`*^9, 
   3.8553349231474867`*^9, 3.855335033984736*^9, 3.855391694625494*^9, 
   3.855394270543833*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"e77b356d-2301-4805-9cf6-f39bced3460c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"16 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "16 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.843780109950279*^9, 3.8553122314656878`*^9, 
   3.8553349231474867`*^9, 3.855335033984736*^9, 3.855391694625494*^9, 
   3.855394270548094*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"9edfce7b-70c7-4090-bad2-ec1fd5bc8741"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827991253218878*^9, 
   3.827992769998845*^9, 3.8284359066702137`*^9, 3.828455532087866*^9, 
   3.82845933980285*^9, 3.843780109961666*^9, 3.855312231472665*^9, 
   3.855334923156373*^9, 3.8553350339906607`*^9, 3.855391694634858*^9, 
   3.855394270550329*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"e8c34e72-9c87-4362-82b1-1b4f56aa3dd7"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"444d4364-a43d-4f68-acf0-2140e25768ba"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"b2891f3d-7424-4672-b1b4-\
f515e447446d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Psi]", "]"}], " ", "\[Rule]", " ", "d\[Psi]"}], 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Psi]bar", "]"}], " ", "\[Rule]", " ", 
      "d\[Psi]bar"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Omega]", "]"}], "\[Rule]", " ", "d\[Omega]"}], 
     " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Omega]bar", "]"}], "\[Rule]", " ", 
      "d\[Omega]bar"}]}], " ", "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.843780323256154*^9, 3.8437803775892076`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"6b22e673-ca94-48ac-8927-86db1eef22c2"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Psi]", "]"}], "\[Rule]", "d\[Psi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Psi]bar", "]"}], "\[Rule]", "d\[Psi]bar"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Omega]", "]"}], "\[Rule]", "d\[Omega]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Omega]bar", "]"}], "\[Rule]", "d\[Omega]bar"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.8279912532863617`*^9, 
   3.827992770095962*^9, 3.828435906737782*^9, 3.828455532145804*^9, 
   3.82845933986725*^9, 3.843780113341681*^9, 3.843780377957552*^9, 
   3.855312231529709*^9, 3.855334923225778*^9, 3.8553350340378103`*^9, 
   3.8553916947106037`*^9, 3.855394270612578*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"158b85a4-06d0-4230-8d44-eaa770548bb9"]
}, 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->"72b204e1-187d-40c0-95a6-\
bef9afe78b07"],

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[6]:=",ExpressionUUID->"01130e0a-a930-491e-be10-88249c407231"],

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[8]:=",ExpressionUUID->"7240d971-e15d-4e0b-a850-c4d680323d83"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 9", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.855394376407233*^9, 
  3.855394393488821*^9}},ExpressionUUID->"0c7e413c-a581-44af-82f6-\
b103b7e7784d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq9", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq9", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Gamma]"}], "]"}], " ", 
    SuperscriptBox["dt", "2"]}], "-", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Alpha]"}], "]"}], " ", 
    SuperscriptBox["du", "2"]}], "-", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Beta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["d\[Theta]", "2"], "+", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox["d\[Phi]", "2"]}]}], ")"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.855394215306465*^9, 3.8553942603127527`*^9}, 
   3.8553943832847643`*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"09d51c66-5994-4ab5-a686-95397731c2b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["du", "2"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Alpha]"}]]}], "+", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Gamma]"}]]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Beta]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.855394262306151*^9, 3.855394270661442*^9}, 
   3.855394383284987*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"1564b27b-12a8-4489-ab47-1caac1f60bde"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", 
   RowBox[{"eq9", ",", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "du", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
   "]"}], " ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8553942642823668`*^9, 3.855394297730658*^9}, 
   3.855394383285178*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"13c8fa5b-8c39-4c75-a279-0b075c55ed26"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[Gamma]"}]], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Alpha]"}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[Beta]"}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[Beta]"}]]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8553942706719646`*^9, 3.855394298509604*^9}, 
   3.855394383285618*^9},
 CellLabel->
  "Out[14]//MatrixForm=",ExpressionUUID->"5501a4e7-c376-4fe4-817a-\
0303dab353aa"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq9a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq9a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Gamma]", "->", " ", 
      RowBox[{"\[Gamma]", "[", "u", "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Alpha]", "->", " ", 
      RowBox[{"\[Alpha]", "[", "u", "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Beta]", "->", " ", 
      RowBox[{"\[Beta]", "[", "u", "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq9a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8553943061207037`*^9, 3.855394342122946*^9}, 
   3.855394383285881*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"168bd780-4395-457f-8f79-95bb54d474d5"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[Gamma]", "\[Rule]", 
       RowBox[{"\[Gamma]", "[", "u", "]"}]}]},
     {
      RowBox[{"\[Alpha]", "\[Rule]", 
       RowBox[{"\[Alpha]", "[", "u", "]"}]}]},
     {
      RowBox[{"\[Beta]", "\[Rule]", 
       RowBox[{"\[Beta]", "[", "u", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.855394342599581*^9, 3.8553943832862053`*^9},
 CellLabel->
  "Out[17]//TableForm=",ExpressionUUID->"dfd03ed4-2796-4075-b4ca-\
30accb98e27e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric9", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric9", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", 
     RowBox[{"eq9", ",", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "du", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
     "]"}], " ", "/.", " ", "eq9a"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric9", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8553943538409233`*^9, 3.8553943832864227`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"d39566fd-f421-49d2-80d2-1d90c7ed6d7c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Gamma]", "[", "u", "]"}]}]], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Alpha]", "[", "u", "]"}]}]]}], "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "[", "u", "]"}]}]]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "[", "u", "]"}]}]]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.855394356225419*^9, 3.855394383286841*^9}},
 CellLabel->
  "Out[21]//MatrixForm=",ExpressionUUID->"e73c26ff-b706-4ecc-8c2e-\
fcf46a659543"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 1:  Static Axially Symmetric", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82753103002352*^9, 3.827531052415834*^9}, {
  3.8523057407117968`*^9, 3.852305741407835*^9}, {3.852306206575652*^9, 
  3.852306213541214*^9}, {3.852313661111846*^9, 3.8523136697279053`*^9}, {
  3.852497116635668*^9, 3.852497126615386*^9}, {3.852498351234982*^9, 
  3.852498351977193*^9}},ExpressionUUID->"8438aae8-1467-4bfb-b23f-\
507bdb40e84b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", "  ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.8275309635868196`*^9, 
   3.827530965633152*^9}, 3.827531041137661*^9, {3.852305771348864*^9, 
   3.8523057746990147`*^9}, {3.852497292433815*^9, 3.8524972949520617`*^9}, {
   3.8524985583878803`*^9, 3.852498569644238*^9}, {3.8524986014765263`*^9, 
   3.852498608204288*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"2200f229-02aa-469e-9ef4-b8e48cf2c849"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "4.51", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric9\>\"", ",", " ", "metric9", ",", " ", "\"\<Spherical\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(sph\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "u", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.827530980865696*^9, 
   3.827531060072402*^9}, {3.852305745851985*^9, 3.852305768432556*^9}, {
   3.852305832785726*^9, 3.852305841681376*^9}, {3.852313675825543*^9, 
   3.852313696257595*^9}, {3.852497140338819*^9, 3.852497183318083*^9}, {
   3.85249732946985*^9, 3.852497336789802*^9}, {3.8524976035348682`*^9, 
   3.852497606950725*^9}, {3.8524985304742193`*^9, 3.852498578362235*^9}, {
   3.852498632722262*^9, 3.852498636641631*^9}, {3.8524999298930407`*^9, 
   3.852499931172688*^9}, {3.8553944222254467`*^9, 
   3.855394468425724*^9}},ExpressionUUID->"dfc1928b-ab28-48fc-ae93-\
85bb754685a7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.507148`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.827531030651795*^9, 3.8275310411379538`*^9}, 
   3.827923267025786*^9, 3.843834761394718*^9, 3.843947230419145*^9, 
   3.8523058177676983`*^9, 3.852311852741253*^9, 3.852313709542651*^9, 
   3.852313822659464*^9, 3.852497277108942*^9, 3.8524973249863243`*^9, 
   3.852497627061372*^9, 3.852498583829748*^9, 3.852498620206294*^9, 
   3.855148268754098*^9, 3.855394460010458*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"9f091052-5568-41ec-8400-53d20ef3aa36"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8275310153844624`*^9, 3.827531041138036*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"3618a7dc-8d80-4be1-b211-2992ef5c6d35"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "sph"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.82753106614108*^9, 3.8275321257370567`*^9, 
  3.827923267136018*^9, 3.8438347614581127`*^9, 3.843947230470193*^9, 
  3.852305817925479*^9, 3.8523118529072638`*^9, 3.8523137095974693`*^9, 
  3.852313822711666*^9, 3.852497277187304*^9, 3.8524973250408154`*^9, 
  3.8524976271047497`*^9, 3.852498583841011*^9, 3.852498620256078*^9, 
  3.855148268832683*^9, 3.855394460140592*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"bfe33729-9a3f-4f69-b57d-b8bd23ee9ecc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.827531041138124*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"eed87569-446d-462a-b762-aa2db5503048"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "sph"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827923267150333*^9, 3.843834761487138*^9, 3.843947230489871*^9, 
   3.852305817939487*^9, 3.852311852919394*^9, 3.8523137096130123`*^9, 
   3.8523138227247868`*^9, 3.852497277204916*^9, 3.8524973250805397`*^9, 
   3.852497627117599*^9, 3.852498583865497*^9, 3.852498620268935*^9, 
   3.855148268849998*^9, 3.855394460161579*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"09c44388-735f-46a9-99ac-64b29565db74"],

Cell[BoxData["\<\"Spherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827923267150333*^9, 3.843834761487138*^9, 3.843947230489871*^9, 
   3.852305817939487*^9, 3.852311852919394*^9, 3.8523137096130123`*^9, 
   3.8523138227247868`*^9, 3.852497277204916*^9, 3.8524973250805397`*^9, 
   3.852497627117599*^9, 3.852498583865497*^9, 3.852498620268935*^9, 
   3.855148268849998*^9, 3.855394460166217*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"cee1ef79-025e-4266-822f-315881cf0497"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Gamma]", "(", "u", ")"}]}]], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Alpha]", "(", "u", ")"}]}]]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, {3.8275310411382227`*^9, 3.827531066196312*^9}, 
   3.827923267150333*^9, 3.843834761487138*^9, 3.843947230489871*^9, 
   3.852305817939487*^9, 3.852311852919394*^9, 3.8523137096130123`*^9, 
   3.8523138227247868`*^9, 3.852497277204916*^9, 3.8524973250805397`*^9, 
   3.852497627117599*^9, 3.852498583865497*^9, 3.852498620268935*^9, 
   3.855148268849998*^9, 3.8553944601710043`*^9},
 CellLabel->
  "Out[28]//TraditionalForm=",ExpressionUUID->"94af36aa-2c79-4867-a89a-\
e217a2add789"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.827531041138465*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"bf9b2b14-bb65-4d12-a02d-092179d6d295"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.82792326719608*^9, 3.843834761566759*^9, 3.843947230564633*^9, 
   3.852305817983101*^9, 3.8523118529650383`*^9, 3.8523137096461*^9, 
   3.852313822773182*^9, 3.852497277245452*^9, 3.852497325099365*^9, 
   3.852497627151602*^9, 3.8524985838856564`*^9, 3.852498620309001*^9, 
   3.8551482689088297`*^9, 3.855394460196076*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"8eaa0df2-778d-42bc-8c8e-a1306f4779a0"],

Cell[BoxData["\<\"ChristoffelSymbolSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.82792326719608*^9, 3.843834761566759*^9, 3.843947230564633*^9, 
   3.852305817983101*^9, 3.8523118529650383`*^9, 3.8523137096461*^9, 
   3.852313822773182*^9, 3.852497277245452*^9, 3.852497325099365*^9, 
   3.852497627151602*^9, 3.8524985838856564`*^9, 3.852498620309001*^9, 
   3.8551482689088297`*^9, 3.855394460200754*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"9c12193e-0609-41fa-ada3-adf0b51826b9"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]]}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              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[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]]}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              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"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             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[{
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             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[{"cot", "(", "\[Theta]", ")"}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]},
           {
            RowBox[{"cot", "(", "\[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]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, {3.827531041138555*^9, 3.827531066250152*^9}, 
   3.82792326719608*^9, 3.843834761566759*^9, 3.843947230564633*^9, 
   3.852305817983101*^9, 3.8523118529650383`*^9, 3.8523137096461*^9, 
   3.852313822773182*^9, 3.852497277245452*^9, 3.852497325099365*^9, 
   3.852497627151602*^9, 3.8524985838856564`*^9, 3.852498620309001*^9, 
   3.8551482689088297`*^9, 3.855394460221971*^9},
 CellLabel->
  "Out[31]//TraditionalForm=",ExpressionUUID->"f99d99ec-61b2-4f8e-a0ab-\
8a6b02e9d58b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.82753104113878*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"67583605-8d6d-4116-bb95-3bf14994c4ad"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.827923267444069*^9, 3.843834762103753*^9, 3.843947230775958*^9, 
   3.852305818077752*^9, 3.852311853088848*^9, 3.852313709756192*^9, 
   3.8523138228493643`*^9, 3.852497277310842*^9, 3.852497325174616*^9, 
   3.8524976272125397`*^9, 3.852498583958333*^9, 3.852498620367342*^9, 
   3.855148269036833*^9, 3.85539446025159*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"87a0b75f-17c5-41d9-aa87-2a6499bb9921"],

Cell[BoxData["\<\"RiemannTensorSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.827923267444069*^9, 3.843834762103753*^9, 3.843947230775958*^9, 
   3.852305818077752*^9, 3.852311853088848*^9, 3.852313709756192*^9, 
   3.8523138228493643`*^9, 3.852497277310842*^9, 3.852497325174616*^9, 
   3.8524976272125397`*^9, 3.852498583958333*^9, 3.852498620367342*^9, 
   3.855148269036833*^9, 3.855394460255542*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"32793ffc-3fa9-4bff-87d3-33ba67fa24cc"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0", 
           "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                  RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], ")"}]}], 
           "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], "0", "0", 
           "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                  RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], 
             ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], "0", "0", 
           "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0", 
           "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                  RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], ")"}]}], 
           "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["u", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", "1"}], 
             ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", "1"}], 
             ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"\[Alpha]", "(", "u", ")"}]}], "+", 
                  RowBox[{"\[Beta]", "(", "u", ")"}], "+", 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]]}], ")"}]}], 
           "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", "u", ")"}]}]]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", "1"}], 
             ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", "1"}], 
             ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, {3.8275310411388607`*^9, 3.827531066525813*^9}, 
   3.827923267444069*^9, 3.843834762103753*^9, 3.843947230775958*^9, 
   3.852305818077752*^9, 3.852311853088848*^9, 3.852313709756192*^9, 
   3.8523138228493643`*^9, 3.852497277310842*^9, 3.852497325174616*^9, 
   3.8524976272125397`*^9, 3.852498583958333*^9, 3.852498620367342*^9, 
   3.855148269036833*^9, 3.855394460446731*^9},
 CellLabel->
  "Out[34]//TraditionalForm=",ExpressionUUID->"6faa9b51-06f9-432a-8948-\
19dc578140ad"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.827531041139097*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"74c9e776-c726-4b6d-867b-d159e12a1ce3"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827923271547653*^9, 3.843834766494377*^9, 3.843947234918741*^9, 
   3.8523058188773727`*^9, 3.8523118537484703`*^9, 3.8523137106814213`*^9, 
   3.852313823562717*^9, 3.852497277843604*^9, 3.852497325713306*^9, 
   3.85249762769223*^9, 3.8524985846197643`*^9, 3.852498620967955*^9, 
   3.855148269705412*^9, 3.855394460478957*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"b0e14736-5391-4451-b1d9-9c8ee91019f0"],

Cell[BoxData["\<\"RicciTensorSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827923271547653*^9, 3.843834766494377*^9, 3.843947234918741*^9, 
   3.8523058188773727`*^9, 3.8523118537484703`*^9, 3.8523137106814213`*^9, 
   3.852313823562717*^9, 3.852497277843604*^9, 3.852497325713306*^9, 
   3.85249762769223*^9, 3.8524985846197643`*^9, 3.852498620967955*^9, 
   3.855148269705412*^9, 3.8553944604838867`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"86132057-1429-445a-9b6f-a1480b81d245"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0", "0", 
       "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, {3.8275310411391783`*^9, 3.8275310710006037`*^9}, 
   3.827923271547653*^9, 3.843834766494377*^9, 3.843947234918741*^9, 
   3.8523058188773727`*^9, 3.8523118537484703`*^9, 3.8523137106814213`*^9, 
   3.852313823562717*^9, 3.852497277843604*^9, 3.852497325713306*^9, 
   3.85249762769223*^9, 3.8524985846197643`*^9, 3.852498620967955*^9, 
   3.855148269705412*^9, 3.855394460536727*^9},
 CellLabel->
  "Out[37]//TraditionalForm=",ExpressionUUID->"1492daf4-041c-4495-9828-\
aefdabbe31c9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.827531041139411*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"9e8c7c21-fcb9-4527-8136-b65d674b6262"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.82792327178183*^9, 3.8438347667247953`*^9, 
  3.843947235156402*^9, 3.852305818956938*^9, 3.8523118538951063`*^9, 
  3.852313710833371*^9, 3.8523138237008057`*^9, 3.8524972779905853`*^9, 
  3.852497325882163*^9, 3.8524976278387613`*^9, 3.852498584796632*^9, 
  3.8524986211370983`*^9, 3.855148269961782*^9, 3.855394460559319*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"8c923ef0-9234-48d8-ac30-ba7d8bf927bd"],

Cell[BoxData["\<\"RicciScalarSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.82792327178183*^9, 3.8438347667247953`*^9, 
  3.843947235156402*^9, 3.852305818956938*^9, 3.8523118538951063`*^9, 
  3.852313710833371*^9, 3.8523138237008057`*^9, 3.8524972779905853`*^9, 
  3.852497325882163*^9, 3.8524976278387613`*^9, 3.852498584796632*^9, 
  3.8524986211370983`*^9, 3.855148269961782*^9, 3.8553944605643263`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"993b6516-0683-4b09-96ae-701f30c36685"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Alpha]", "(", "u", ")"}], "+", 
        RowBox[{"\[Beta]", "(", "u", ")"}]}], ")"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None]}], "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], ")"}]}], "-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.827531041139492*^9, 
  3.827531071261441*^9, 3.82792327178183*^9, 3.8438347667247953`*^9, 
  3.843947235156402*^9, 3.852305818956938*^9, 3.8523118538951063`*^9, 
  3.852313710833371*^9, 3.8523138237008057`*^9, 3.8524972779905853`*^9, 
  3.852497325882163*^9, 3.8524976278387613`*^9, 3.852498584796632*^9, 
  3.8524986211370983`*^9, 3.855148269961782*^9, 3.855394460589127*^9},
 CellLabel->
  "Out[40]//TraditionalForm=",ExpressionUUID->"d3c0dc2e-27c8-4540-84d4-\
e1b7853b5fe3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.8275310411397467`*^9, {
   3.827531085049985*^9, 3.8275310892800713`*^9}, {3.852497299792507*^9, 
   3.852497303989827*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"93502ce8-3334-42f6-8ef2-ff277592509d"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.852497325938143*^9, 3.852497627884433*^9, 
  3.852498584842849*^9, 3.8524986211865683`*^9, 3.855148270055479*^9, 
  3.8553944606113777`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"31621d6c-afa4-473a-b8b9-d38375edb475"],

Cell[BoxData["\<\"KretschmannScalarSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.852497325938143*^9, 3.852497627884433*^9, 
  3.852498584842849*^9, 3.8524986211865683`*^9, 3.855148270055479*^9, 
  3.855394460616988*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"82576d10-533f-4adf-bf2c-3c9bc665e29c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Alpha]", "(", "u", ")"}], "+", 
        RowBox[{"\[Beta]", "(", "u", ")"}]}], ")"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], "-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["u", "2"]}],
          MultilineFunction->None], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], ")"}]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Beta]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["u", "2"]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", 
         SuperscriptBox["u", "2"]}],
        MultilineFunction->None]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["u", "2"]}],
          MultilineFunction->None], ")"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "2"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
        RowBox[{"\[PartialD]", "u"}],
        MultilineFunction->None], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "3"]}], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"4", " ", 
        RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "4"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", 
         RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], ")"}], "4"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.852497325938143*^9, 3.852497627884433*^9, 
  3.852498584842849*^9, 3.8524986211865683`*^9, 3.855148270055479*^9, 
  3.855394460660293*^9},
 CellLabel->
  "Out[43]//TraditionalForm=",ExpressionUUID->"d5a0a976-0566-452b-93b6-\
b8bddec05499"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.827531041140236*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"e03c895a-23b6-403c-a90b-e6ecc7955d93"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827923271857465*^9, 3.84383476683326*^9, 3.843947235237376*^9, 
   3.85230581904422*^9, 3.852311853954364*^9, 3.852313710932526*^9, 
   3.852313823779379*^9, 3.852497278071108*^9, 3.852497326227167*^9, 
   3.85249762806539*^9, 3.8524985848810263`*^9, 3.852498621320567*^9, 
   3.85514827019042*^9, 3.855394460683345*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"1137178d-a063-4ca6-94ce-e375b8074d35"],

Cell[BoxData["\<\"EinsteinTensorSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827923271857465*^9, 3.84383476683326*^9, 3.843947235237376*^9, 
   3.85230581904422*^9, 3.852311853954364*^9, 3.852313710932526*^9, 
   3.852313823779379*^9, 3.852497278071108*^9, 3.852497326227167*^9, 
   3.85249762806539*^9, 3.8524985848810263`*^9, 3.852498621320567*^9, 
   3.85514827019042*^9, 3.8553944606874638`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"62fe121e-4332-4489-bd10-db8c26a6fc5c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Alpha]", "(", "u", ")"}], "+", 
            RowBox[{"\[Beta]", "(", "u", ")"}], "-", 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0", "0", 
       "0"},
      {"0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}]}]]}], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8275310411403227`*^9, 3.827531071383174*^9, 
   3.827923271857465*^9, 3.84383476683326*^9, 3.843947235237376*^9, 
   3.85230581904422*^9, 3.852311853954364*^9, 3.852313710932526*^9, 
   3.852313823779379*^9, 3.852497278071108*^9, 3.852497326227167*^9, 
   3.85249762806539*^9, 3.8524985848810263`*^9, 3.852498621320567*^9, 
   3.85514827019042*^9, 3.855394460734159*^9},
 CellLabel->
  "Out[46]//TraditionalForm=",ExpressionUUID->"82cb89c6-47da-48b9-aa91-\
cfff4043e084"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.827531041140554*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"3f612941-c4b6-4b90-971c-4ccb991a83da"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.82792327213684*^9, 3.843834767390759*^9, 3.843947235615587*^9, 
   3.852305819123241*^9, 3.852311854074031*^9, 3.852313711115398*^9, 
   3.852313823862505*^9, 3.852497278235948*^9, 3.852497326342074*^9, 
   3.852497628234289*^9, 3.8524985850582027`*^9, 3.852498621472149*^9, 
   3.855148270504304*^9, 3.855394460758315*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"bfea205b-39a7-4d74-82c7-1b121ecc6f19"],

Cell[BoxData["\<\"WeylTensorSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.82792327213684*^9, 3.843834767390759*^9, 3.843947235615587*^9, 
   3.852305819123241*^9, 3.852311854074031*^9, 3.852313711115398*^9, 
   3.852313823862505*^9, 3.852497278235948*^9, 3.852497326342074*^9, 
   3.852497628234289*^9, 3.8524985850582027`*^9, 3.852498621472149*^9, 
   3.855148270504304*^9, 3.8553944607621107`*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"4dd2f5c0-6343-4668-b63d-484a33bdbfbe"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {
           RowBox[{
            FractionBox["1", "3"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "6"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{
            FractionBox["1", "6"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "3"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "3"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["u", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["u", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.8275310411406403`*^9, 3.827531071681217*^9, 
   3.82792327213684*^9, 3.843834767390759*^9, 3.843947235615587*^9, 
   3.852305819123241*^9, 3.852311854074031*^9, 3.852313711115398*^9, 
   3.852313823862505*^9, 3.852497278235948*^9, 3.852497326342074*^9, 
   3.852497628234289*^9, 3.8524985850582027`*^9, 3.852498621472149*^9, 
   3.855148270504304*^9, 3.855394461305831*^9},
 CellLabel->
  "Out[49]//TraditionalForm=",ExpressionUUID->"c9e64be0-00af-4a35-ad15-\
0948e3093e4f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.8275310411408653`*^9, {3.8275310942501097`*^9, 
   3.827531098768097*^9}, {3.852497307921286*^9, 3.852497311549165*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"be825514-5f0b-42ea-8491-bce8702d3db6"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.852497327614266*^9, 3.852497629521364*^9, 
  3.8524985851001377`*^9, 3.8524986231724453`*^9, 3.8551482726539*^9, 
  3.855394461435277*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"97492e62-df60-448d-9a94-34dc76f6059d"],

Cell[BoxData["\<\"CottonTensorSpherical\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.852497327614266*^9, 3.852497629521364*^9, 
  3.8524985851001377`*^9, 3.8524986231724453`*^9, 3.8551482726539*^9, 
  3.8553944614392014`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"f6201eb7-5d1a-45af-9521-e5c8e88bf415"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["2", "3"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", "(", "u", ")"}], "+", 
                 RowBox[{"\[Beta]", "(", "u", ")"}], "-", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["2", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Alpha]", "(", "u", ")"}], "+", 
                 RowBox[{"\[Beta]", "(", "u", ")"}], "-", 
                 RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   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[{
           {"0"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                    MultilineFunction->None]}], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "3"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   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"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "3"]}], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "3"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], ")"}]}]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.852497327614266*^9, 3.852497629521364*^9, 
  3.8524985851001377`*^9, 3.8524986231724453`*^9, 3.8551482726539*^9, 
  3.855394461789143*^9},
 CellLabel->
  "Out[52]//TraditionalForm=",ExpressionUUID->"febd04e9-a05b-42de-a15d-\
964ee7afce59"]
}, Closed]],

Cell[CellGroupData[{

Cell["Vacuum Field Equations For Metric 9", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855394501200782*^9, 
  3.8553945183283577`*^9}},ExpressionUUID->"bebd6bb3-b245-41f2-a3e3-\
f0919cd0c639"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Cases", "[", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
          RowBox[{
           RowBox[{"TensorValues", "[", 
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
        " ", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
     " ", 
     RowBox[{"Except", "[", "0", "]"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.855394506375154*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"a10606a5-ae64-4649-88a7-7edad680d2d7"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}]}], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["u", "2"]}],
         MultilineFunction->None], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]}], "+", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], ")"}], "2"]}], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Alpha]", "(", "u", ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.855394520469728*^9},
 CellLabel->
  "Out[55]//TraditionalForm=",ExpressionUUID->"6a83b865-7062-4800-a18a-\
56e75c228c78"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Cases", "[", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
          RowBox[{
           RowBox[{"TensorValues", "[", 
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
        " ", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
     " ", 
     RowBox[{"Except", "[", "0", "]"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.855394506375279*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"e70b2d4e-82ae-4e64-a74d-9083966c92a7"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Alpha]", "(", "u", ")"}], "+", 
            RowBox[{"\[Beta]", "(", "u", ")"}], "-", 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["u", "2"]}],
             MultilineFunction->None]}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}]], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Alpha]", "(", "u", ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}]}]]}], "+", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], ")"}], "2"]}]},
      {
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", "u", ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "(", "u", ")"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Beta]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None], "-", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Alpha]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], "+", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Gamma]", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.855394522593109*^9},
 CellLabel->
  "Out[58]//TraditionalForm=",ExpressionUUID->"6788ffa7-73d3-41a4-abfc-\
2ee60bbfad65"]
}, Closed]],

Cell[CellGroupData[{

Cell["Ricci Components", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8553950391517057`*^9, 
  3.855395053120392*^9}},ExpressionUUID->"139e7ac9-5cdc-4c84-9679-\
768f5d606db0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq10", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq10", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "[", 
   RowBox[{
    RowBox[{"-", "t"}], ",", 
    RowBox[{"-", "t"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8553945404966908`*^9, 3.855394581616983*^9}, 
   3.855395045653371*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"8921d2be-1878-4c0c-aef5-37ed39195cc2"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["\[Alpha]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}]}], " ", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "\[Prime]",
       MultilineFunction->None], "[", "u", "]"}]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{
      SuperscriptBox["\[Beta]", "\[Prime]",
       MultilineFunction->None], "[", "u", "]"}], " ", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "\[Prime]",
       MultilineFunction->None], "[", "u", "]"}]}], "+", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", "\[Prime]",
       MultilineFunction->None], "[", "u", "]"}], "2"], "+", 
    RowBox[{
     SuperscriptBox["\[Gamma]", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "u", "]"}]}], ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.855394542058106*^9, 3.855394581912112*^9}, 
   3.855395045653984*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"0bec3861-b651-49dd-96e6-76cb896aea25"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq11", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq11", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "[", 
   RowBox[{
    RowBox[{"-", "u"}], ",", 
    RowBox[{"-", "u"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8553945888410797`*^9, 3.8553945943448544`*^9}, 
   3.855395045654211*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"52e90014-57b0-4931-b4ab-fbcdcea6be9f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["\[Beta]", "\[Prime]",
      MultilineFunction->None], "[", "u", "]"}], "2"]}], "-", 
  SuperscriptBox[
   RowBox[{
    SuperscriptBox["\[Gamma]", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}], "2"], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Alpha]", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Beta]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "\[Prime]",
       MultilineFunction->None], "[", "u", "]"}]}], ")"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["\[Beta]", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "u", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[Gamma]", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "u", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8553945951557417`*^9, 3.855395045654668*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"17ea4bb4-67eb-410d-b460-33511fa67dd1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq12", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq12", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"Expand", "[", 
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "[", 
      RowBox[{
       RowBox[{"-", "\[Theta]"}], ",", 
       RowBox[{"-", "\[Theta]"}]}], "]"}], "]"}], ",", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"\[Beta]", "[", "u", "]"}]}]}]]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.855394598744554*^9, 3.855394644041841*^9}, 
   3.855395045654891*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"77f97c3e-a609-4c8d-aa23-901b5ba98599"],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"\[Beta]", "[", "u", "]"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Alpha]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[Beta]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}]}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["\[Beta]", "\[Prime]",
         MultilineFunction->None], "[", "u", "]"}], "2"]}], "-", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Beta]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}]}], "-", 
     RowBox[{
      SuperscriptBox["\[Beta]", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "u", "]"}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.8553946070219603`*^9, 3.855394644375671*^9}, 
   3.855395045655304*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"be24fece-fb8d-479e-b885-150ca368db09"]
}, Closed]],

Cell[CellGroupData[{

Cell["Faraday Tensor", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855395006015171*^9, 
  3.855395026472678*^9}},ExpressionUUID->"80a6a226-13e4-4454-9521-\
35bf91f497ea"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "faradayComponents", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"faradayComponents", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", 
        RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}]}], "0", "0"},
      {
       RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], "0", "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"faradayComponents", " ", "//", " ", "MatrixForm", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394696978252*^9, 3.855394758609041*^9}, {
   3.855394796010192*^9, 3.855394801848534*^9}, 3.855395013874296*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"58da2b21-1770-48a9-984b-bba489b80882"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}]}], "0", "0"},
     {
      RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], "0", "0", "0"},
     {"0", "0", "0", "0"},
     {"0", "0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.855394759025515*^9, 3.855394803349576*^9, 
  3.855395013874864*^9},
 CellLabel->
  "Out[80]//MatrixForm=",ExpressionUUID->"24b6d281-3e6c-4898-a893-\
60e63543002c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalF]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalF]", " ", "=", " ", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<\[ScriptCapitalF]\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "faradayComponents", " ", 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394830345625*^9, 3.8553948560333023`*^9}, 
   3.855395013875086*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"5fc82442-dbcc-4d71-8a58-42a858a39c80"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalF]", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.85539485669843*^9, 3.855395013875434*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"2fa12a41-f8c6-4c89-9c9b-71bf0b671b79"],

Cell[BoxData[
 RowBox[{"\[ScriptCapitalF]", "[", 
  RowBox[{
   RowBox[{"-", "\[Mu]"}], ",", 
   RowBox[{"-", "\[Nu]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8553948588559*^9, 3.85539486391293*^9}, 
   3.855395013875637*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"1a997f31-18bd-491a-97ee-23492aeb68f0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalF]", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.855394864659639*^9, 3.8553950138760653`*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"4cae81b8-5bd3-4f0d-8c51-b59cdea7439f"],

Cell[BoxData[{
 RowBox[{"CovariantD", "[", 
  RowBox[{
   RowBox[{"\[ScriptCapitalF]", "[", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", 
   RowBox[{"-", "\[Mu]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MergeTensors", "[", 
   RowBox[{"CovariantD", "[", 
    RowBox[{
     RowBox[{"\[ScriptCapitalF]", "[", 
      RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", 
     RowBox[{"-", "\[Mu]"}]}], "]"}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "maxwellEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"maxwellEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", 
     RowBox[{"CovariantD", "[", 
      RowBox[{
       RowBox[{"\[ScriptCapitalF]", "[", 
        RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", 
       RowBox[{"-", "\[Mu]"}]}], "]"}], "]"}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"maxwellEquations", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394901521842*^9, 3.855394966056715*^9}, 
   3.855395013876347*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"950dde62-ce71-4061-9ab1-bf237d3e149b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   TagBox[
    SubsuperscriptBox["\[ScriptCapitalF]", "", "\[Alpha]\[Nu]"],
    DisplayForm], " ", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Alpha]\[Mu]"}], 
     RowBox[{"\[Mu]", "    "}]],
    DisplayForm]}], "+", 
  RowBox[{
   TagBox[
    SubsuperscriptBox["\[ScriptCapitalF]", "", "\[Mu]\[Alpha]"],
    DisplayForm], " ", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Alpha]\[Mu]"}], 
     RowBox[{"\[Nu]", "    "}]],
    DisplayForm]}], "+", 
  TagBox[
   SubsuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[PartialD]", "\[ScriptCapitalF]"}], ")"}], 
    RowBox[{"\[Mu]", "    "}], 
    RowBox[{"  ", "\[Mu]\[Nu]"}]],
   DisplayForm]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394916665441*^9, 3.8553949665737267`*^9}, 
   3.8553950138765287`*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"9636dd6e-b492-4b17-b072-860b97b9081c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[ScriptCapitalF]", "\[CenterDot]", "\[CapitalGamma]"}], 
        ")"}], "+", 
       RowBox[{"(", 
        RowBox[{"\[ScriptCapitalF]", "\[CenterDot]", "\[CapitalGamma]"}], 
        ")"}]}], ")"}], "+", 
     RowBox[{"(", 
      RowBox[{"\[PartialD]", "\[ScriptCapitalF]"}], ")"}]}], ")"}], "", 
   "\[Nu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394916665441*^9, 3.855394966641522*^9}, 
   3.855395013876704*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"db1b3442-1c8a-4b7f-8e7f-ab3290f0002d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]]}], " ", 
         RowBox[{
          SuperscriptBox["\[ScriptCapitalE]", "\[Prime]",
           MultilineFunction->None], "[", "u", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
         RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Alpha]", "\[Prime]",
           MultilineFunction->None], "[", "u", "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
         RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Beta]", "\[Prime]",
           MultilineFunction->None], "[", "u", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
         RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{
             SuperscriptBox["\[Alpha]", "\[Prime]",
              MultilineFunction->None], "[", "u", "]"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["\[Gamma]", "\[Prime]",
              MultilineFunction->None], "[", "u", "]"}]}]}], ")"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
         RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Gamma]", "\[Prime]",
           MultilineFunction->None], "[", "u", "]"}]}]}]},
      {"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]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394916665441*^9, 3.8553949667110987`*^9}, 
   3.855395013877013*^9},
 CellLabel->
  "Out[97]//MatrixForm=",ExpressionUUID->"e506ad1d-0368-4a6f-b77d-\
f9eae1a7c365"],

Cell[BoxData[
 RowBox[{"maxwellEquations", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8553949722011147`*^9, 3.855394977633237*^9}, 
   3.855395013877184*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"5b4250ad-b8e2-4200-b21b-85b8965b3b2e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]]}], " ", 
   RowBox[{
    SuperscriptBox["\[ScriptCapitalE]", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
   RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Alpha]", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
   RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Beta]", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
   RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{
       SuperscriptBox["\[Alpha]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "\[Prime]",
        MultilineFunction->None], "[", "u", "]"}]}]}], ")"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"\[Alpha]", "[", "u", "]"}]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]], " ", 
   RowBox[{"\[ScriptCapitalE]", "[", "u", "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Gamma]", "\[Prime]",
     MultilineFunction->None], "[", "u", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855394975516078*^9, 3.855394978297113*^9}, 
   3.855395013877495*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"c3558158-41cb-4df6-a33c-269cf73a935a"]
}, Closed]]
},
WindowSize->{1276, 671},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"1597331e-036a-42eb-b51a-92cb374ff012"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1477, 23, 221, "Title",ExpressionUUID->"3fdfee4e-5a39-4f1b-8664-c86d9ff898e5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2060, 47, 1443, 24, 94, "Author",ExpressionUUID->"78be04d5-5ea7-4154-8a0c-0d7a3c33b771",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3540, 76, 228, 4, 69, "Section",ExpressionUUID->"cd62020b-834a-46fd-8934-748fa27f9efa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3771, 82, 433, 9, 63, "Input",ExpressionUUID->"2c2a96ce-debb-426e-8e0a-6c288c6415ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4207, 93, 1212, 19, 43, "Output",ExpressionUUID->"f7966d6f-819d-424a-a28f-de6da4223439",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5456, 117, 590, 9, 55, "Section",ExpressionUUID->"169eaaf9-c38f-448e-9799-a28169f1a335",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6049, 128, 460, 8, 63, "Input",ExpressionUUID->"94f03889-dabb-4e7e-87f1-9704df3cc16a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6512, 138, 401, 7, 43, "Output",ExpressionUUID->"67d00389-99fc-4f8b-9e5e-008a8398ce0d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6950, 150, 228, 4, 55, "Section",ExpressionUUID->"9d272793-0ad3-4047-88ab-908894c0a7ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[7181, 156, 1640, 44, 189, "Input",ExpressionUUID->"f029785a-a38f-4160-b247-b38b1a355902",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8824, 202, 1449, 25, 24, "Print",ExpressionUUID->"e77b356d-2301-4805-9cf6-f39bced3460c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10276, 229, 1466, 26, 24, "Print",ExpressionUUID->"9edfce7b-70c7-4090-bad2-ec1fd5bc8741",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11745, 257, 1455, 23, 41, "Output",ExpressionUUID->"e8c34e72-9c87-4362-82b1-1b4f56aa3dd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[13203, 282, 246, 4, 41, "Input",ExpressionUUID->"444d4364-a43d-4f68-acf0-2140e25768ba",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[13486, 291, 240, 4, 55, "Section",ExpressionUUID->"b2891f3d-7424-4672-b1b4-f515e447446d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13729, 297, 1332, 29, 231, "Input",ExpressionUUID->"6b22e673-ca94-48ac-8927-86db1eef22c2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[15064, 328, 1745, 44, 141, "Output",ExpressionUUID->"158b85a4-06d0-4230-8d44-eaa770548bb9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[16846, 377, 362, 6, 55, "Section",ExpressionUUID->"72b204e1-187d-40c0-95a6-bef9afe78b07",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[17211, 385, 1659, 41, 126, "Input",ExpressionUUID->"01130e0a-a930-491e-be10-88249c407231",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[18873, 428, 1055, 26, 84, "Input",ExpressionUUID->"7240d971-e15d-4e0b-a850-c4d680323d83",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[19965, 459, 225, 4, 55, "Section",ExpressionUUID->"0c7e413c-a581-44af-82f6-b103b7e7784d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20193, 465, 951, 25, 86, "Input",ExpressionUUID->"09d51c66-5994-4ab5-a686-95397731c2b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21147, 492, 853, 24, 44, "Output",ExpressionUUID->"1564b27b-12a8-4489-ab47-1caac1f60bde",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22003, 518, 453, 10, 41, "Input",ExpressionUUID->"13c8fa5b-8c39-4c75-a279-0b075c55ed26",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22459, 530, 1281, 37, 113, "Output",ExpressionUUID->"5501a4e7-c376-4fe4-817a-0303dab353aa",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23743, 569, 867, 19, 168, "Input",ExpressionUUID->"168bd780-4395-457f-8f79-95bb54d474d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[24613, 590, 921, 28, 87, "Output",ExpressionUUID->"dfd03ed4-2796-4075-b4ca-30accb98e27e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25537, 620, 663, 13, 105, "Input",ExpressionUUID->"d39566fd-f421-49d2-80d2-1d90c7ed6d7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26203, 635, 1393, 40, 113, "Output",ExpressionUUID->"e73c26ff-b706-4ecc-8c2e-fcf46a659543",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27633, 680, 500, 7, 55, "Section",ExpressionUUID->"8438aae8-1467-4bfb-b23f-507bdb40e84b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[28136, 689, 5943, 133, 714, "Input",ExpressionUUID->"2200f229-02aa-469e-9ef4-b8e48cf2c849",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[34082, 824, 1437, 27, 65, "Input",ExpressionUUID->"dfc1928b-ab28-48fc-ae93-85bb754685a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[35522, 853, 618, 10, 41, "Output",ExpressionUUID->"9f091052-5568-41ec-8400-53d20ef3aa36",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[36143, 865, 238, 3, 41, "Input",ExpressionUUID->"3618a7dc-8d80-4be1-b211-2992ef5c6d35",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[36384, 870, 1418, 38, 45, "Output",ExpressionUUID->"bfe33729-9a3f-4f69-b57d-b8bd23ee9ecc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37805, 910, 810, 18, 84, "Input",ExpressionUUID->"eed87569-446d-462a-b762-aa2db5503048",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[38618, 930, 900, 16, 45, "Output",ExpressionUUID->"09c44388-735f-46a9-99ac-64b29565db74",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39521, 948, 819, 12, 41, "Output",ExpressionUUID->"cee1ef79-025e-4266-822f-315881cf0497",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[40343, 962, 2071, 51, 114, "Output",ExpressionUUID->"94af36aa-2c79-4867-a89a-e217a2add789",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42417, 1015, 813, 18, 84, "Input",ExpressionUUID->"bf9b2b14-bb65-4d12-a02d-092179d6d295",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[43233, 1035, 1010, 18, 45, "Output",ExpressionUUID->"8eaa0df2-778d-42bc-8c8e-a1306f4779a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[44246, 1055, 909, 13, 41, "Output",ExpressionUUID->"9c12193e-0609-41fa-ada3-adf0b51826b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45158, 1070, 13557, 388, 344, "Output",ExpressionUUID->"f99d99ec-61b2-4f8e-a0ab-8a6b02e9d58b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[58718, 1460, 809, 18, 84, "Input",ExpressionUUID->"67583605-8d6d-4116-bb95-3bf14994c4ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[59530, 1480, 888, 15, 45, "Output",ExpressionUUID->"87a0b75f-17c5-41d9-aa87-2a6499bb9921",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[60421, 1497, 832, 12, 41, "Output",ExpressionUUID->"32793ffc-3fa9-4bff-87d3-33ba67fa24cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[61256, 1511, 36732, 924, 417, "Output",ExpressionUUID->"6faa9b51-06f9-432a-8948-19dc578140ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[97991, 2437, 808, 18, 84, "Input",ExpressionUUID->"74c9e776-c726-4b6d-867b-d159e12a1ce3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98802, 2457, 877, 15, 45, "Output",ExpressionUUID->"b0e14736-5391-4451-b1d9-9c8ee91019f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[99682, 2474, 836, 12, 41, "Output",ExpressionUUID->"86132057-1429-445a-9b6f-a1480b81d245",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[100521, 2488, 9669, 253, 149, "Output",ExpressionUUID->"1492daf4-041c-4495-9828-aefdabbe31c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[110193, 2743, 810, 18, 84, "Input",ExpressionUUID->"9e8c7c21-fcb9-4527-8136-b65d674b6262",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[111006, 2763, 829, 13, 41, "Output",ExpressionUUID->"8c923ef0-9234-48d8-ac30-ba7d8bf927bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[111838, 2778, 825, 11, 41, "Output",ExpressionUUID->"993b6516-0683-4b09-96ae-701f30c36685",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[112666, 2791, 4160, 110, 65, "Output",ExpressionUUID->"d3c0dc2e-27c8-4540-84d4-e1b7853b5fe3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[116829, 2903, 845, 19, 84, "Input",ExpressionUUID->"93502ce8-3334-42f6-8ef2-ff277592509d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[117677, 2924, 357, 7, 41, "Output",ExpressionUUID->"31621d6c-afa4-473a-b8b9-d38375edb475",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[118037, 2933, 355, 5, 41, "Output",ExpressionUUID->"82576d10-533f-4adf-bf2c-3c9bc665e29c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[118395, 2940, 8046, 224, 118, "Output",ExpressionUUID->"d5a0a976-0566-452b-93b6-b8bddec05499",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[126444, 3166, 792, 18, 84, "Input",ExpressionUUID->"e03c895a-23b6-403c-a90b-e6ecc7955d93",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[127239, 3186, 794, 14, 45, "Output",ExpressionUUID->"1137178d-a063-4ca6-94ce-e375b8074d35",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[128036, 3202, 756, 11, 41, "Output",ExpressionUUID->"62fe121e-4332-4489-bd10-db8c26a6fc5c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[128795, 3215, 9238, 243, 145, "Output",ExpressionUUID->"82cb89c6-47da-48b9-aa91-cfff4043e084",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[138036, 3460, 857, 19, 84, "Input",ExpressionUUID->"3f612941-c4b6-4b90-971c-4ccb991a83da",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[138896, 3481, 882, 15, 45, "Output",ExpressionUUID->"bfea205b-39a7-4d74-82c7-1b121ecc6f19",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[139781, 3498, 824, 12, 41, "Output",ExpressionUUID->"4dd2f5c0-6343-4668-b63d-484a33bdbfbe",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[140608, 3512, 92591, 2200, 417, "Output",ExpressionUUID->"c9e64be0-00af-4a35-ad15-0948e3093e4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[233202, 5714, 817, 18, 84, "Input",ExpressionUUID->"be825514-5f0b-42ea-8491-bce8702d3db6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[234022, 5734, 400, 8, 45, "Output",ExpressionUUID->"97492e62-df60-448d-9a94-34dc76f6059d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[234425, 5744, 352, 5, 41, "Output",ExpressionUUID->"f6201eb7-5d1a-45af-9521-e5c8e88bf415",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[234780, 5751, 66496, 1560, 343, "Output",ExpressionUUID->"febd04e9-a05b-42de-a15d-964ee7afce59",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[301313, 7316, 237, 4, 55, "Section",ExpressionUUID->"bebd6bb3-b245-41f2-a3e3-f0919cd0c639",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[301553, 7322, 1248, 32, 105, "Input",ExpressionUUID->"a10606a5-ae64-4649-88a7-7edad680d2d7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[302804, 7356, 8982, 244, 160, "Output",ExpressionUUID->"6a83b865-7062-4800-a18a-56e75c228c78",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[311789, 7602, 1260, 33, 105, "Input",ExpressionUUID->"e70b2d4e-82ae-4e64-a74d-9083966c92a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[313052, 7637, 8634, 235, 156, "Output",ExpressionUUID->"6788ffa7-73d3-41a4-abfc-2ee60bbfad65",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[321723, 7877, 218, 4, 55, "Section",ExpressionUUID->"139e7ac9-5cdc-4c84-9679-768f5d606db0",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[321944, 7883, 532, 12, 84, "Input",ExpressionUUID->"8921d2be-1878-4c0c-aef5-37ed39195cc2",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[322479, 7897, 1296, 36, 44, "Output",ExpressionUUID->"0bec3861-b651-49dd-96e6-76cb896aea25",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[323778, 7935, 534, 12, 84, "Input",ExpressionUUID->"52e90014-57b0-4931-b4ab-fbcdcea6be9f",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[324315, 7949, 1213, 34, 41, "Output",ExpressionUUID->"17ea4bb4-67eb-410d-b460-33511fa67dd1",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[325531, 7985, 872, 22, 86, "Input",ExpressionUUID->"77f97c3e-a609-4c8d-aa23-901b5ba98599",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[326406, 8009, 1343, 37, 44, "Output",ExpressionUUID->"be24fece-fb8d-479e-b885-150ca368db09",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[327786, 8051, 214, 4, 55, "Section",ExpressionUUID->"80a6a226-13e4-4454-9521-35bf91f497ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[328003, 8057, 860, 17, 166, "Input",ExpressionUUID->"58da2b21-1770-48a9-984b-bba489b80882",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[328866, 8076, 915, 26, 103, "Output",ExpressionUUID->"24b6d281-3e6c-4898-a893-60e63543002c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[329784, 8104, 702, 15, 63, "Input",ExpressionUUID->"5fc82442-dbcc-4d71-8a58-42a858a39c80",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[330489, 8121, 306, 6, 45, "Output",ExpressionUUID->"2fa12a41-f8c6-4c89-9c9b-71bf0b671b79",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[330798, 8129, 362, 8, 41, "Input",ExpressionUUID->"1a997f31-18bd-491a-97ee-23492aeb68f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[331163, 8139, 309, 6, 45, "Output",ExpressionUUID->"4cae81b8-5bd3-4f0d-8c51-b59cdea7439f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[331475, 8147, 1235, 29, 168, "Input",ExpressionUUID->"950dde62-ce71-4061-9ab1-bf237d3e149b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[332713, 8178, 983, 30, 45, "Output",ExpressionUUID->"9636dd6e-b492-4b17-b072-860b97b9081c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[333699, 8210, 708, 20, 43, "Output",ExpressionUUID->"db1b3442-1c8a-4b7f-8e7f-ab3290f0002d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[334410, 8232, 3453, 94, 103, "Output",ExpressionUUID->"e506ad1d-0368-4a6f-b77d-f9eae1a7c365",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[337866, 8328, 320, 6, 41, "Input",ExpressionUUID->"5b4250ad-b8e2-4200-b21b-85b8965b3b2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[338189, 8336, 2500, 73, 41, "Output",ExpressionUUID->"c3558158-41cb-4df6-a33c-269cf73a935a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]]
}
]
*)