ADS ROBIN SOLITONS AND THEIR STABILITY by Bizon et al.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    471524,      11639]
NotebookOptionsPosition[    451894,      11347]
NotebookOutlinePosition[    452357,      11364]
CellTagsIndexPosition[    452314,      11361]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
ADS ROBIN SOLITONS AND THEIR STABILITY by Bizon et al\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.824031452536063*^9, 3.8240314588397417`*^9}, {
   3.824644814468794*^9, 3.824644828468484*^9}, {3.8246473552414417`*^9, 
   3.824647380416992*^9}, {3.824807830274989*^9, 3.8248078370509233`*^9}, {
   3.824809728275221*^9, 3.824809737846239*^9}, {3.824815731524988*^9, 
   3.824815734660836*^9}, {3.824817422603738*^9, 3.8248174265468884`*^9}, {
   3.8248986644139853`*^9, 3.8248986736859922`*^9}, {3.825052344343701*^9, 
   3.82505235232714*^9}, {3.8250678941265173`*^9, 3.825067908268942*^9}, 
   3.843424976889835*^9, {3.845065313677454*^9, 3.8450653410939493`*^9}, {
   3.8450653919019203`*^9, 3.845065394366025*^9}, {3.845116523813334*^9, 
   3.8451165256290493`*^9}, {3.845517163085989*^9, 3.8455171635449553`*^9}, {
   3.8455984218610773`*^9, 3.845598424846786*^9}, {3.845603017032302*^9, 
   3.8456030230245523`*^9}},
 TextAlignment->Center,ExpressionUUID->"9b3e49de-4900-4d17-9f17-226606ca571f"],

Cell["\<\
Geoff Cope
University of Utah
November 10th, 2020\
\>", "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.824031476024664*^9, 3.824031704319726*^9, {
   3.824644838300221*^9, 3.824644838780697*^9}, {3.8248077138189373`*^9, 
   3.824807713996264*^9}, {3.8248986770930023`*^9, 3.824898677237032*^9}, {
   3.825067912133286*^9, 3.825067912837699*^9}, {3.8253776888607903`*^9, 
   3.8253776903000307`*^9}, {3.8455174012898417`*^9, 3.845517407114196*^9}, {
   3.84559845236135*^9, 3.845598458905768*^9}},
 TextAlignment->Center,ExpressionUUID->"055de857-57b6-47d6-8337-b11347a84ac2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944675605734*^9, 3.8209446931410646`*^9}, 
   3.845065367942363*^9},ExpressionUUID->"295ed02e-9c35-483d-8c71-\
9edca412d687"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}, 
   3.845065367942793*^9},
 CellLabel->
  "In[148]:=",ExpressionUUID->"d22e8979-8698-4375-99aa-abbcfba53d02"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9, 
   3.824644896879627*^9, 3.824646374047151*^9, 3.824647481799861*^9, 
   3.824807973110347*^9, 3.8248083404553423`*^9, 3.824809928548235*^9, 
   3.824815880975711*^9, 3.8248987407523518`*^9, 3.824898787030614*^9, 
   3.824913940914403*^9, 3.825052526449236*^9, 3.825055455240489*^9, 
   3.825068129652319*^9, 3.8250790171480827`*^9, 3.8450393026461143`*^9, 
   3.845065367943122*^9, 3.845066633444744*^9, 3.845585392232441*^9, 
   3.845585498025202*^9, 3.84558611096614*^9},
 CellLabel->
  "Out[148]=",ExpressionUUID->"36f69e87-d368-4837-ac24-f12b14dc3532"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink To Paper", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8455170412419977`*^9, 3.84551706147152*^9}, 
   3.84551841718145*^9},ExpressionUUID->"d9593898-6412-4a9a-8e7f-\
6c28bf4c4485"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<ADS ROBIN SOLITONS AND THEIR STABILITY by Bizon et al\>\"", ",", 
   "\[IndentingNewLine]", "\"\<https://arxiv.org/abs/2001.03980\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845603044589115*^9, 3.8456030746501617`*^9}},
 CellLabel->
  "In[840]:=",ExpressionUUID->"523220f1-93df-484d-b0af-3991be98105f"],

Cell[BoxData[
 TemplateBox[{
  "\"ADS ROBIN SOLITONS AND THEIR STABILITY by Bizon et al\"", 
   "https://arxiv.org/abs/2001.03980"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845603061001787*^9, 3.845603074655686*^9}},
 CellLabel->
  "Out[840]=",ExpressionUUID->"76a4f8ec-3ce4-4f41-a88d-257f8928996d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Start", " ", "here"}], "..."}], " ", "this", " ", "code", " ", 
    "is", " ", "much", " ", "better", " ", "than", " ", "my", " ", 
    RowBox[{"attempt", ".", "  ", "I"}], " ", 
    RowBox[{"didn", "'"}], "t", " ", "find", " ", "this", " ", "until", " ", 
    "quite", " ", "recently"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<NR/HEP2 Spring School Mathematica Code\>\"", ",", 
    "\[IndentingNewLine]", 
    "\"\<https://blackholes.tecnico.ulisboa.pt/nrhep2/?page=material\>\""}], 
   "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845518365836347*^9, 3.845518417181892*^9}, {
  3.845518456412478*^9, 3.845518463828455*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"0b0e9396-4c8e-444c-a39f-638b85c404d8"],

Cell[BoxData[
 TemplateBox[{
  "\"NR/HEP2 Spring School Mathematica Code\"", 
   "https://blackholes.tecnico.ulisboa.pt/nrhep2/?page=material"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845518394051877*^9, 3.845518417186242*^9}, 
   3.845585392286866*^9, 3.8455854980794888`*^9, 3.845586111024597*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"0fb51af3-d19d-4aa8-baf3-022165209b0a"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Note about late-time wave tails on a dynamical background by Bizon and \
Rostworowski\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/0912.3474\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845598904781445*^9, 3.845598936064886*^9}},
 CellLabel->
  "In[509]:=",ExpressionUUID->"8d232602-a75b-4517-8526-e3e721fdedc0"],

Cell[BoxData[
 TemplateBox[{
  "\"Note about late-time wave tails on a dynamical background by Bizon and \
Rostworowski\"", "https://arxiv.org/abs/0912.3474"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845598938489151*^9, 3.845598945862949*^9}},
 CellLabel->
  "Out[509]=",ExpressionUUID->"49143256-e1cb-464c-90f4-aa0229cfffd2"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<On weakly turbulent instability of anti-de Sitter space by Bizon and \
Rostworowski\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/1104.3702\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845516881284339*^9, 3.8455168920345716`*^9}, {
   3.8455169900168543`*^9, 3.84551704793804*^9}, 3.845518417186616*^9},
 CellLabel->
  "In[150]:=",ExpressionUUID->"64f59593-9010-4e77-85e2-54a028ab1fdc"],

Cell[BoxData[
 TemplateBox[{
  "\"On weakly turbulent instability of anti-de Sitter space by Bizon and \
Rostworowski\"", "https://arxiv.org/abs/1104.3702"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8455170113802633`*^9, 3.845517047941031*^9}, 
   3.8455184171869373`*^9, 3.845585392327635*^9, 3.845585498097126*^9, 
   3.845586111049961*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"8af8c454-4585-46b1-9814-64b90522aafe"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Resonant dynamics and the instability of anti-de Sitter spacetime \
Piotr Bizon\>\"", ",", "\[IndentingNewLine]", "\t\t", 
   "\"\<https://arxiv.org/abs/1506.03519\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845516881284339*^9, 3.8455169215909157`*^9}, 
   3.845517047941437*^9, 3.845518417187223*^9},
 CellLabel->
  "In[151]:=",ExpressionUUID->"48e48c5d-a791-4210-b844-7bdc7fe296e0"],

Cell[BoxData[
 TemplateBox[{
  "\"Resonant dynamics and the instability of anti-de Sitter spacetime Piotr \
Bizon\"", "https://arxiv.org/abs/1506.03519"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.845516922096431*^9, 3.845517047944379*^9, 
  3.845518417187504*^9, 3.845585392347397*^9, 3.845585498131772*^9, 
  3.8455861110829773`*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"d41fa40f-67a2-4a6b-89bc-1a91a0f81d2b"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<AdS instability:resonant system for gravitational perturbations of \
AdS5 in the cohomogeneity-two biaxial Bianchi IX ansatz\>\"", ",", 
   "\"\<https://arxiv.org/abs/2002.08393\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{
  3.845516881284339*^9, {3.8455169255904207`*^9, 3.845516978255439*^9}, 
   3.84551704794483*^9, 3.845518417187779*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"7675adf7-0758-4e1f-a4d3-56d2a780e801"],

Cell[BoxData[
 TemplateBox[{
  "\"AdS instability:resonant system for gravitational perturbations of AdS5 \
in the cohomogeneity-two biaxial Bianchi IX ansatz\"", 
   "https://arxiv.org/abs/2002.08393"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.845516964015625*^9, 3.8455169788515167`*^9}, 
   3.845517047947425*^9, 3.8455184171880617`*^9, 3.845585392388962*^9, 
   3.845585498149338*^9, 3.845586111105899*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"f4afb489-8d38-4bbb-96d7-faedc27bae02"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.8250739058414927`*^9},ExpressionUUID->"0d173c8b-73fe-486f-b19b-\
9ffb684517df"],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.8240321504830923`*^9, 3.824644897068892*^9, 
   3.8246463742055273`*^9, 3.824647482059079*^9, 3.824807973381401*^9, 
   3.82480834064183*^9, 3.824809928734603*^9, 3.824815881238413*^9, 
   3.824898740926771*^9, 3.824898787208027*^9, 3.824913941101017*^9, 
   3.825052526731217*^9, {3.825055438402112*^9, 3.8250554555377913`*^9}, 
   3.8250681298197813`*^9, 3.825073905841834*^9, 3.8250790174187737`*^9, 
   3.845039302977247*^9, 3.84506651271776*^9, 3.845066633648234*^9, 
   3.8455853931166563`*^9, 3.845585498343967*^9, 3.845586111316538*^9},
 CellLabel->
  "During evaluation of \
In[153]:=",ExpressionUUID->"a9b3d8dc-9d2d-4b13-a138-a8a9fc62acd8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"656 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "656 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.8240321504830923`*^9, 3.824644897068892*^9, 
   3.8246463742055273`*^9, 3.824647482059079*^9, 3.824807973381401*^9, 
   3.82480834064183*^9, 3.824809928734603*^9, 3.824815881238413*^9, 
   3.824898740926771*^9, 3.824898787208027*^9, 3.824913941101017*^9, 
   3.825052526731217*^9, {3.825055438402112*^9, 3.8250554555377913`*^9}, 
   3.8250681298197813`*^9, 3.825073905841834*^9, 3.8250790174187737`*^9, 
   3.845039302977247*^9, 3.84506651271776*^9, 3.845066633648234*^9, 
   3.8455853931166563`*^9, 3.845585498343967*^9, 3.84558611132546*^9},
 CellLabel->
  "During evaluation of \
In[153]:=",ExpressionUUID->"7313a08b-8023-4388-9df7-0693db21a09b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"Parallel`Debug`Perfmon`\"\>", ",", "\<\"Parallel`Debug`\"\>", 
   ",", "\<\"VariationalMethods`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.824032150486408*^9, 3.824644897072461*^9, 
   3.824646374209741*^9, 3.824647482062592*^9, 3.824807973384735*^9, 
   3.824808340647233*^9, 3.824809928738296*^9, 3.8248158812423058`*^9, 
   3.8248987409310837`*^9, 3.824898787212446*^9, 3.824913941106472*^9, 
   3.82505252673494*^9, {3.8250554384068213`*^9, 3.825055455542811*^9}, 
   3.825068129823645*^9, 3.8250739058420258`*^9, 3.825079017425845*^9, 
   3.845039302990634*^9, 3.845066512722454*^9, 3.845066633653267*^9, 
   3.845585393133884*^9, 3.845585498360445*^9, 3.8455861113344793`*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"7b1edf1e-0d59-4ead-bbfc-c6c1894d409c"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.8250739058423147`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"40006501-5254-48af-aad6-c22c79269efe"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 3.824807751287888*^9, 
   3.8248156967874126`*^9},ExpressionUUID->"a587431b-27be-4217-bf1f-\
859757faa5e9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, {3.824032529537923*^9, 
   3.8240325755969877`*^9}, 3.824807751288042*^9, {3.824809025073007*^9, 
   3.824809029711959*^9}, {3.824809216502654*^9, 3.8248092321019506`*^9}, {
   3.8248092640072527`*^9, 3.824809268046013*^9}, 3.824815696787575*^9, {
   3.845600943469166*^9, 3.845600952644204*^9}},
 CellLabel->
  "In[743]:=",ExpressionUUID->"b60c34e2-0558-4914-9727-a886ef2bf790"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}], ",", 
   RowBox[{
    RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82403258232056*^9, 3.824644897158078*^9, 
  3.824646374242673*^9, 3.824647482166779*^9, 3.824807751288147*^9, 
  3.8248079734933023`*^9, 3.8248083406807423`*^9, 3.824809030387142*^9, 
  3.824809232576869*^9, 3.824809268459838*^9, 3.8248099287703533`*^9, 
  3.824815696787702*^9, 3.82481588131142*^9, 3.824898740961405*^9, 
  3.824898787243429*^9, 3.824913941177478*^9, 3.825052526843519*^9, 
  3.825055455568503*^9, 3.8250681299849863`*^9, 3.825079017528133*^9, 
  3.845039303065098*^9, 3.8450666337003508`*^9, 3.845585393253405*^9, 
  3.84558549841866*^9, 3.845586111412077*^9, 3.845600952863778*^9},
 CellLabel->
  "Out[745]=",ExpressionUUID->"91e5cd26-fba0-4216-9c14-516c640a4a9b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], "  "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.824807751288227*^9, 3.824815696787796*^9, {3.8249136324508667`*^9, 
   3.824913647897737*^9}, {3.825058218587964*^9, 3.825058240101057*^9}, {
   3.8250584124934998`*^9, 3.825058428739861*^9}, {3.845600962445035*^9, 
   3.8456009632224283`*^9}},ExpressionUUID->"9e090528-9a39-4997-8b43-\
741bb0be8161"]
}, 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->"12b2e238-11c8-40f4-9448-\
d4d2bddc2ce9"],

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[12]:=",ExpressionUUID->"b8de6375-f617-4a3f-b3e5-146fbbc275ed"],

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[14]:=",ExpressionUUID->"fbe2eeaf-855e-44c5-a0b0-eecfe97916c7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845518428824978*^9, 3.8455184441236353`*^9}, 
   3.845599247643956*^9, {3.845603141079755*^9, 
   3.845603141312188*^9}},ExpressionUUID->"8bfb426a-2196-43cf-9302-\
9cff53d24d7a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq2", "]"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox[
     SuperscriptBox["\[ScriptL]", "2"], 
     SuperscriptBox[
      RowBox[{"Cos", "[", "x", "]"}], "2"]], ")"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "A"}], " ", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "2"}], "\[Delta]"}], "]"}], " ", 
      SuperscriptBox["dt", "2"]}], "+", " ", 
     RowBox[{
      SuperscriptBox["A", 
       RowBox[{"-", "1"}]], " ", 
      SuperscriptBox["dx", "2"]}], " ", "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[", "x", "]"}], "2"], 
      RowBox[{"(", " ", 
       RowBox[{
        SuperscriptBox["d\[Theta]", "2"], "+", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         SuperscriptBox["d\[Phi]", "2"]}]}], ")"}]}]}], " ", 
    ")"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845517451802154*^9, 3.845517596494924*^9}, 
   3.845518436048687*^9, {3.84559897613338*^9, 3.845599048272832*^9}, 
   3.845599247644635*^9, {3.845603138217039*^9, 3.845603138761331*^9}},
 CellLabel->
  "In[841]:=",ExpressionUUID->"98463627-4273-4070-b8dd-d1d11a2faff2"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ScriptL]", "2"], " ", 
  SuperscriptBox[
   RowBox[{"Sec", "[", "x", "]"}], "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     SuperscriptBox["dx", "2"], "A"], "-", 
    RowBox[{"A", " ", 
     SuperscriptBox["dt", "2"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Delta]"}]]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", "x", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["d\[Theta]", "2"], "+", 
       RowBox[{
        SuperscriptBox["d\[Phi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845599039134418*^9, 3.84559904943636*^9}, 
   3.84559924764509*^9, 3.845603145543167*^9},
 CellLabel->
  "Out[842]=",ExpressionUUID->"ff8aec51-4acf-427f-9d60-b6eb21d44b92"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq2", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dx", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    " ", "]"}], " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845603276621089*^9, 3.84560328972045*^9}, 
   3.8456034740670357`*^9},
 CellLabel->
  "In[878]:=",ExpressionUUID->"b403a784-54fa-4d7e-98de-60609c334201"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", "A"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Delta]"}]], " ", 
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sec", "2"], "(", "x", ")"}]}], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ScriptL]", "2"], " ", 
         RowBox[{
          SuperscriptBox["sec", "2"], "(", "x", ")"}]}], "A"], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.845603290134337*^9, 3.8456034740727262`*^9},
 CellLabel->
  "Out[878]//TraditionalForm=",ExpressionUUID->"3bdaabfc-980b-4748-a782-\
7adcb733b45b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", "->", " ", 
      RowBox[{"A", "[", 
       RowBox[{"t", ",", "x"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]", "->", " ", 
      RowBox[{"\[Delta]", "[", 
       RowBox[{"t", ",", "x"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845603293274707*^9, 3.84560331471988*^9}, 
   3.8456034740731993`*^9},
 CellLabel->
  "In[879]:=",ExpressionUUID->"cca2909b-0ddf-4119-bfe5-e46616f534eb"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"A", "\[Rule]", 
       RowBox[{"A", "[", 
        RowBox[{"t", ",", "x"}], "]"}]}]},
     {
      RowBox[{"\[Delta]", "\[Rule]", 
       RowBox[{"\[Delta]", "[", 
        RowBox[{"t", ",", "x"}], "]"}]}]}
    },
    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.845603314981269*^9, 3.845603474078438*^9},
 CellLabel->
  "Out[881]//TableForm=",ExpressionUUID->"460ae7df-a077-4397-8f31-\
b703b563ae44"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"lineToMetric", "[", " ", 
       RowBox[{"eq2", " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"dt", ",", "dx", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}],
        " ", "]"}], "   ", "/.", " ", "eq2a"}], "  ", "//", " ", "Expand"}], 
    "  ", "//", " ", "Simplify"}]}], "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845517556243156*^9, 3.845517603541769*^9}, {
   3.8455176436383467`*^9, 3.8455176452226048`*^9}, 3.8455184360534353`*^9, {
   3.8455990536723127`*^9, 3.845599094248101*^9}, 3.845599247645434*^9, {
   3.845603150673897*^9, 3.845603151032877*^9}, {3.845603318752087*^9, 
   3.8456033271248407`*^9}},
 CellLabel->
  "In[885]:=",ExpressionUUID->"2b662c41-b1f1-4363-8288-6cd70edd9289"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]]}], ")"}]}], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ScriptL]", "2"], " ", 
         RowBox[{
          SuperscriptBox["sec", "2"], "(", "x", ")"}]}], 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.84551757495337*^9, 3.845517603813299*^9}, 
   3.8455176456379623`*^9, 3.8455184360573883`*^9, 3.8455853934800158`*^9, 
   3.8455854985195847`*^9, 3.845586111530842*^9, {3.845599058281705*^9, 
   3.845599094553912*^9}, 3.845599247650344*^9, 3.8456031516339483`*^9, {
   3.845603320694282*^9, 3.8456033274530163`*^9}},
 CellLabel->
  "Out[887]//TraditionalForm=",ExpressionUUID->"92c5f25b-8897-4b31-91f2-\
1330d853f713"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Tensors Associated With Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8209375013653803`*^9, 3.820937526701229*^9}, 
   3.8211102293506603`*^9, 3.845585552122425*^9, {3.845603196630748*^9, 
   3.845603196799285*^9}},ExpressionUUID->"25bf27bc-292b-4ef4-b550-\
1b3c7abc5481"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.819639535112979*^9, 3.819639560098693*^9}, 
   3.821109141509594*^9, 3.821109340369235*^9, 3.821110229350811*^9, {
   3.824511755669795*^9, 3.824511758917903*^9}, 3.8455855521231623`*^9},
 CellLabel->
  "In[892]:=",ExpressionUUID->"43057269-2532-4de1-a125-acf9b8594982"],

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[{
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", 
         "\[IndentingNewLine]", 
         RowBox[{"KretschmannScalar", "[", " ", 
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
           RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", 
        ";"}], "  ", "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], "\[IndentingNewLine]", 
    RowBox[{"(*", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}], "  ", "*)"}], " ", "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 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.845585552124074*^9, {
   3.845599133674869*^9, 3.845599141594143*^9}, {3.845603387582572*^9, 
   3.845603397734976*^9}},
 CellLabel->
  "In[893]:=",ExpressionUUID->"7aaec8a9-49a5-4af7-9518-f1e22d6f32d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "2.71", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2\>\"", ",", " ", "metric2", ",", " ", "\"\<AdS\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(ads\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "x", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8278816087737007`*^9, 
   3.8278816137482233`*^9}, {3.845585456118288*^9, 3.845585485765716*^9}, {
   3.845585531197863*^9, 3.845585552124702*^9}, {3.845599109786392*^9, 
   3.845599131655959*^9}, {3.845599181383666*^9, 3.845599187479436*^9}, {
   3.845603208791457*^9, 3.845603217199551*^9}, {3.845603408693511*^9, 
   3.845603422956699*^9}},ExpressionUUID->"af587151-e5fa-420d-b1da-\
84c6906ef671"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.706973`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8455855246016817`*^9, 3.845585552125226*^9}, 
   3.845586015862588*^9, 3.845586114249073*^9, 3.8455991759370337`*^9, 
   3.845603224355548*^9, {3.845603380650487*^9, 3.845603403374105*^9}},
 CellLabel->
  "Out[895]=",ExpressionUUID->"6ff0fba4-02b4-462f-b6cf-6adab3b57cb6"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.820937492203697*^9, 3.8211102293511972`*^9, 
  3.845585552125658*^9},
 CellLabel->
  "In[896]:=",ExpressionUUID->"1f85be18-bbd7-40e1-8ba0-f9e0294f1bc8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "ads"], "\[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], ",", "\<\"kretschmannscalarmetric2\"\>", ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", "\<\"cottonmetric2\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820932775365534*^9, 3.820933447849365*^9, 3.8209374922039557`*^9, 
   3.821110229351309*^9, 3.824381620902643*^9, 3.824381850166397*^9, 
   3.824382314366207*^9, 3.8245118421618633`*^9, 3.824514167829878*^9, 
   3.8278786350256853`*^9, 3.8278814012293863`*^9, 3.8279088611347723`*^9, 
   3.827912744356597*^9, 3.845585490565053*^9, {3.845585537627934*^9, 
   3.8455855521322203`*^9}, 3.845586015892373*^9, 3.845586114334689*^9, 
   3.8455991897125587`*^9, 3.845603224400443*^9, 3.845603403449185*^9},
 CellLabel->
  "Out[896]=",ExpressionUUID->"8eb7e101-7cda-4658-92fd-60fc5810b222"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.845585552132835*^9},
 CellLabel->
  "In[897]:=",ExpressionUUID->"7dea4380-c616-405b-911f-41e1d0fb83b6"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "ads"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, 3.827878635040415*^9, 3.827881401240424*^9, 
   3.827908861148841*^9, 3.827912744370165*^9, {3.8455855398181543`*^9, 
   3.845585552133233*^9}, 3.8455860159102907`*^9, 3.845586114360703*^9, 
   3.845599195591617*^9, 3.84560322443147*^9, 3.845603403471856*^9},
 CellLabel->
  "Out[897]=",ExpressionUUID->"f8f6ded8-c190-49fe-9f4b-4e29ffaa15c8"],

Cell[BoxData["\<\"AdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, 3.827878635040415*^9, 3.827881401240424*^9, 
   3.827908861148841*^9, 3.827912744370165*^9, {3.8455855398181543`*^9, 
   3.845585552133233*^9}, 3.8455860159102907`*^9, 3.845586114360703*^9, 
   3.845599195591617*^9, 3.84560322443147*^9, 3.845603403484264*^9},
 CellLabel->
  "Out[898]=",ExpressionUUID->"185e46aa-0978-4395-9e88-18594dad057d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]]}], ")"}]}], "0", "0", "0"},
      {"0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ScriptL]", "2"], " ", 
         RowBox[{
          SuperscriptBox["sec", "2"], "(", "x", ")"}]}], 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934602303184*^9, 3.820937492204216*^9, 3.821110229351462*^9, 
   3.824373536864538*^9, 3.824381620924634*^9, 3.8243818501805983`*^9, 
   3.824381939541747*^9, 3.824511842173975*^9, 3.824514167840876*^9, 
   3.8247511704751453`*^9, 3.827878635040415*^9, 3.827881401240424*^9, 
   3.827908861148841*^9, 3.827912744370165*^9, {3.8455855398181543`*^9, 
   3.845585552133233*^9}, 3.8455860159102907`*^9, 3.845586114360703*^9, 
   3.845599195591617*^9, 3.84560322443147*^9, 3.845603403496811*^9},
 CellLabel->
  "Out[899]//TraditionalForm=",ExpressionUUID->"bd52472e-a6da-4ce4-8fc1-\
27e9bdc40756"],

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", 10006.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.845585552134233*^9},
 CellLabel->
  "In[900]:=",ExpressionUUID->"fe043672-13f5-4394-bb2a-db1ec87d4e8e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, {3.84558553990525*^9, 
   3.845585552134603*^9}, 3.845586015975709*^9, 3.8455861144169273`*^9, 
   3.845599195666771*^9, 3.84560322447044*^9, 3.8456034035477133`*^9},
 CellLabel->
  "Out[900]=",ExpressionUUID->"d8a45c42-e9bd-4f28-b79c-6cd31b3389fe"],

Cell[BoxData["\<\"ChristoffelSymbolAdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, {3.84558553990525*^9, 
   3.845585552134603*^9}, 3.845586015975709*^9, 3.8455861144169273`*^9, 
   3.845599195666771*^9, 3.84560322447044*^9, 3.845603403558731*^9},
 CellLabel->
  "Out[901]=",ExpressionUUID->"11dfbd88-b73d-452c-9a72-74d316c1f8de"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {
            RowBox[{
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], "+", 
             RowBox[{"tan", "(", "x", ")"}]}]},
           {"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[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], "+", 
             RowBox[{"tan", "(", "x", ")"}]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}], 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"tan", "(", "x", ")"}], "-", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None]}], ")"}]}], "+", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None]}], ")"}]}]},
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]]}]},
           {"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[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]]}]},
           {
            RowBox[{
             RowBox[{"tan", "(", "x", ")"}], "-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]]}]},
           {"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[{"tan", "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], ")"}]}]},
           {"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[{"tan", "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"csc", "(", "x", ")"}], " ", 
             RowBox[{"sec", "(", "x", ")"}]}]},
           {"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[{"csc", "(", "x", ")"}], " ", 
             RowBox[{"sec", "(", "x", ")"}]}]},
           {"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"},
           {
            RowBox[{
             RowBox[{"csc", "(", "x", ")"}], " ", 
             RowBox[{"sec", "(", "x", ")"}]}]}
          },
          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"},
           {
            RowBox[{
             RowBox[{"csc", "(", "x", ")"}], " ", 
             RowBox[{"sec", "(", "x", ")"}]}]},
           {
            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", 10006.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, {3.84558553990525*^9, 
   3.845585552134603*^9}, 3.845586015975709*^9, 3.8455861144169273`*^9, 
   3.845599195666771*^9, 3.84560322447044*^9, 3.845603403570898*^9},
 CellLabel->
  "Out[902]//TraditionalForm=",ExpressionUUID->"3237902e-23f2-414b-bece-\
1fd8d69e20de"],

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", 10006.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.845585552135517*^9},
 CellLabel->
  "In[903]:=",ExpressionUUID->"a185b39d-a8a5-4e45-a9e8-0256bdb5ea1b"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, 3.82787863531532*^9, 3.8278814015069723`*^9, 
   3.827908861420949*^9, 3.827912744734424*^9, {3.84558553999238*^9, 
   3.8455855521358547`*^9}, 3.845586016030159*^9, 3.845586114489637*^9, 
   3.845599195776552*^9, 3.845603224529585*^9, 3.845603403591392*^9},
 CellLabel->
  "Out[903]=",ExpressionUUID->"ab523fbc-e5b3-44c8-b061-f0d7360ee392"],

Cell[BoxData["\<\"RiemannTensorAdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, 3.82787863531532*^9, 3.8278814015069723`*^9, 
   3.827908861420949*^9, 3.827912744734424*^9, {3.84558553999238*^9, 
   3.8455855521358547`*^9}, 3.845586016030159*^9, 3.845586114489637*^9, 
   3.845599195776552*^9, 3.845603224529585*^9, 3.845603403603215*^9},
 CellLabel->
  "Out[904]=",ExpressionUUID->"e7fea140-51fc-454f-b2be-a43e66981a85"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"tan", "(", "x", ")"}]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"tan", "(", "x", ")"}]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "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", "2"], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"tan", "(", "x", ")"}]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"tan", "(", "x", ")"}]}], "-", 
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"tan", "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], "+", 
               RowBox[{"2", " ", 
                RowBox[{"tan", "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"tan", "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], "+", 
               RowBox[{"2", " ", 
                RowBox[{"tan", "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "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", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], "+", 
               RowBox[{"2", " ", 
                RowBox[{"tan", "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"tan", "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "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[{
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{
             SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ScriptL]", "2"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{
             SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], "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", "2"]}], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"tan", "(", "x", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"tan", "(", "x", ")"}], "-", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], ")"}]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"tan", "(", "x", ")"}], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], "+", 
               RowBox[{"2", " ", 
                RowBox[{"tan", "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"tan", "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]]}], "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["\[ScriptL]", "2"]}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{
             SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            SuperscriptBox["\[ScriptL]", "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{
             SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934623837241*^9, 3.820937492205323*^9, 3.821110229352366*^9, 
   3.824373536865405*^9, 3.824381621264045*^9, 3.824381850457645*^9, 
   3.824381939542604*^9, 3.8245118424513693`*^9, 3.8245141681144238`*^9, 
   3.8247511704762497`*^9, 3.82787863531532*^9, 3.8278814015069723`*^9, 
   3.827908861420949*^9, 3.827912744734424*^9, {3.84558553999238*^9, 
   3.8455855521358547`*^9}, 3.845586016030159*^9, 3.845586114489637*^9, 
   3.845599195776552*^9, 3.845603224529585*^9, 3.845603403972925*^9},
 CellLabel->
  "Out[905]//TraditionalForm=",ExpressionUUID->"3089e185-0a11-4340-9d92-\
855d24da1051"],

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", 10006.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.845585552136963*^9},
 CellLabel->
  "In[906]:=",ExpressionUUID->"1723a750-37ec-45ae-b4c0-c07eccfa7cff"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, 3.8278786393795643`*^9, 3.82788140534545*^9, 
   3.8279088652533417`*^9, 3.8279127491644907`*^9, {3.845585540432776*^9, 
   3.8455855521374197`*^9}, 3.845586016095845*^9, 3.8455861149152813`*^9, 
   3.8455991964462423`*^9, 3.84560322465062*^9, 3.845603404012149*^9},
 CellLabel->
  "Out[906]=",ExpressionUUID->"b246e25a-1c02-46b8-b44e-ba8227a27648"],

Cell[BoxData["\<\"RicciTensorAdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, 3.8278786393795643`*^9, 3.82788140534545*^9, 
   3.8279088652533417`*^9, 3.8279127491644907`*^9, {3.845585540432776*^9, 
   3.8455855521374197`*^9}, 3.845586016095845*^9, 3.8455861149152813`*^9, 
   3.8455991964462423`*^9, 3.84560322465062*^9, 3.8456034040244093`*^9},
 CellLabel->
  "Out[907]=",ExpressionUUID->"e808426d-a49e-4027-9fa1-b8b7fb4baca3"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"tan", "(", "x", ")"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"csc", "(", "x", ")"}], " ", 
                RowBox[{"sec", "(", "x", ")"}]}]}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}], "+", 
            RowBox[{"3", " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"tan", "(", "x", ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"csc", "(", "x", ")"}], " ", 
                RowBox[{"sec", "(", "x", ")"}]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], "2"]}]], 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"sec", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]]}], "0", "0"},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"sec", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]]}], 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Delta]", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None], "+", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "-", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"tan", "(", "x", ")"}], "+", 
                RowBox[{
                 RowBox[{"csc", "(", "x", ")"}], " ", 
                 RowBox[{"sec", "(", "x", ")"}]}]}], ")"}]}], "-", 
             RowBox[{"3", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], ")"}]}]}], 
         RowBox[{"2", " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], 
         SuperscriptBox[
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], "4"]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Delta]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["x", "2"]}],
         MultilineFunction->None], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None], ")"}], "2"], "+", 
        RowBox[{
         RowBox[{"tan", "(", "x", ")"}], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Delta]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}],
          MultilineFunction->None]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{
          SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              RowBox[{"tan", "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}]}], "+", 
        RowBox[{
         RowBox[{"tan", "(", "x", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None]}], ")"}]}], "+", "1"}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"tan", "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None]}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"tan", "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None]}], "-", "1"}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934645395719*^9, 3.8209374922057543`*^9, 3.82111022935266*^9, 
   3.8243735368658533`*^9, 3.824381626124463*^9, 3.824381854371036*^9, 
   3.824381939543002*^9, 3.824511846625956*^9, 3.8245141719213133`*^9, 
   3.824751170476756*^9, 3.8278786393795643`*^9, 3.82788140534545*^9, 
   3.8279088652533417`*^9, 3.8279127491644907`*^9, {3.845585540432776*^9, 
   3.8455855521374197`*^9}, 3.845586016095845*^9, 3.8455861149152813`*^9, 
   3.8455991964462423`*^9, 3.84560322465062*^9, 3.84560340411572*^9},
 CellLabel->
  "Out[908]//TraditionalForm=",ExpressionUUID->"326d10bd-a97b-4f9b-9020-\
a331b211eccd"],

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", 10006.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.845585552138566*^9},
 CellLabel->
  "In[909]:=",ExpressionUUID->"5f76c77b-f6ed-4821-a8ac-c31b98f1d3b3"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, 3.8278786396295547`*^9, 3.827881405580286*^9, 
   3.827908865485321*^9, 3.827912749411972*^9, {3.845585540558228*^9, 
   3.84558555213894*^9}, 3.845586016147832*^9, 3.845586115046335*^9, 
   3.845599196737732*^9, 3.84560322470395*^9, 3.845603404135212*^9},
 CellLabel->
  "Out[909]=",ExpressionUUID->"cb2aa614-2346-4502-9f11-f98e57604a44"],

Cell[BoxData["\<\"RicciScalarAdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, 3.8278786396295547`*^9, 3.827881405580286*^9, 
   3.827908865485321*^9, 3.827912749411972*^9, {3.845585540558228*^9, 
   3.84558555213894*^9}, 3.845586016147832*^9, 3.845586115046335*^9, 
   3.845599196737732*^9, 3.84560322470395*^9, 3.845603404145759*^9},
 CellLabel->
  "Out[910]=",ExpressionUUID->"1c88349f-ab41-4d16-9ea3-6df12d8f8472"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox["\[ScriptL]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"A", "(", 
        RowBox[{"t", ",", "x"}], ")"}], "3"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        RowBox[{
         SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Delta]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["t", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Delta]", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}]}], ")"}]}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             RowBox[{
              SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"4", " ", 
             RowBox[{"cot", "(", "x", ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"sin", "(", "x", ")"}], " ", 
             RowBox[{"cos", "(", "x", ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cot", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["csc", "2"], "(", "x", ")"}], "+", "5"}], 
            ")"}]}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "x"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"sin", "(", 
             RowBox[{"2", " ", "x"}], ")"}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"cot", "(", "x", ")"}]}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{
        SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Delta]", "(", 
          RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], ")"}], "2"]}]}], ")"}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.8209346543102093`*^9, 3.820937492206188*^9, 3.821110229352955*^9, 
   3.82437353686622*^9, 3.8243816263835297`*^9, 3.824381854615872*^9, 
   3.8243819395433826`*^9, 3.824511846864684*^9, 3.824514172146737*^9, 
   3.8247511704772167`*^9, 3.8278786396295547`*^9, 3.827881405580286*^9, 
   3.827908865485321*^9, 3.827912749411972*^9, {3.845585540558228*^9, 
   3.84558555213894*^9}, 3.845586016147832*^9, 3.845586115046335*^9, 
   3.845599196737732*^9, 3.84560322470395*^9, 3.8456034041896877`*^9},
 CellLabel->
  "Out[911]//TraditionalForm=",ExpressionUUID->"236df8ce-a0a8-4272-a83a-\
08f813cac381"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "6", "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorName", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "6", "]"}], "]"}], "]"}]}], " ", "//", " ", 
    "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.827662880133422*^9, 
   3.827662883948599*^9}, {3.827881581825639*^9, 3.8278815881690893`*^9}, 
   3.845585552139902*^9, {3.8455992049589653`*^9, 3.84559920881678*^9}, {
   3.845603429253319*^9, 3.845603433421081*^9}},
 CellLabel->
  "In[924]:=",ExpressionUUID->"e7534036-11ed-4b1a-b3a2-4c61f549b653"],

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", 10006.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.8455855521401854`*^9},
 CellLabel->
  "In[915]:=",ExpressionUUID->"790b97db-e1a8-42ab-8493-fd18c7b88761"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, {3.845585540667913*^9, 
   3.84558555214051*^9}, 3.8455860162259502`*^9, 3.845586115149755*^9, 
   3.845599196905765*^9, 3.845603224799446*^9, 3.8456034043019123`*^9},
 CellLabel->
  "Out[915]=",ExpressionUUID->"85c36a82-aff4-4531-9d32-7188043cb079"],

Cell[BoxData["\<\"EinsteinTensorAdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, {3.845585540667913*^9, 
   3.84558555214051*^9}, 3.8455860162259502`*^9, 3.845586115149755*^9, 
   3.845599196905765*^9, 3.845603224799446*^9, 3.845603404313128*^9},
 CellLabel->
  "Out[916]=",ExpressionUUID->"29634878-a0d8-4976-bf0c-f26e7b73b728"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["csc", "2"], "(", "x", ")"}], "+", "2"}], ")"}], 
           " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"cot", "(", "x", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], "-", 
             RowBox[{"cot", "(", "x", ")"}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"sec", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]]}], "0", "0"},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"sec", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]]}], 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"sec", "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"csc", "(", "x", ")"}]}], ")"}]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"csc", "(", "x", ")"}], " ", 
             RowBox[{"sec", "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["csc", "2"], "(", 
             RowBox[{"2", " ", "x"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}]}], "0", 
       "0"},
      {"0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "2"]], "+", 
          RowBox[{"2", " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "+", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
               ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"3", " ", 
              RowBox[{
               SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
          
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}], 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "3"]], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
               ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}]}], "-", 
             RowBox[{"3", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                ")"}], " ", 
               RowBox[{"tan", "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"3", " ", 
               RowBox[{
                SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                   ")"}], " ", 
                  RowBox[{"tan", "(", "x", ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, {3.845585540667913*^9, 
   3.84558555214051*^9}, 3.8455860162259502`*^9, 3.845586115149755*^9, 
   3.845599196905765*^9, 3.845603224799446*^9, 3.845603404427919*^9},
 CellLabel->
  "Out[917]//TraditionalForm=",ExpressionUUID->"e750a936-f3f5-4cb7-ab9b-\
92d47af601f6"],

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", 10006.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.845585552141568*^9},
 CellLabel->
  "In[918]:=",ExpressionUUID->"955b5ef4-80cb-484c-87c4-d3101b3d3c8b"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, {3.845585540844754*^9, 
   3.8455855521418324`*^9}, 3.845586016296338*^9, 3.845586115344173*^9, 
   3.845599197131218*^9, 3.845603224845093*^9, 3.845603404533465*^9},
 CellLabel->
  "Out[918]=",ExpressionUUID->"c8728755-a07d-4948-9597-7382889d8bd6"],

Cell[BoxData["\<\"WeylTensorAdS\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, {3.845585540844754*^9, 
   3.8455855521418324`*^9}, 3.845586016296338*^9, 3.845586115344173*^9, 
   3.845599197131218*^9, 3.845603224845093*^9, 3.8456034045460587`*^9},
 CellLabel->
  "Out[919]=",ExpressionUUID->"110118ab-3070-4661-b1c0-5d35f024e6eb"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "+", 
                  RowBox[{
                   RowBox[{"cot", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["csc", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cot", "(", "x", ")"}]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["csc", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "+", 
                   RowBox[{
                    RowBox[{"cot", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["csc", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cot", "(", "x", ")"}]}]}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["csc", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "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[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "2"]}]]}], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "2"]}]], "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[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "2"]}]]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "2"]}]], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "+", 
                   RowBox[{
                    RowBox[{"cot", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["csc", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None], "-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cot", "(", "x", ")"}]}]}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["csc", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "+", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"], "+", 
                  RowBox[{
                   RowBox[{"cot", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["csc", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None], "-", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cot", "(", "x", ")"}]}]}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["csc", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "4"]}]], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "4"]}]]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "4"]}]]},
          {"0", "0", "0", "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "4"]}]]}], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "2"]}]], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "2"]}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "4"]}]]}], "0"},
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "4"]}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{
               SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", "x"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"sin", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"sin", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cos", "(", "x", ")"}]}]}], ")"}]}], "-", "2"}], 
                  ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{
              SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"sin", "(", 
                    RowBox[{"2", " ", "x"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"sin", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"sin", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cos", "(", "x", ")"}]}]}], ")"}]}], "-", "2"}], 
                 ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]}]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "2"]}]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "2"]}]]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
                "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
                "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"12", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "4"]}]]}]},
          {"0", "0", "0", "0"},
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{
                   SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"tan", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"tan", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], 
               "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "4"]}]], "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ScriptL]", "2"], " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{
              SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"sin", "(", 
                    RowBox[{"2", " ", "x"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{
                   RowBox[{"sin", "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"sin", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cos", "(", "x", ")"}]}]}], ")"}]}], "-", "2"}], 
                 ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]}]]},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ScriptL]", "2"], " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{
               SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", "x"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{
                    RowBox[{"sin", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    RowBox[{"sin", "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"cos", "(", "x", ")"}]}]}], ")"}]}], "-", "2"}], 
                  ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
             RowBox[{"6", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, {3.845585540844754*^9, 
   3.8455855521418324`*^9}, 3.845586016296338*^9, 3.845586115344173*^9, 
   3.845599197131218*^9, 3.845603224845093*^9, 3.845603405603484*^9},
 CellLabel->
  "Out[920]//TraditionalForm=",ExpressionUUID->"adaf65f9-5505-47d5-997e-\
44d825016520"],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "9", "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorName", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "9", "]"}], "]"}], "]"}]}], " ", "//", " ", 
    "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, 
   3.845585552142726*^9, {3.8455992130671263`*^9, 3.8455992177685204`*^9}, {
   3.845603440109169*^9, 3.845603444014083*^9}},
 CellLabel->
  "In[925]:=",ExpressionUUID->"d218c9da-e5b4-4185-8626-22abef30f5fa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Vacuum Field Equations For Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825370385659924*^9, 3.82537042618808*^9}, {
   3.825432504945663*^9, 3.825432514728696*^9}, 3.825435251350389*^9, {
   3.8278803536734543`*^9, 3.8278803788971043`*^9}, {3.8455881222685623`*^9, 
   3.845588127765039*^9}, {3.845603359092393*^9, 
   3.845603359243388*^9}},ExpressionUUID->"0f8035b1-f27b-4997-b52e-\
d142c9f957e8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroRicci", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825431523906328*^9, 3.825431542481595*^9}, 
   3.825432499771943*^9, {3.827878572899869*^9, 3.827878576866337*^9}, 
   3.8278803788974257`*^9, {3.845585602432617*^9, 3.8455856045496073`*^9}},
 CellLabel->
  "In[926]:=",ExpressionUUID->"303b2d8f-8299-4c36-bb69-fff0e6707626"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"tan", "(", "x", ")"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"csc", "(", "x", ")"}], " ", 
                RowBox[{"sec", "(", "x", ")"}]}]}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}], "+", 
            RowBox[{"3", " ", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["x", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"3", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"tan", "(", "x", ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"csc", "(", "x", ")"}], " ", 
                RowBox[{"sec", "(", "x", ")"}]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], "2"]}]]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"sec", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Delta]", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None], "+", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}], "-", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"tan", "(", "x", ")"}], "+", 
                RowBox[{
                 RowBox[{"csc", "(", "x", ")"}], " ", 
                 RowBox[{"sec", "(", "x", ")"}]}]}], ")"}]}], "-", 
             RowBox[{"3", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], ")"}]}]}], 
         RowBox[{"2", " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], ")"}], "2"]}], 
         SuperscriptBox[
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], "4"]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"\[Delta]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["x", "2"]}],
         MultilineFunction->None], "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None], ")"}], "2"], "+", 
        RowBox[{
         RowBox[{"tan", "(", "x", ")"}], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Delta]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}],
          MultilineFunction->None]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{
          SuperscriptBox["sec", "2"], "(", "x", ")"}]}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              RowBox[{"tan", "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}]}], "+", 
        RowBox[{
         RowBox[{"tan", "(", "x", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None]}], ")"}]}], "+", "1"}]},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{"tan", "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None]}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["tan", "2"], "(", "x", ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"tan", "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None]}], "-", "1"}], ")"}]}]}
     },
     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", 10005.},
 CellChangeTimes->{
  3.825431543441904*^9, 3.825432499772155*^9, 3.825435079884231*^9, 
   3.827837755628983*^9, 3.827841206934636*^9, 3.827868459070862*^9, 
   3.827878642314026*^9, 3.827880378897513*^9, 3.827881407844583*^9, 
   3.827908867795082*^9, 3.82791275197268*^9, {3.845585578649754*^9, 
   3.845585605153645*^9}, 3.845586116739484*^9, 3.845599272857728*^9, 
   3.8456034478884497`*^9},
 CellLabel->
  "Out[928]//TraditionalForm=",ExpressionUUID->"8e1318dc-a84f-40a4-b5c3-\
636dba67dd30"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "3"}], "]"}], "]"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825431414757538*^9, 3.825431415990245*^9}, {
   3.8254314525403976`*^9, 3.825431514201144*^9}, 3.8254324997726727`*^9, {
   3.827878582868266*^9, 3.827878585658217*^9}, 3.827880378897749*^9, {
   3.845585584262619*^9, 3.845585586055831*^9}},
 CellLabel->
  "In[929]:=",ExpressionUUID->"7061672b-f7cf-4a08-9208-9399ef948dff"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["csc", "2"], "(", "x", ")"}], "+", "2"}], ")"}], 
           " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"cot", "(", "x", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], "-", 
             RowBox[{"cot", "(", "x", ")"}]}], ")"}]}]}], ")"}]}]},
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"sec", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"csc", "(", "x", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"sec", "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"csc", "(", "x", ")"}]}], ")"}]}], 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "x"}], ")"}]], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"csc", "(", "x", ")"}], " ", 
             RowBox[{"sec", "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None]}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["csc", "2"], "(", 
             RowBox[{"2", " ", "x"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}]}]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "2"]], "+", 
          RowBox[{"2", " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}]}], "+", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
               ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"3", " ", 
              RowBox[{
               SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
          
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["x", "2"]}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}], 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "3"]], "+", 
          RowBox[{
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
               ")"}], " ", 
              RowBox[{"tan", "(", "x", ")"}]}], "-", 
             RowBox[{"3", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["t", "2"]}],
               MultilineFunction->None], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                ")"}], " ", 
               RowBox[{"tan", "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"3", " ", 
               RowBox[{
                SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["x", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                   ")"}], " ", 
                  RowBox[{"tan", "(", "x", ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], "3"]}]]}
     },
     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", 10005.},
 CellChangeTimes->{{3.8254314306888933`*^9, 3.82543147049879*^9}, 
   3.825431514684389*^9, 3.825432499772819*^9, 3.8254350799598007`*^9, 
   3.827837755703456*^9, 3.8278412069878407`*^9, 3.827868459129487*^9, 
   3.827878642587531*^9, 3.8278803788978243`*^9, 3.8278814080663567`*^9, 
   3.827908868031024*^9, 3.827912752229446*^9, {3.8455855788447113`*^9, 
   3.845585586596191*^9}, 3.845586116900386*^9, 3.8455992731296253`*^9, 
   3.845603448065236*^9},
 CellLabel->
  "Out[931]//TraditionalForm=",ExpressionUUID->"ad102e62-7f2d-4a96-b623-\
71b930bb1fc3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Massive Scalar Field Stress Energy Tensor ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829314736147303*^9, 3.8293147582183743`*^9}, 
   3.845586194805921*^9, {3.845603951044022*^9, 
   3.84560395203653*^9}},ExpressionUUID->"59c65917-2166-4c17-9c10-\
54bbccda714c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "phi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"phi", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[Phi]\>\""}], "}"}], " ", ",", 
    " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"\[Phi]", "[", 
     RowBox[{"t", ",", "x"}], "]"}]}], " ", "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8293131000456657`*^9, 3.829313132755116*^9}, 
   3.8293141813417463`*^9, 3.82931485882617*^9, {3.8455861394701138`*^9, 
   3.8455861492036753`*^9}, 3.845586194806304*^9, {3.845600117828514*^9, 
   3.845600118060166*^9}, {3.8456035143415613`*^9, 3.845603514549099*^9}},
 CellLabel->
  "In[932]:=",ExpressionUUID->"26122b82-04c3-4766-888c-46e3f0dbe0e3"],

Cell[BoxData[
 TagBox["\<\"\[Phi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8455861169234533`*^9, 3.845586149878924*^9, 
  3.845586194806569*^9, 3.845599332066615*^9, 3.8456001187197733`*^9, 
  3.845603515647482*^9},
 CellLabel->
  "Out[933]=",ExpressionUUID->"c4d7b717-53ef-4270-920c-7809cd8b25f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "with", " ", "\[Mu]", " ", "set", " ", "equal", 
    " ", "to", " ", "zero"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "Ts", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ts", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TensorValues", "[", 
       RowBox[{"MergeTensors", "[", 
        RowBox[{
         RowBox[{"CovariantD", "[", " ", 
          RowBox[{"phi", ",", 
           RowBox[{"-", "\[Alpha]"}]}], "]"}], " ", 
         RowBox[{"CovariantD", "[", " ", 
          RowBox[{"phi", ",", 
           RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], "]"}], " ", "+", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
       RowBox[{"TensorValues", "[", 
        RowBox[{"MergeTensors", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], " ", 
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{"phi", ",", 
            RowBox[{"-", "\[Mu]"}]}], "]"}], " ", 
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{"phi", ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], "  ", 
          RowBox[{
           RowBox[{"tensorList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "[", 
           RowBox[{
            RowBox[{"-", "\[Alpha]"}], ",", 
            RowBox[{"-", "\[Beta]"}]}], "]"}]}], " ", "]"}], " ", "]"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ts", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
    "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829313143778439*^9, 3.829313215757373*^9}, 
   3.829314181341981*^9, {3.8293143551481123`*^9, 3.829314369826817*^9}, {
   3.8293146393332653`*^9, 3.82931468252326*^9}, {3.829314742326523*^9, 
   3.829314767178834*^9}, 3.8455861948069067`*^9, {3.845603538492889*^9, 
   3.8456035499567223`*^9}, {3.845603632991246*^9, 3.8456036725028553`*^9}, {
   3.845603709300571*^9, 3.845603788061097*^9}},
 CellLabel->
  "In[946]:=",ExpressionUUID->"6770a280-3bac-452b-89b9-10472cb0d98e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox[
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], "2"], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Phi]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], ")"}], "2"]}], 
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Phi]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Phi]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", "x"}],
         MultilineFunction->None]}], "0", "0"},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Phi]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", "t"}],
         MultilineFunction->None], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Phi]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", "x"}],
         MultilineFunction->None]}], 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Phi]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], ")"}], "2"]}], 
            SuperscriptBox[
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], "2"]], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Phi]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None], ")"}], "2"]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}], 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]], "-", 
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"]}], 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]], "-", 
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              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", 10006.},
 CellChangeTimes->{
  3.829314207160973*^9, 3.829314370286921*^9, {3.829314665784196*^9, 
   3.8293146829700336`*^9}, {3.829314742326665*^9, 3.829314767743691*^9}, 
   3.845586117059617*^9, 3.845586154820393*^9, 3.8455861948071938`*^9, 
   3.845599334799247*^9, 3.8456001214833593`*^9, 3.8456035509505663`*^9, 
   3.8456036736258297`*^9, {3.845603757089293*^9, 3.845603788616519*^9}},
 CellLabel->
  "Out[948]//TraditionalForm=",ExpressionUUID->"3c390df4-af83-40fa-8245-\
45c5a8e2b8f0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "massTerm", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massTerm", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", "1"}], "2"], ")"}], "*", 
    SuperscriptBox["\[Mu]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Phi]", "[", 
      RowBox[{"t", ",", "x"}], "]"}], "2"], 
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"massTerm", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.845603561190918*^9, 3.8456035625887947`*^9}, {
   3.845603802853497*^9, 3.8456038811488657`*^9}, {3.845603923484871*^9, 
   3.845603925156983*^9}, 3.845604002491283*^9},
 CellLabel->
  "In[963]:=",ExpressionUUID->"1e4a0c49-2b71-430d-90c5-ed545dc94e15"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[Mu]", "2"], " ", 
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Delta]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"\[Phi]", "(", 
          RowBox[{"t", ",", "x"}], ")"}], "2"]}], "0", "0", "0"},
      {"0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[Mu]", "2"], " ", 
          SuperscriptBox["\[ScriptL]", "2"], " ", 
          RowBox[{
           SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
          SuperscriptBox[
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}], "2"]}], 
         RowBox[{"2", " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]]}], "0", "0"},
      {"0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[Mu]", "2"], " ", 
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Phi]", "(", 
          RowBox[{"t", ",", "x"}], ")"}], "2"]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        SuperscriptBox["\[Mu]", "2"], " ", 
        SuperscriptBox["\[ScriptL]", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{
         SuperscriptBox["tan", "2"], "(", "x", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Phi]", "(", 
          RowBox[{"t", ",", "x"}], ")"}], "2"]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8456038100310163`*^9, 3.845603881419322*^9}, 
   3.8456039262189713`*^9, 3.84560400249685*^9},
 CellLabel->
  "Out[965]//TraditionalForm=",ExpressionUUID->"524b2415-220e-4f1a-a4b8-\
160776d539b8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalT]s", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalT]s", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{"\"\<\[ScriptCapitalT]s\>\"", " ", ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"Ts", "+", "massTerm"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Mu]"}], ",", 
      RowBox[{"-", "\[Nu]"}]}], "}"}]}], "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8293147115636272`*^9, 3.829314742326844*^9}, 
   3.845586194807691*^9, {3.845603889605404*^9, 3.8456038910246983`*^9}},
 CellLabel->
  "In[958]:=",ExpressionUUID->"42875fad-092b-495e-b57a-b49d91ded860"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[ScriptCapitalT]s", "\[Mu]\[Nu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829314721829472*^9, 3.829314771202056*^9}, 
   3.845586117085689*^9, 3.845586160974646*^9, 3.8455861948079863`*^9, 
   3.845599381237672*^9, 3.845600125479638*^9, 3.845603891704419*^9},
 CellLabel->
  "Out[959]=",ExpressionUUID->"4bf5467e-14ea-4695-a002-ff8da7295506"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Divergenge", " ", "of", " ", "Stress", " ", "Energy", " ", "Tensor", " ", 
    "Shoul", " ", "Be", " ", "Zero"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "divergenceSET", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divergenceSET", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"CovariantD", "[", " ", 
          RowBox[{
           RowBox[{"\[ScriptCapitalT]s", "[", 
            RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ",", 
           RowBox[{"-", "\[Nu]"}]}], "]"}], " ", "//", " ", "MergeTensors"}], 
        " ", "//", " ", "TensorValues"}], "   ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"divergenceSET", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
    "pdConv"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.829314773469776*^9, 3.829314847204603*^9}, {
  3.845586194808288*^9, 3.845586239493534*^9}, {3.8455862889995937`*^9, 
  3.845586291901491*^9}},
 CellLabel->
  "In[960]:=",ExpressionUUID->"8ad202a2-3eb3-421a-ac2a-3387f75076d4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", 
    TagBox[GridBox[{
       {
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Phi]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Phi]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"cot", "(", "x", ")"}]}]}], ")"}]}], "-", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["x", "2"]}],
                 MultilineFunction->None]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{
              SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Delta]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox["\[ScriptL]", "2"], " ", 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], "-", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
         RowBox[{
          SuperscriptBox["\[ScriptL]", "4"], " ", 
          SuperscriptBox[
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}], "3"]}]]},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Phi]", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "x"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Phi]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Phi]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"cot", "(", "x", ")"}]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Phi]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Phi]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox["\[ScriptL]", "2"], " ", 
                 RowBox[{"\[Phi]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Phi]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["\[ScriptL]", "4"], " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}]]}]},
       {"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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8293147982129297`*^9, 3.8293148472048597`*^9}, 
   3.845586117171733*^9, 3.845586163873145*^9, 3.845586194808598*^9, 
   3.8455862415201397`*^9, 3.845586292387897*^9, 3.8455896288316307`*^9, 
   3.8455993394587507`*^9, 3.8455993831812477`*^9, 3.845600127653256*^9, 
   3.845603896995763*^9},
 CellLabel->
  "Out[962]//TraditionalForm=",ExpressionUUID->"908fdde7-997e-4a6b-9005-\
6cc401af2b49"]
}, Closed]],

Cell[CellGroupData[{

Cell["Field Equations With Matter For Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{{3.845599607387968*^9, 3.845599635863781*^9}, {
  3.84560397072961*^9, 
  3.8456039857717543`*^9}},ExpressionUUID->"d4be9280-8aae-4c8e-9f9e-\
662f5601f963"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "fieldEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"TensorValues", "[", 
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "7", "]"}], "]"}], "]"}], "+", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "3"}], 
           SuperscriptBox["\[ScriptL]", "2"]], ")"}], 
         RowBox[{"TensorValues", "[", 
          RowBox[{"tensorList", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}], "]"}], 
     "\[IndentingNewLine]", "==", " ", 
     RowBox[{
      RowBox[{"(", "2", " ", ")"}], "*", " ", 
      RowBox[{"Flatten", "[", "Ts", "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{{3.845599524023362*^9, 3.845599620131898*^9}, {
  3.845600041877822*^9, 3.845600047293715*^9}, {3.845604376979567*^9, 
  3.845604401722499*^9}, {3.845604635403167*^9, 3.845604636546529*^9}},
 CellLabel->
  "In[1017]:=",ExpressionUUID->"d073d3d1-9ad8-4f86-8027-77d4056d8af9"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"3", " ", 
          RowBox[{
           SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]]}], "-", 
         RowBox[{
          RowBox[{
           SuperscriptBox["sec", "2"], "(", "x", ")"}], " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["csc", "2"], "(", "x", ")"}], "+", "2"}], 
              ")"}], " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"cot", "(", "x", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}], 
                RowBox[{"\[PartialD]", "x"}],
                MultilineFunction->None], "-", 
               RowBox[{"cot", "(", "x", ")"}]}], ")"}]}]}], ")"}]}]}], 
        "\[LongEqual]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], "2"], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Delta]", "(", 
                  RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Phi]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None], ")"}], "2"]}], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"csc", "(", "x", ")"}], " ", 
           RowBox[{"sec", "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]]}], "\[LongEqual]", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}],
          MultilineFunction->None]}]}]},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"csc", "(", "x", ")"}], " ", 
           RowBox[{"sec", "(", "x", ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}], 
            RowBox[{"\[PartialD]", "t"}],
            MultilineFunction->None]}], 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]]}], "\[LongEqual]", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"3", " ", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}]}], 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "x"}], ")"}]]}], "+", 
         FractionBox[
          RowBox[{
           RowBox[{"csc", "(", "x", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"sec", "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}], "-", 
             RowBox[{"csc", "(", "x", ")"}]}], ")"}]}], 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              RowBox[{"csc", "(", "x", ")"}], " ", 
              RowBox[{"sec", "(", "x", ")"}], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}], 
               RowBox[{"\[PartialD]", "x"}],
               MultilineFunction->None]}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["csc", "2"], "(", 
              RowBox[{"2", " ", "x"}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["sec", "2"], "(", "x", ")"}]}], ")"}]}]}], 
        "\[LongEqual]", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Phi]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], ")"}], "2"]}], 
               SuperscriptBox[
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "x"}], ")"}], "2"]], "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Phi]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None], ")"}], "2"]}], ")"}]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], ")"}], "2"]}], ")"}]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "2"]], "+", 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "x"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None]}]}], "+", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "x"}],
                   MultilineFunction->None], ")"}], "2"]}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                 ")"}], " ", 
                RowBox[{"tan", "(", "x", ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"3", " ", 
                RowBox[{
                 SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], ")"}]}], 
            "+", 
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["x", "2"]}],
              MultilineFunction->None]}], "-", 
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}], 
             SuperscriptBox[
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], "3"]], "+", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "x"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                 ")"}], " ", 
                RowBox[{"tan", "(", "x", ")"}]}], "-", 
               RowBox[{"3", " ", 
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Delta]", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "x"}],
                 MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"3", " ", 
          RowBox[{
           SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], "\[LongEqual]", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Delta]", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]], "-", 
         RowBox[{
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Phi]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "x"}],
             MultilineFunction->None], ")"}], "2"]}]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "x"}], ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["t", "2"]}],
                 MultilineFunction->None], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["x", "2"]}],
                   MultilineFunction->None]}]}], "+", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                  ")"}], " ", 
                 RowBox[{"tan", "(", "x", ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"3", " ", 
                 RowBox[{
                  SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], ")"}]}], 
             "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["x", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"A", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "x"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], "+", "1"}], 
                    ")"}], " ", 
                    RowBox[{"tan", "(", "x", ")"}]}], "-", 
                   RowBox[{"3", " ", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Delta]", "(", 
                    RowBox[{"t", ",", "x"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "x"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]", "(", 
                 RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "x"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "x"}], ")"}], "3"]}]], "-", 
         RowBox[{"3", " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
          RowBox[{
           SuperscriptBox["tan", "2"], "(", "x", ")"}]}]}], "\[LongEqual]", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
           RowBox[{
            SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"2", " ", 
             RowBox[{"\[Delta]", "(", 
              RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Phi]", "(", 
                RowBox[{"t", ",", "x"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], ")"}], "2"]}], 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]], "-", 
         RowBox[{
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", "x", ")"}], " ", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Phi]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "x"}],
             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", 10011.},
 CellChangeTimes->{{3.845599528233109*^9, 3.845599620136911*^9}, 
   3.8456000486503487`*^9, 3.845600159759227*^9, 3.845603974435149*^9, 
   3.845604403327581*^9, 3.845604638228067*^9},
 CellLabel->
  "Out[1019]//TraditionalForm=",ExpressionUUID->"ff5a56ec-152f-41ea-9db8-\
9f368a7c15dd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Klein Gordon Equation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{{3.829314175981791*^9, 3.829314187414817*^9}, 
   3.829314858825903*^9, 3.845586532049788*^9, 
   3.845594051315061*^9},ExpressionUUID->"9c85358e-3da7-4d83-af4d-\
b65ff5b1ed6a"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{3.829314181341867*^9, 3.8293148588264627`*^9, 
  3.8455865320502234`*^9, 3.8455940513155603`*^9},
 CellLabel->
  "In[969]:=",ExpressionUUID->"82f120a6-64b5-462a-834a-cfdc2e2f42e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.021635`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "ads"], "", "\[Alpha]\[Beta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        TagBox[
         SubsuperscriptBox["\[CapitalGamma]", 
          RowBox[{"  ", "\[Alpha]\[Beta]"}], 
          RowBox[{"\[Gamma]", "    "}]],
         DisplayForm]}], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[Phi]"}], ")"}], "\[Gamma]", ""],
        DisplayForm]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[Phi]"}], ")"}]}], ")"}], 
        "\[Beta]\[Alpha]", ""],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{3.829314207139422*^9, 3.8293148588266*^9, 
  3.845586387256555*^9, 3.8455865320505247`*^9, 3.8455908680994663`*^9, 
  3.845594051315908*^9, 3.845599455325568*^9, 3.845600164534142*^9, 
  3.8456040254978943`*^9},
 CellLabel->
  "Out[969]=",ExpressionUUID->"a39c823f-e211-478b-8942-50533c0ffc63"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "kleinGordon", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kleinGordon", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Expand", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"MergeTensors", "[", "waveScalar1", "]"}], "]"}], "]"}], "]"}],
     "    ", "-", " ", 
    RowBox[{
     SuperscriptBox["\[Mu]", "2"], 
     SuperscriptBox[
      RowBox[{"\[Phi]", "[", 
       RowBox[{"t", ",", "x"}], "]"}], "2"]}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"kleinGordon", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{{3.845586510484838*^9, 3.8455865320508127`*^9}, 
   3.8455940513162327`*^9, {3.845599720579158*^9, 3.845599730650371*^9}, {
   3.845599762234228*^9, 3.845599775490176*^9}, {3.8456004964482822`*^9, 
   3.845600508688224*^9}, {3.8456040376768293`*^9, 3.845604110447661*^9}},
 CellLabel->
  "In[973]:=",ExpressionUUID->"0a288799-0acd-4a70-a029-5b6f19e79824"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{
        SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
       RowBox[{"A", "(", 
        RowBox[{"t", ",", "x"}], ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Delta]", "(", 
          RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["t", "2"]}],
          MultilineFunction->None], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Delta]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Phi]", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None]}]}], ")"}]}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"A", "(", 
        RowBox[{"t", ",", "x"}], ")"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", 
           SuperscriptBox["x", "2"]}],
          MultilineFunction->None]}], "+", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"cot", "(", "x", ")"}]}], "-", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Delta]", "(", 
               RowBox[{"t", ",", "x"}], ")"}]}], 
             RowBox[{"\[PartialD]", "x"}],
             MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", 
        RowBox[{"\[Delta]", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Phi]", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None]}], "+", 
     RowBox[{
      RowBox[{
       SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
      SuperscriptBox[
       RowBox[{"A", "(", 
        RowBox[{"t", ",", "x"}], ")"}], "2"], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}], 
       RowBox[{"\[PartialD]", "x"}],
       MultilineFunction->None], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[Phi]", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}], 
       RowBox[{"\[PartialD]", "x"}],
       MultilineFunction->None]}]}], 
    RowBox[{
     SuperscriptBox["\[ScriptL]", "2"], " ", 
     SuperscriptBox[
      RowBox[{"A", "(", 
       RowBox[{"t", ",", "x"}], ")"}], "2"]}]], "-", 
   RowBox[{
    SuperscriptBox["\[Mu]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Phi]", "(", 
      RowBox[{"t", ",", "x"}], ")"}], "2"]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.},
 CellChangeTimes->{{3.845586511338438*^9, 3.845586532055375*^9}, 
   3.845590868304068*^9, 3.845594051316512*^9, 3.845599455491439*^9, 
   3.8455997222513037`*^9, {3.845599765112557*^9, 3.8455997761351137`*^9}, 
   3.845600167089183*^9, {3.84560049694138*^9, 3.845600509221936*^9}, {
   3.845604028317428*^9, 3.845604061050351*^9}, 3.845604111344041*^9},
 CellLabel->
  "Out[975]//TraditionalForm=",ExpressionUUID->"c5376629-9b34-4292-bfd7-\
0d3ff608b192"]
}, Closed]],

Cell[CellGroupData[{

Cell["New Variables Equation 3", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{{3.845605010590435*^9, 
  3.845605024815917*^9}},ExpressionUUID->"46c6e9cc-b3a1-4e1c-8634-\
6f62aaf464ca"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"t", ",", "x"}], "]"}], " ", "==", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{"\[Phi]", "[", 
         RowBox[{"t", ",", "x"}], "]"}]}], 
       RowBox[{"Cos", "[", "x", "]"}]]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"B", "[", 
       RowBox[{"t", ",", "x"}], "]"}], " ", "==", " ", 
      FractionBox[
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"t", ",", "x"}], "]"}], "-", "1"}], 
       SuperscriptBox[
        RowBox[{"Cos", "[", "x", "]"}], "2"]]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{{3.8456041346309023`*^9, 3.845604176359397*^9}, 
   3.845605016879992*^9},
 CellLabel->
  "In[976]:=",ExpressionUUID->"c09c49ea-87b3-4730-8d72-def61395c982"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "x"}], "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"Sec", "[", "x", "]"}], " ", 
        RowBox[{"\[Phi]", "[", 
         RowBox[{"t", ",", "x"}], "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"B", "[", 
        RowBox[{"t", ",", "x"}], "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"A", "[", 
           RowBox[{"t", ",", "x"}], "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sec", "[", "x", "]"}], "2"]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{3.845604176616315*^9, 3.8456050168854723`*^9},
 CellLabel->
  "Out[978]//TableForm=",ExpressionUUID->"ec8282fe-822d-400c-9b78-\
1545e91787fe"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "aPhiReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aPhiReplace", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq3", " ", ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"\[Phi]", "[", 
         RowBox[{"t", ",", "x"}], "]"}], " ", ",", " ", 
        RowBox[{"A", "[", 
         RowBox[{"t", ",", "x"}], "]"}]}], " ", "}"}]}], " ", "]"}], "]"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"aPhiReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{{3.845604189705606*^9, 3.845604236695874*^9}, 
   3.845605016886079*^9},
 CellLabel->
  "In[984]:=",ExpressionUUID->"a9cad59b-fe95-4f84-a57a-e26e01ff3e61"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"\[Phi]", "[", 
        RowBox[{"t", ",", "x"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "x", "]"}], " ", 
        RowBox[{"f", "[", 
         RowBox[{"t", ",", "x"}], "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"t", ",", "x"}], "]"}], "\[Rule]", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"t", ",", "x"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "x", "]"}], "2"]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.},
 CellChangeTimes->{{3.845604200879581*^9, 3.84560423692663*^9}, 
   3.845605016891078*^9},
 CellLabel->
  "Out[986]//TableForm=",ExpressionUUID->"a60550c7-8da0-41de-a9ba-\
47694f057890"]
}, Closed]],

Cell[CellGroupData[{

Cell["Equation 4D Derivation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604984398053*^9, 
  3.845605001263995*^9}},ExpressionUUID->"7c270d9a-eab0-4bc0-abbb-\
cfac721651c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fieldEquations", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604658696642*^9, 3.845604669306129*^9}, 
   3.845604993253961*^9},
 CellLabel->
  "In[1021]:=",ExpressionUUID->"eef4998b-cad5-40de-ba18-5f0e2d3034e7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"csc", "(", "x", ")"}], " ", 
      RowBox[{"sec", "(", "x", ")"}], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None]}], 
     RowBox[{"A", "(", 
      RowBox[{"t", ",", "x"}], ")"}]]}], "\[LongEqual]", 
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Phi]", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[Phi]", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "x"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604661443367*^9, 3.845604669692936*^9}, 
   3.845604993259506*^9},
 CellLabel->
  "Out[1021]//TraditionalForm=",ExpressionUUID->"c995ac7d-10b4-42fa-aa79-\
d126aa9d1b84"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"eq3", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "t"}], " ", "]"}], 
      "  ", ",", 
      RowBox[{
       SuperscriptBox["\[Phi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x"}], "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604520683894*^9, 3.845604534137336*^9}, {
   3.8456045658913603`*^9, 3.84560458631462*^9}, 3.845604993259859*^9},
 CellLabel->
  "In[1012]:=",ExpressionUUID->"c0fbb257-3d9a-4d8e-aed9-a4bdbef0b76d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"cos", "(", "x", ")"}], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"f", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8456045226542473`*^9, 3.8456045344841843`*^9}, {
   3.8456045669973583`*^9, 3.84560458659033*^9}, 3.8456049932602043`*^9},
 CellLabel->
  "Out[1012]//TraditionalForm=",ExpressionUUID->"3e15729a-2ca3-4744-9100-\
15e803085230"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{"eq3", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "x"}], " ", "]"}], 
      " ", ",", " ", 
      RowBox[{
       SuperscriptBox["\[Phi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x"}], "]"}]}], "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604544560693*^9, 3.8456045446569767`*^9}, {
   3.845604591283124*^9, 3.845604611578464*^9}, 3.845604993260478*^9},
 CellLabel->
  "In[1016]:=",ExpressionUUID->"d1df2e97-e1c1-4911-936b-7085a13b1636"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}], 
    RowBox[{"\[PartialD]", "x"}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{
     RowBox[{"cos", "(", "x", ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"f", "(", 
        RowBox[{"t", ",", "x"}], ")"}]}], 
      RowBox[{"\[PartialD]", "x"}],
      MultilineFunction->None]}], "-", 
    RowBox[{
     RowBox[{"tan", "(", "x", ")"}], " ", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.845604544989172*^9, {3.8456045917780046`*^9, 3.845604611859964*^9}, 
   3.845604993260746*^9},
 CellLabel->
  "Out[1016]//TraditionalForm=",ExpressionUUID->"04a8f18d-12c6-4a8b-bc22-\
bef697d056ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", " ", 
   RowBox[{
    RowBox[{"aPhiReplace", "[", 
     RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "t"}], " ", "]"}], "  ", "//",
   " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604677226076*^9, 3.845604690882958*^9}, 
   3.845604993261128*^9},
 CellLabel->
  "In[1024]:=",ExpressionUUID->"494dfe21-dea3-455d-b18c-936d41cadefb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"A", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{
     SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"B", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604683602063*^9, 3.8456046911501913`*^9}, 
   3.845604993261488*^9},
 CellLabel->
  "Out[1024]//TraditionalForm=",ExpressionUUID->"82266f70-e8bd-4d54-8ae5-\
a8f59d0f62c0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4d1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4d1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"fieldEquations", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "  ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{"D", "[", " ", 
           RowBox[{
            RowBox[{"eq3", "[", 
             RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "t"}], " ", "]"}],
           "  ", ",", 
          RowBox[{
           SuperscriptBox["\[Phi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x"}], "]"}]}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "  ", "/.", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"eq3", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "x"}], " ", "]"}], 
         " ", ",", " ", 
         RowBox[{
          SuperscriptBox["\[Phi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x"}], "]"}]}], "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "   ", "/.", " ", 
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"aPhiReplace", "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "t"}], " ", "]"}]}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4d1", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604744822177*^9, 3.845604819367527*^9}, 
   3.845604993261875*^9},
 CellLabel->
  "In[1030]:=",ExpressionUUID->"83503d4b-8f46-4023-a8eb-2a40a4e3c7b4"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"cot", "(", "x", ")"}], " ", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"B", "(", 
         RowBox[{"t", ",", "x"}], ")"}]}], 
       RowBox[{"\[PartialD]", "t"}],
       MultilineFunction->None]}], 
     RowBox[{"A", "(", 
      RowBox[{"t", ",", "x"}], ")"}]]}], "\[LongEqual]", 
   RowBox[{"2", " ", 
    RowBox[{"cos", "(", "x", ")"}], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"f", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"cos", "(", "x", ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"f", "(", 
          RowBox[{"t", ",", "x"}], ")"}]}], 
        RowBox[{"\[PartialD]", "x"}],
        MultilineFunction->None]}], "-", 
      RowBox[{
       RowBox[{"tan", "(", "x", ")"}], " ", 
       RowBox[{"\[Phi]", "(", 
        RowBox[{"t", ",", "x"}], ")"}]}]}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604752576981*^9, 3.845604819652676*^9}, 
   3.845604993266873*^9},
 CellLabel->
  "Out[1032]//TraditionalForm=",ExpressionUUID->"041824f6-d196-47f5-bbd1-\
b52ef6ce7e68"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4d", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4d", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Solve", "[", " ", 
            RowBox[{"eq4d1", " ", ",", 
             RowBox[{
              SuperscriptBox["B", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x"}], "]"}]}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
         RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", "//", " ", "Expand"}], 
       "   ", ")"}], " ", "//", " ", "Simplify"}], "  ", ")"}], "   ", "/.", 
    " ", 
    RowBox[{"aPhiReplace", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4d", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.84560483428887*^9, 3.8456048875836267`*^9}, {
  3.845604931341456*^9, 3.845604993267301*^9}},
 CellLabel->
  "In[1045]:=",ExpressionUUID->"ecb9ba7f-1b53-422d-8544-6872dcefb0c6"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"B", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{"2", " ", 
    RowBox[{"sin", "(", "x", ")"}], " ", 
    RowBox[{"A", "(", 
     RowBox[{"t", ",", "x"}], ")"}], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"f", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"sin", "(", "x", ")"}], " ", 
       RowBox[{"f", "(", 
        RowBox[{"t", ",", "x"}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"cos", "(", "x", ")"}], " ", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"f", "(", 
          RowBox[{"t", ",", "x"}], ")"}]}], 
        RowBox[{"\[PartialD]", "x"}],
        MultilineFunction->None]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.845604825264084*^9, 3.845604887857562*^9}, {
  3.845604935102097*^9, 3.8456049932719584`*^9}},
 CellLabel->
  "Out[1047]//TraditionalForm=",ExpressionUUID->"f4a06a8a-59f6-4321-a181-\
1b231e3ac800"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "This", " ", "looks", " ", "like", " ", "4", "c", " ", "but", " ", "I", 
      " ", 
      RowBox[{"can", "'"}], "t", " ", "figure", " ", "it", " ", "out", " ", 
      "tonight"}], " ", "..."}], "."}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq4c1", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq4c1", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Solve", "[", " ", 
            RowBox[{
             RowBox[{"fieldEquations", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{
              SuperscriptBox["\[Delta]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x"}], "]"}]}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
         RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", "//", " ", "Expand"}], 
       " ", "//", " ", "Apart"}], " ", "//", " ", "Expand"}]}], "   ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"eq4c1", " ", "//", " ", "pdConv"}]}]}]], "Input",
 CellChangeTimes->{{3.845605059874642*^9, 3.845605132267631*^9}, {
  3.845605549345602*^9, 3.8456055625608883`*^9}},
 CellLabel->
  "In[1076]:=",ExpressionUUID->"d614c055-e249-457b-8ede-89c6b577c5b1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Delta]", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}], 
    RowBox[{"\[PartialD]", "x"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"sin", "(", "x", ")"}], " ", 
       RowBox[{"cos", "(", "x", ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Delta]", "(", 
          RowBox[{"t", ",", "x"}], ")"}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Phi]", "(", 
            RowBox[{"t", ",", "x"}], ")"}]}], 
          RowBox[{"\[PartialD]", "t"}],
          MultilineFunction->None], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"A", "(", 
         RowBox[{"t", ",", "x"}], ")"}], "2"]}]]}], "-", 
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"tan", "(", "x", ")"}]}], 
     RowBox[{"2", " ", 
      RowBox[{"A", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}]], "-", 
    FractionBox[
     RowBox[{"cot", "(", "x", ")"}], 
     RowBox[{"2", " ", 
      RowBox[{"A", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}]], "+", 
    FractionBox[
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"A", "(", 
        RowBox[{"t", ",", "x"}], ")"}]}], 
      RowBox[{"\[PartialD]", "x"}],
      MultilineFunction->None], 
     RowBox[{"2", " ", 
      RowBox[{"A", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}]], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"sin", "(", "x", ")"}], " ", 
     RowBox[{"cos", "(", "x", ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[Phi]", "(", 
          RowBox[{"t", ",", "x"}], ")"}]}], 
        RowBox[{"\[PartialD]", "x"}],
        MultilineFunction->None], ")"}], "2"]}], "+", 
    RowBox[{"tan", "(", "x", ")"}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"sin", "(", "x", ")"}], " ", 
     RowBox[{"cos", "(", "x", ")"}], " ", 
     RowBox[{
      SuperscriptBox["csc", "2"], "(", 
      RowBox[{"2", " ", "x"}], ")"}]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.845605084212727*^9, 3.845605132669639*^9}, 
   3.845605563107498*^9},
 CellLabel->
  "Out[1078]//TraditionalForm=",ExpressionUUID->"6db3975d-03e4-4acc-a5b7-\
b06386e84c8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", " ", 
    RowBox[{"aPhiReplace", " ", ",", "x"}], "]"}], " ", "//", " ", 
   "TableForm"}], " ", "//", " ", "pdConv"}]], "Input",
 CellChangeTimes->{{3.8456051385510406`*^9, 3.845605177584046*^9}},
 CellLabel->
  "In[1061]:=",ExpressionUUID->"ecc67d17-f1b5-4595-a173-1e2cf7b511c7"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Phi]", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", "x"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{
          RowBox[{"cos", "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None]}], "-", 
         RowBox[{
          RowBox[{"sin", "(", "x", ")"}], " ", 
          RowBox[{"f", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]}]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"A", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}], 
         RowBox[{"\[PartialD]", "x"}],
         MultilineFunction->None], "\[Rule]", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["cos", "2"], "(", "x", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"B", "(", 
             RowBox[{"t", ",", "x"}], ")"}]}], 
           RowBox[{"\[PartialD]", "x"}],
           MultilineFunction->None]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"sin", "(", "x", ")"}], " ", 
          RowBox[{"cos", "(", "x", ")"}], " ", 
          RowBox[{"B", "(", 
           RowBox[{"t", ",", "x"}], ")"}]}]}]}]}
     },
     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",
 CellChangeTimes->{{3.845605139925191*^9, 3.845605177871766*^9}},
 CellLabel->
  "Out[1061]//TraditionalForm=",ExpressionUUID->"d511c59a-82c5-44dc-bd91-\
86f151a1bc24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", " ", 
   RowBox[{
    RowBox[{"aPhiReplace", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", "t"}], "]"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellChangeTimes->{{3.845605191543479*^9, 3.8456051977600317`*^9}},
 CellLabel->
  "In[1063]:=",ExpressionUUID->"b4e53cf2-7a01-4285-8d4f-054232b36d50"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Phi]", "(", 
      RowBox[{"t", ",", "x"}], ")"}]}], 
    RowBox[{"\[PartialD]", "t"}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"cos", "(", "x", ")"}], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"f", "(", 
       RowBox[{"t", ",", "x"}], ")"}]}], 
     RowBox[{"\[PartialD]", "t"}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.845605194610344*^9, 3.845605198134762*^9}},
 CellLabel->
  "Out[1063]//TraditionalForm=",ExpressionUUID->"c8c060e7-0aa1-4921-8fa9-\
c654fe8ac9fe"]
}, Open  ]]
},
WindowSize->{1279, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 80}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"cdd55283-cf9d-4b35-a999-a5732f728c97"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1976, 29, 159, "Title",ExpressionUUID->"9b3e49de-4900-4d17-9f17-226606ca571f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2559, 53, 1146, 19, 76, "Author",ExpressionUUID->"055de857-57b6-47d6-8337-b11347a84ac2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3742, 77, 251, 4, 69, "Section",ExpressionUUID->"295ed02e-9c35-483d-8c71-9edca412d687",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[3996, 83, 464, 11, 63, "Input",ExpressionUUID->"d22e8979-8698-4375-99aa-abbcfba53d02",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[4463, 96, 1631, 26, 43, "Output",ExpressionUUID->"36f69e87-d368-4837-ac24-f12b14dc3532",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6131, 127, 241, 4, 55, "Section",ExpressionUUID->"d9593898-6412-4a9a-8e7f-6c28bf4c4485",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[6375, 133, 423, 9, 63, "Input",ExpressionUUID->"523220f1-93df-484d-b0af-3991be98105f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[6801, 144, 366, 8, 43, "Output",ExpressionUUID->"76a4f8ec-3ce4-4f41-a88d-257f8928996d",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[7170, 154, 896, 20, 84, "Input",ExpressionUUID->"0b0e9396-4c8e-444c-a39f-638b85c404d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8069, 176, 450, 9, 43, "Output",ExpressionUUID->"0fb51af3-d19d-4aa8-baf3-022165209b0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8522, 187, 449, 9, 63, "Input",ExpressionUUID->"8d232602-a75b-4517-8526-e3e721fdedc0",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8974, 198, 393, 8, 43, "Output",ExpressionUUID->"49143256-e1cb-464c-90f4-aa0229cfffd2",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[9370, 208, 522, 10, 63, "Input",ExpressionUUID->"64f59593-9010-4e77-85e2-54a028ab1fdc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[9895, 220, 491, 10, 43, "Output",ExpressionUUID->"8af8c454-4585-46b1-9814-64b90522aafe",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[10389, 232, 502, 10, 63, "Input",ExpressionUUID->"48e48c5d-a791-4210-b844-7bdc7fe296e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[10894, 244, 482, 10, 43, "Output",ExpressionUUID->"d41fa40f-67a2-4a6b-89bc-1a91a0f81d2b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[11379, 256, 540, 11, 63, "Input",ExpressionUUID->"7675adf7-0758-4e1f-a4d3-56d2a780e801",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[11922, 269, 559, 11, 43, "Output",ExpressionUUID->"f4afb489-8d38-4bbb-96d7-faedc27bae02",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[12518, 285, 253, 4, 55, "Section",ExpressionUUID->"0d173c8b-73fe-486f-b19b-9ffb684517df",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12774, 291, 1671, 46, 189, "Input",ExpressionUUID->"aa9db40f-f50d-4e22-b89f-c0a5913fc984",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14448, 339, 1927, 31, 24, "Print",ExpressionUUID->"a9b3d8dc-9d2d-4b13-a138-a8a9fc62acd8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16378, 372, 1945, 32, 24, "Print",ExpressionUUID->"7313a08b-8023-4388-9df7-0693db21a09b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[18326, 406, 2341, 36, 84, "Output",ExpressionUUID->"7b1edf1e-0d59-4ead-bbfc-c6c1894d409c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[20670, 444, 270, 4, 41, "Input",ExpressionUUID->"40006501-5254-48af-aad6-c22c79269efe",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20977, 453, 290, 5, 55, "Section",ExpressionUUID->"a587431b-27be-4217-bf1f-859757faa5e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[21270, 460, 1197, 23, 147, "Input",ExpressionUUID->"b60c34e2-0558-4914-9727-a886ef2bf790",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[22470, 485, 958, 18, 41, "Output",ExpressionUUID->"91e5cd26-fba0-4216-9c14-516c640a4a9b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23431, 505, 715, 13, 41, "Input",ExpressionUUID->"9e090528-9a39-4997-8b43-741bb0be8161",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24183, 523, 362, 6, 55, "Section",ExpressionUUID->"12b2e238-11c8-40f4-9448-d4d2bddc2ce9",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24548, 531, 1660, 41, 126, "Input",ExpressionUUID->"b8de6375-f617-4a3f-b3e5-146fbbc275ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26211, 574, 1056, 26, 84, "Input",ExpressionUUID->"fbe2eeaf-855e-44c5-a0b0-eecfe97916c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27304, 605, 300, 5, 55, "Section",ExpressionUUID->"8bfb426a-2196-43cf-9302-9cff53d24d7a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27607, 612, 1369, 38, 108, "Input",ExpressionUUID->"98463627-4273-4070-b8dd-d1d11a2faff2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28979, 652, 985, 29, 64, "Output",ExpressionUUID->"ff8aec51-4acf-427f-9d60-b6eb21d44b92",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29967, 683, 523, 13, 41, "Input",ExpressionUUID->"b403a784-54fa-4d7e-98de-60609c334201",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30493, 698, 1625, 46, 122, "Output",ExpressionUUID->"3bdaabfc-980b-4748-a782-7adcb733b45b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32121, 746, 786, 18, 147, "Input",ExpressionUUID->"cca2909b-0ddf-4119-bfe5-e46616f534eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32910, 766, 874, 27, 69, "Output",ExpressionUUID->"460ae7df-a077-4397-8f31-b703b563ae44",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33787, 795, 1084, 23, 105, "Input",ExpressionUUID->"2b662c41-b1f1-4363-8288-6cd70edd9289",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34874, 820, 2134, 57, 126, "Output",ExpressionUUID->"92c5f25b-8897-4b31-91f2-1330d853f713",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[37045, 882, 346, 5, 55, "Section",ExpressionUUID->"25bf27bc-292b-4ef4-b550-1b3c7abc5481",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[37394, 889, 494, 11, 41, "Input",ExpressionUUID->"43057269-2532-4de1-a125-acf9b8594982",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[37891, 902, 5912, 137, 714, "Input",ExpressionUUID->"7aaec8a9-49a5-4af7-9518-f1e22d6f32d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[43806, 1041, 1294, 25, 65, "Input",ExpressionUUID->"af587151-e5fa-420d-b1da-84c6906ef671",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[45103, 1068, 434, 8, 41, "Output",ExpressionUUID->"6ff0fba4-02b4-462f-b6cf-6adab3b57cb6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[45540, 1078, 265, 5, 41, "Input",ExpressionUUID->"1f85be18-bbd7-40e1-8ba0-f9e0294f1bc8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[45808, 1085, 1479, 36, 45, "Output",ExpressionUUID->"8eb7e101-7cda-4658-92fd-60fc5810b222",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[47290, 1123, 814, 19, 84, "Input",ExpressionUUID->"7dea4380-c616-405b-911f-41e1d0fb83b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[48107, 1144, 781, 15, 45, "Output",ExpressionUUID->"f8f6ded8-c190-49fe-9f4b-4e29ffaa15c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[48891, 1161, 694, 11, 41, "Output",ExpressionUUID->"185e46aa-0978-4395-9e88-18594dad057d",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[49588, 1174, 2313, 60, 126, "Output",ExpressionUUID->"bd52472e-a6da-4ce4-8fc1-27e9bdc40756",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[51904, 1236, 817, 19, 84, "Input",ExpressionUUID->"fe043672-13f5-4394-bb2a-db1ec87d4e8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[52724, 1257, 896, 17, 45, "Output",ExpressionUUID->"d8a45c42-e9bd-4f28-b79c-6cd31b3389fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[53623, 1276, 787, 12, 41, "Output",ExpressionUUID->"11dfbd88-b73d-452c-9a72-74d316c1f8de",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[54413, 1290, 16576, 469, 394, "Output",ExpressionUUID->"3237902e-23f2-414b-bece-1fd8d69e20de",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[70992, 1761, 814, 19, 84, "Input",ExpressionUUID->"a185b39d-a8a5-4e45-a9e8-0256bdb5ea1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[71809, 1782, 771, 14, 45, "Output",ExpressionUUID->"ab523fbc-e5b3-44c8-b061-f0d7360ee392",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[72583, 1798, 708, 11, 41, "Output",ExpressionUUID->"e7fea140-51fc-454f-b2be-a43e66981a85",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[73294, 1811, 62205, 1530, 560, "Output",ExpressionUUID->"3089e185-0a11-4340-9d92-855d24da1051",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[135502, 3343, 812, 19, 84, "Input",ExpressionUUID->"1723a750-37ec-45ae-b4c0-c07eccfa7cff",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[136317, 3364, 762, 14, 45, "Output",ExpressionUUID->"b246e25a-1c02-46b8-b44e-ba8227a27648",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[137082, 3380, 715, 11, 41, "Output",ExpressionUUID->"e808426d-a49e-4027-9fa1-b8b7fb4baca3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[137800, 3393, 13372, 361, 182, "Output",ExpressionUUID->"326d10bd-a97b-4f9b-9020-a331b211eccd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[151175, 3756, 814, 19, 84, "Input",ExpressionUUID->"5f76c77b-f6ed-4821-a8ac-c31b98f1d3b3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[151992, 3777, 717, 13, 41, "Output",ExpressionUUID->"cb2aa614-2346-4502-9f11-f98e57604a44",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[152712, 3792, 705, 11, 41, "Output",ExpressionUUID->"1c88349f-ab41-4d16-9ea3-6df12d8f8472",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[153420, 3805, 6140, 168, 122, "Output",ExpressionUUID->"236df8ce-a0a8-4272-a83a-08f813cac381",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[159563, 3975, 1031, 22, 126, "Input",ExpressionUUID->"e7534036-11ed-4b1a-b3a2-4c61f549b653",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[160597, 3999, 798, 19, 84, "Input",ExpressionUUID->"790b97db-e1a8-42ab-8493-fd18c7b88761",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[161398, 4020, 689, 13, 45, "Output",ExpressionUUID->"85c36a82-aff4-4531-9d32-7188043cb079",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[162090, 4035, 641, 10, 41, "Output",ExpressionUUID->"29634878-a0d8-4976-bf0c-f26e7b73b728",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[162734, 4047, 15453, 407, 218, "Output",ExpressionUUID->"e750a936-f3f5-4cb7-ab9b-92d47af601f6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[178190, 4456, 861, 20, 84, "Input",ExpressionUUID->"955b5ef4-80cb-484c-87c4-d3101b3d3c8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[179054, 4478, 769, 14, 45, "Output",ExpressionUUID->"c8728755-a07d-4948-9597-7382889d8bd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[179826, 4494, 705, 11, 41, "Output",ExpressionUUID->"110118ab-3070-4661-b1c0-5d35f024e6eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[180534, 4507, 151025, 3542, 556, "Output",ExpressionUUID->"adaf65f9-5505-47d5-997e-44d825016520",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[331562, 8051, 958, 21, 126, "Input",ExpressionUUID->"d218c9da-e5b4-4185-8626-22abef30f5fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[332557, 8077, 473, 7, 55, "Section",ExpressionUUID->"0f8035b1-f27b-4997-b52e-d142c9f957e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[333033, 8086, 1925, 49, 210, "Input",ExpressionUUID->"303b2d8f-8299-4c36-bb69-fff0e6707626",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[334961, 8137, 12739, 349, 220, "Output",ExpressionUUID->"8e1318dc-a84f-40a4-b5c3-636dba67dd30",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[347703, 8488, 1984, 50, 210, "Input",ExpressionUUID->"7061672b-f7cf-4a08-9208-9399ef948dff",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[349690, 8540, 14945, 395, 244, "Output",ExpressionUUID->"ad102e62-7f2d-4a96-b623-71b930bb1fc3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[364672, 8940, 316, 5, 55, "Section",ExpressionUUID->"59c65917-2166-4c17-9c10-54bbccda714c",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[364991, 8947, 881, 18, 84, "Input",ExpressionUUID->"26122b82-04c3-4766-888c-46e3f0dbe0e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[365875, 8967, 366, 8, 41, "Output",ExpressionUUID->"c4d7b717-53ef-4270-920c-7809cd8b25f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[366244, 8977, 2321, 56, 147, "Input",ExpressionUUID->"6770a280-3bac-452b-89b9-10472cb0d98e",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[368568, 9035, 7524, 204, 196, "Output",ExpressionUUID->"3c390df4-af83-40fa-8245-45c5a8e2b8f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[376095, 9241, 969, 24, 122, "Input",ExpressionUUID->"1e4a0c49-2b71-430d-90c5-ed545dc94e15",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[377067, 9267, 2699, 75, 146, "Output",ExpressionUUID->"524b2415-220e-4f1a-a4b8-160776d539b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[379769, 9344, 792, 16, 84, "Input",ExpressionUUID->"42875fad-092b-495e-b57a-b49d91ded860",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[380564, 9362, 456, 9, 45, "Output",ExpressionUUID->"4bf5467e-14ea-4695-a002-ff8da7295506",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[381023, 9373, 1262, 30, 126, "Input",ExpressionUUID->"8ad202a2-3eb3-421a-ac2a-3387f75076d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[382288, 9405, 11849, 295, 162, "Output",ExpressionUUID->"908fdde7-997e-4a6b-9005-6cc401af2b49",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[394174, 9705, 290, 5, 55, "Section",ExpressionUUID->"d4be9280-8aae-4c8e-9f9e-662f5601f963",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}],
Cell[394467, 9712, 1352, 33, 153, "Input",ExpressionUUID->"d073d3d1-9ad8-4f86-8027-77d4056d8af9",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}],
Cell[395822, 9747, 23691, 624, 460, "Output",ExpressionUUID->"ff5a56ec-152f-41ea-9db8-9f368a7c15dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}]
}, Closed]],
Cell[CellGroupData[{
Cell[419550, 10376, 292, 5, 55, "Section",ExpressionUUID->"9c85358e-3da7-4d83-af4d-b65ff5b1ed6a",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}],
Cell[419845, 10383, 457, 10, 41, "Input",ExpressionUUID->"82f120a6-64b5-462a-834a-cfdc2e2f42e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}],
Cell[420305, 10395, 1236, 36, 49, "Output",ExpressionUUID->"a39c823f-e211-478b-8942-50533c0ffc63",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}],
Cell[421544, 10433, 1046, 23, 105, "Input",ExpressionUUID->"0a288799-0acd-4a70-a029-5b6f19e79824",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}],
Cell[422593, 10458, 4547, 130, 86, "Output",ExpressionUUID->"c5376629-9b34-4292-bfd7-0d3ff608b192",
 CellGroupingRules->{"GroupTogetherGrouping", 10010.}]
}, Closed]],
Cell[CellGroupData[{
Cell[427177, 10593, 224, 4, 55, "Section",ExpressionUUID->"46c6e9cc-b3a1-4e1c-8634-6f62aaf464ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}],
Cell[427404, 10599, 1117, 30, 206, "Input",ExpressionUUID->"c09c49ea-87b3-4730-8d72-def61395c982",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}],
Cell[428524, 10631, 1245, 39, 71, "Output",ExpressionUUID->"ec8282fe-822d-400c-9b78-1545e91787fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}],
Cell[429772, 10672, 823, 19, 105, "Input",ExpressionUUID->"a9cad59b-fe95-4f84-a57a-e26e01ff3e61",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}],
Cell[430598, 10693, 1212, 38, 71, "Output",ExpressionUUID->"a60550c7-8da0-41de-a9ba-47694f057890",
 CellGroupingRules->{"GroupTogetherGrouping", 10011.}]
}, Closed]],
Cell[CellGroupData[{
Cell[431847, 10736, 222, 4, 55, "Section",ExpressionUUID->"7c270d9a-eab0-4bc0-abbb-cfac721651c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[432072, 10742, 361, 8, 41, "Input",ExpressionUUID->"eef4998b-cad5-40de-ba18-5f0e2d3034e7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[432436, 10752, 1125, 34, 79, "Output",ExpressionUUID->"c995ac7d-10b4-42fa-aa79-d126aa9d1b84",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[433564, 10788, 880, 24, 44, "Input",ExpressionUUID->"c0fbb257-3d9a-4d8e-aed9-a4bdbef0b76d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[434447, 10814, 793, 22, 69, "Output",ExpressionUUID->"3e15729a-2ca3-4744-9100-15e803085230",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[435243, 10838, 885, 24, 44, "Input",ExpressionUUID->"d1df2e97-e1c1-4911-936b-7085a13b1636",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[436131, 10864, 920, 28, 69, "Output",ExpressionUUID->"04a8f18d-12c6-4a8b-bc22-bef697d056ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[437054, 10894, 438, 11, 41, "Input",ExpressionUUID->"494dfe21-dea3-455d-b18c-936d41cadefb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[437495, 10907, 764, 23, 69, "Output",ExpressionUUID->"82266f70-e8bd-4d54-8ae5-a8f59d0f62c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[438262, 10932, 2014, 55, 128, "Input",ExpressionUUID->"83503d4b-8f46-4023-a8eb-2a40a4e3c7b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[440279, 10989, 1376, 43, 78, "Output",ExpressionUUID->"041824f6-d196-47f5-bbd1-b52ef6ce7e68",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[441658, 11034, 1333, 33, 107, "Input",ExpressionUUID->"ecb9ba7f-1b53-422d-8544-6872dcefb0c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[442994, 11069, 1281, 38, 69, "Output",ExpressionUUID->"f4a06a8a-59f6-4321-a181-1b231e3ac800",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[444312, 11112, 1573, 41, 125, "Input",ExpressionUUID->"d614c055-e249-457b-8ede-89c6b577c5b1"],
Cell[445888, 11155, 2448, 75, 82, "Output",ExpressionUUID->"6db3975d-03e4-4acc-a5b7-b06386e84c8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[448373, 11235, 337, 8, 41, "Input",ExpressionUUID->"ecc67d17-f1b5-4595-a173-1e2cf7b511c7"],
Cell[448713, 11245, 2118, 63, 86, "Output",ExpressionUUID->"d511c59a-82c5-44dc-bd91-86f151a1bc24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[450868, 11313, 348, 9, 41, "Input",ExpressionUUID->"b4e53cf2-7a01-4285-8d4f-054232b36d50"],
Cell[451219, 11324, 659, 20, 69, "Output",ExpressionUUID->"c8c060e7-0aa1-4921-8fa9-c654fe8ac9fe"]
}, Open  ]]
}
]
*)