Asymptotic Behavior of the T 3 * R Gowdy Spacetimes by Grubisic and Moncrief.nb

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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    654805,      15220]
NotebookOptionsPosition[    635220,      14898]
NotebookOutlinePosition[    635708,      14916]
CellTagsIndexPosition[    635665,      14913]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Asymptotic Behavior of the T 3 \[Times] R Gowdy Spacetimes by Grubisic and \
Moncrief\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.82795429722185*^9, 
   3.827954302845343*^9}, {3.827956183129569*^9, 3.8279561871771517`*^9}, 
   3.8510088216927958`*^9, {3.851065387457584*^9, 3.8510653950417137`*^9}, {
   3.8510682768154383`*^9, 3.851068280871207*^9}, {3.8510997628523493`*^9, 
   3.8510997737509108`*^9}, {3.851112556690555*^9, 3.851112614497939*^9}},
 TextAlignment->Center,ExpressionUUID->"1656beb1-b01b-4a28-87da-c6a545b9c450"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
January 13, 2022\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.85109882342251*^9, 
   3.851098834342609*^9}, 3.851112556690649*^9},
 TextAlignment->Center,ExpressionUUID->"4cc22038-cd44-420e-8fb2-e8f6757a88c7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
  "Will", " ", "come", " ", "back", " ", "and", " ", "transform", " ", 
   "field", " ", "equations", " ", "from", " ", "previous", " ", "paper", " ",
    "into", " ", "field", " ", "equations", " ", "for", " ", "this", " ", 
   RowBox[{"paper", ".", "  ", "Chain"}], " ", "rule", " ", "fail"}], 
  "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.851101088896373*^9, 3.8511011070387917`*^9}, {
  3.851112283570396*^9, 3.851112288985847*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"44f9338b-c602-4226-b04a-4bf63003a0fd"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"0dca9ed1-0a57-44ae-bf6f-\
aa9403517d10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"9b441f83-4191-404c-9a81-a800eb87a1ef"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.8279557154177027`*^9, 3.8510028350822067`*^9, 
   3.851006003042328*^9, 3.8510089492956676`*^9, 3.851097986301113*^9, 
   3.851111704627163*^9, 3.851112647591536*^9, 3.854984304534067*^9, 
   3.855139762281597*^9, 3.856038722626822*^9, 3.8573844533704023`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"7c012ba2-faaf-422b-9062-2a2005167c34"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 3.843132373377376*^9, 
   3.851065429743207*^9},ExpressionUUID->"f9fae8ee-2b5a-4ae1-a053-\
dda8babe6f8f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Asymptotic Behavior of the T 3 \[Times] R Gowdy Spacetimes by Grubisic \
and Moncrief\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/pdf/gr-qc/9209006.pdf\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8511125869398212`*^9, 3.851112594290333*^9}, {
  3.851112630194572*^9, 3.851112632433962*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"add6bbf2-e26e-4d05-8a7c-279e248b947e"],

Cell[BoxData[
 TemplateBox[{
  "\"Asymptotic Behavior of the T 3 \[Times] R Gowdy Spacetimes by Grubisic \
and Moncrief\"", "https://arxiv.org/pdf/gr-qc/9209006.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.851112642976177*^9, 3.851112647615366*^9}, 
   3.854984304548875*^9, 3.855139762306404*^9, 3.8560387226442347`*^9, 
   3.8573844533818493`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"3efb52a1-f2ca-4c11-87a2-f84d48a54f7b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", " ", 
  RowBox[{
  "\"\<Gowdy Scholarpedia\>\"", ",", "\[IndentingNewLine]", 
   "\"\<http://www.scholarpedia.org/article/Gowdy_Spacetimes\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8514240989087954`*^9, 3.851424135882086*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"b7af2c68-89b6-4315-ac7b-ef8d22ebfbab"],

Cell[BoxData[
 TemplateBox[{
  "\"Gowdy Scholarpedia\"", 
   "http://www.scholarpedia.org/article/Gowdy_Spacetimes"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8514241375857058`*^9, 3.854984304575398*^9, 
  3.855139762338271*^9, 3.8560387226943083`*^9, 3.8573844534054813`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"b7dc6059-22ac-4bd1-a4fd-2325babdadf2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Analytic description of singularities in Gowdy spacetimes\>\"", ",", 
   "\[IndentingNewLine]", "\"\<https://arxiv.org/abs/1709.09710\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.851099826476595*^9, 3.851099843346839*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"987cdbb7-5cfe-4411-914b-49ff8e105661"],

Cell[BoxData[
 TemplateBox[{
  "\"Analytic description of singularities in Gowdy spacetimes\"", 
   "https://arxiv.org/abs/1709.09710"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.851099844132066*^9, 3.8511117046380777`*^9, 
  3.851112647625922*^9, 3.8549843045905933`*^9, 3.8551397623572197`*^9, 
  3.8560387227133293`*^9, 3.857384453419067*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"ef30891f-99eb-4aeb-ba70-553581da5c02"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "start", " ", "with", " ", "the", " ", "metric", " ", "here", 
    " ", "then", " ", "transform", " ", "to", " ", "above"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Manufacture of Gowdy spacetimes with spikes by Rendall and \
Weaver\>\"", ",", "\[IndentingNewLine]", 
    "\"\<https://arxiv.org/abs/gr-qc/0103102\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.851068308549996*^9, 3.8510683247435923`*^9}, 
   3.851097897966774*^9, {3.851099849299197*^9, 3.851099859867293*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"5baee944-03fd-485a-8973-fa952cc5dba5"],

Cell[BoxData[
 TemplateBox[{
  "\"Manufacture of Gowdy spacetimes with spikes by Rendall and Weaver\"", 
   "https://arxiv.org/abs/gr-qc/0103102"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.851068325477787*^9, 3.851097986311965*^9, 
  3.851111704675396*^9, 3.851112647656315*^9, 3.854984304615745*^9, 
  3.8551397623880863`*^9, 3.8560387227563047`*^9, 3.857384453446845*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"d5a0f383-1036-4a65-ada0-5ba6727e61e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Electromagnetic Spike Solutions by Nungesser and Lim\>\"", ",", 
   "\"\<https://arxiv.org/abs/1304.2964\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8510653515181923`*^9, 3.85106537696987*^9}, {
  3.851065412829092*^9, 3.851065429743617*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"1d077f26-b917-4520-a8f5-cfe2a99a057d"],

Cell[BoxData[
 TemplateBox[{
  "\"Electromagnetic Spike Solutions by Nungesser and Lim\"", 
   "https://arxiv.org/abs/1304.2964"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.851065377387527*^9, {3.851065415513816*^9, 3.8510654297439747`*^9}, 
   3.851097986343755*^9, 3.851111704686763*^9, 3.851112647668659*^9, 
   3.85498430462932*^9, 3.855139762407082*^9, 3.856038722775296*^9, 
   3.857384453461767*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"2a7b537b-0dc3-4441-9e96-6c7d8c0e6142"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Electromagnetic Gowdy universe by Charach\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.19.3516\>\""}],
   "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843132345845397*^9, 3.843132366577804*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"0f4797f0-5a90-44b0-9dd6-0ba3fb88724d"],

Cell[BoxData[
 TemplateBox[{
  "\"Electromagnetic Gowdy universe by Charach\"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.19.3516"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843132360309507*^9, 3.843132366580761*^9}, 
   3.851002835428821*^9, 3.85100600337761*^9, 3.851008949634102*^9, 
   3.851097986356723*^9, 3.851111704717977*^9, 3.851112647701337*^9, 
   3.854984304654571*^9, 3.85513976243783*^9, 3.856038722827511*^9, 
   3.857384453488639*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"7c6705e5-9c8d-4c3f-952f-8c8ddd5b8cd6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Page", " ", "188"}], " ", "-", " ", 
    RowBox[{
    "introduced", " ", "terms", " ", "googol", " ", "suggested", " ", "by", 
     " ", "young", " ", "Nephew"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Kasner Biography\>\"", ",", "\[IndentingNewLine]", 
    "\"\<http://www.nasonline.org/publications/biographical-memoirs/memoir-\
pdfs/kasner-edward.pdf\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8486932901056147`*^9, 3.84869336305958*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"359c108c-de05-4460-adf1-a8fabc1080e4"],

Cell[BoxData[
 TemplateBox[{
  "\"Kasner Biography\"", 
   "http://www.nasonline.org/publications/biographical-memoirs/memoir-pdfs/\
kasner-edward.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.848693302610697*^9, 3.8486933090619917`*^9}, 
   3.851002835460793*^9, 3.8510060034*^9, 3.8510089496568317`*^9, 
   3.851097986392185*^9, 3.851111704732952*^9, 3.851112647714682*^9, 
   3.8549843046694593`*^9, 3.855139762457708*^9, 3.856038722861384*^9, 
   3.857384453500318*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"eaca0e87-c324-440d-8d6e-3a9758c8070b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding Plane Waves by Griffiths - Book\>\"", ",", 
   "\"\<ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%\
20plane%20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)\
(254s)_PGr_.pdf\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821971700891346*^9, 3.821971727288177*^9}, 
   3.8220418523671618`*^9, {3.8220419016581783`*^9, 3.822041910552957*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"ffe6ff9c-c225-4da5-b110-57c02512ea1b"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823423099506456*^9, 3.823432318651514*^9, 
   3.823435952067443*^9, 3.8234364867187634`*^9, 3.827953519196068*^9, 
   3.827955715706493*^9, 3.851002835492366*^9, 3.851006003415254*^9, 
   3.8510089496716633`*^9, 3.851097986405076*^9, 3.851111704768066*^9, 
   3.8511126477497883`*^9, 3.854984304693304*^9, 3.855139762487481*^9, 
   3.8560387229245577`*^9, 3.857384453523037*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"acd5ec2f-1ebd-43c1-9820-8bfeff2ffb04"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"8f67c955-791e-48b4-ae4d-\
a4801b469729"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"3547d059-08a9-4b7b-9672-8cbb84d3375a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.8279557158304777`*^9, 
   3.851002835657901*^9, 3.8510060035665073`*^9, 3.851008949820916*^9, 
   3.851065436297735*^9, 3.851068513168198*^9, {3.85109798656533*^9, 
   3.851098005804368*^9}, 3.8511000586308813`*^9, 3.851111704928434*^9, 
   3.851112647891399*^9, 3.854984304841572*^9, 3.85513976264406*^9, 
   3.856038723378846*^9, 3.857384453716241*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"6159ab82-e41e-490a-b557-daf287c9afcf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"20 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "20 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.8279557158304777`*^9, 
   3.851002835657901*^9, 3.8510060035665073`*^9, 3.851008949820916*^9, 
   3.851065436297735*^9, 3.851068513168198*^9, {3.85109798656533*^9, 
   3.851098005804368*^9}, 3.8511000586308813`*^9, 3.851111704928434*^9, 
   3.851112647891399*^9, 3.854984304841572*^9, 3.85513976264406*^9, 
   3.856038723378846*^9, 3.8573844537186613`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"3edfdb1c-250e-4481-9280-6de74302dd08"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827955715837903*^9, 
   3.85100283566621*^9, 3.8510060035751667`*^9, 3.851008949829352*^9, 
   3.8510654363040943`*^9, 3.8510685131735783`*^9, {3.851097986575368*^9, 
   3.851098005809924*^9}, 3.851100058636281*^9, 3.851111704936924*^9, 
   3.8511126478997087`*^9, 3.854984304858374*^9, 3.855139762662483*^9, 
   3.856038723390826*^9, 3.8573844537217283`*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"61604219-c91a-4e5f-8279-3496bdb7c01a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"dd372b0d-881b-4c13-85a5-e94b569bc6ef"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"82a0453a-662e-45e3-bbe7-\
85c46500107c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "\[Tau]", "]"}], "->", " ", "d\[Tau]"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "P", "]"}], "->", " ", "dP"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Q", "]"}], "->", " ", "dQ"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "->", " ", "dX"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "->", " ", "dZ"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.8511003158728313`*^9, 3.851100373967463*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"06bf62f8-0c02-427f-ab39-08d1a0ab65a3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Tau]", "]"}], "\[Rule]", "d\[Tau]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "P", "]"}], "\[Rule]", "dP"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Q", "]"}], "\[Rule]", "dQ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.827955715914514*^9, 
   3.8510028357473288`*^9, 3.851006003648923*^9, 3.851008949898053*^9, 
   3.8510654364799643`*^9, 3.851068518082294*^9, 3.8510979866540833`*^9, 
   3.8511000588038187`*^9, 3.851100374353334*^9, 3.8511117050017653`*^9, 
   3.851112647962075*^9, 3.854984304916935*^9, 3.8551397627380857`*^9, 
   3.856038723441699*^9, 3.857384453819251*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"35d1bd02-cb51-4c86-84b8-efc7e115b4a0"]
}, Open  ]]
}, 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->"6822e052-3eb1-4ab4-9321-\
20d9ef610f40"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"199d544b-94d3-487a-a3f8-28c066d9b22b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"edb33406-b44e-43db-ac15-2ad27e2f59f9"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.851112935080502*^9, 
  3.851112949521559*^9}},ExpressionUUID->"4ea059d4-946d-4cfd-9db8-\
681b49e4a93b"],

Cell["\<\
\[OpenCurlyDoubleQuote]For convenience, instead of the time \[Tau] that \
measures the geometric area of the two-dimensional group orbits we use the \
time t = \[Minus] ln \[Tau]\[CloseCurlyDoubleQuote]\
\>", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.857384036213077*^9, 
  3.857384063210422*^9}},ExpressionUUID->"3e46e3ab-de97-43ce-833c-\
7ed62dcd2810"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
      "Look", " ", "at", " ", "differentials", " ", "in", " ", "the", " ", 
       "paper"}], "..."}], " ", 
     RowBox[{"there", "'"}], "s", " ", "dx1"}], ",", " ", "dx2", ",", " ", 
    "dx", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "and", " ", "dy", " ", "along", " ", "with", " ", "dt", " ", "and", " ",
        "d\[Theta]"}], "..."}], "."}]}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
   RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"2", "A"}], "]"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "2"}], "t"}], "]"}]}], " ", 
         SuperscriptBox["dt", "2"]}], " ", "+", " ", 
        SuperscriptBox["d\[Theta]", "2"]}], ")"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"-", "t"}], "]"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Cosh", "[", "W", "]"}], " ", "+", " ", 
        RowBox[{
         RowBox[{"Cosh", "[", "\[CapitalPhi]", "]"}], " ", 
         RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}], 
      SuperscriptBox[
       RowBox[{"(", "dx", ")"}], "2"]}], "+", "  ", 
     RowBox[{"2", 
      RowBox[{"Exp", "[", 
       RowBox[{"-", "t"}], "]"}], " ", 
      RowBox[{"Sin", "[", "\[CapitalPhi]", "]"}], " ", 
      RowBox[{"Sinh", "[", "W", "]"}], "dx", " ", "dy"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"-", "t"}], "]"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Cosh", "[", "W", "]"}], " ", "-", " ", 
        RowBox[{
         RowBox[{"Cosh", "[", "\[CapitalPhi]", "]"}], " ", 
         RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}], 
      SuperscriptBox[
       RowBox[{"(", "dy", ")"}], "2"]}]}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.851112663386437*^9, 3.851112764483173*^9}, {
   3.851112811717264*^9, 3.851112815443416*^9}, 3.8511129415472593`*^9, {
   3.8573841142200403`*^9, 3.857384148267954*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"18a9a10e-a3b0-44b5-b811-4725900b69d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "A"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "-", 
     RowBox[{
      SuperscriptBox["dt", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "t"}]]}]}], ")"}]}], "+", 
  RowBox[{"2", " ", "dx", " ", "dy", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "t"}]], " ", 
   RowBox[{"Sin", "[", "\[CapitalPhi]", "]"}], " ", 
   RowBox[{"Sinh", "[", "W", "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "t"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cosh", "[", "W", "]"}], "-", 
     RowBox[{
      RowBox[{"Cosh", "[", "\[CapitalPhi]", "]"}], " ", 
      RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "t"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cosh", "[", "W", "]"}], "+", 
     RowBox[{
      RowBox[{"Cosh", "[", "\[CapitalPhi]", "]"}], " ", 
      RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.851112765304037*^9, 3.851112820204255*^9, 
  3.8511129415475883`*^9, 3.854984304965962*^9, 3.855139762795228*^9, 
  3.856038723526442*^9, 3.8573844538687363`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"8dc8257d-ecbc-460f-b4b4-36cc5b3882e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", " ", 
      RowBox[{"eq2", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "d\[Theta]", ",", "dx", ",", "dy"}], "}"}]}], 
      "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", "//",
    " ", "MatrixForm"}], " ", "//", " ", "pdConv", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8511127677948303`*^9, 3.851112774833274*^9}, {
   3.851112830458329*^9, 3.851112849625556*^9}, 3.8511129415477858`*^9, {
   3.8549843187252407`*^9, 3.854984320106542*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"a4410a36-0bd5-400b-b1b3-20cdc526eff4"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", "A"}], "-", 
          RowBox[{"2", " ", "t"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "A"}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cosh", "(", "\[CapitalPhi]", ")"}], " ", 
           RowBox[{"sinh", "(", "W", ")"}]}], "+", 
          RowBox[{"cosh", "(", "W", ")"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"sin", "(", "\[CapitalPhi]", ")"}], " ", 
        RowBox[{"sinh", "(", "W", ")"}]}]},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"sin", "(", "\[CapitalPhi]", ")"}], " ", 
        RowBox[{"sinh", "(", "W", ")"}]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cosh", "(", "W", ")"}], "-", 
          RowBox[{
           RowBox[{"cosh", "(", "\[CapitalPhi]", ")"}], " ", 
           RowBox[{"sinh", "(", "W", ")"}]}]}], ")"}]}]}
     },
     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.851112837125955*^9, 3.8511128499829187`*^9}, 
   3.851112941548276*^9, 3.854984305036688*^9, 3.855139762899069*^9, 
   3.8560387236147223`*^9, 3.8573844539726562`*^9},
 CellLabel->
  "Out[12]//TraditionalForm=",ExpressionUUID->"d8a24e3a-3bbe-4bf9-bcbd-\
0f7297077033"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"W", "->", " ", 
      RowBox[{"W", "[", 
       RowBox[{"t", ",", "\[Theta]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"A", "->", " ", 
      RowBox[{"A", "[", 
       RowBox[{"t", ",", "\[Theta]"}], "]"}]}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalPhi]", "->", " ", 
      RowBox[{"\[CapitalPhi]", "[", 
       RowBox[{"t", ",", "\[Theta]"}], "]"}]}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.851112861418447*^9, 3.851112905641727*^9}, 
   3.851112941548489*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"88edfad4-6003-4454-b087-1029d1327bab"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"W", "[", 
        RowBox[{"t", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"A", "\[Rule]", 
       RowBox[{"A", "[", 
        RowBox[{"t", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"\[CapitalPhi]", "\[Rule]", 
       RowBox[{"\[CapitalPhi]", "[", 
        RowBox[{"t", ",", "\[Theta]"}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.851112905904009*^9, 3.851112941548746*^9, 
  3.854984305051111*^9, 3.855139763554995*^9, 3.856038723706519*^9, 
  3.857384454195217*^9},
 CellLabel->
  "Out[15]//TableForm=",ExpressionUUID->"3ed56291-8681-447d-9c1c-\
339918348686"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"lineToMetric", "[", " ", 
       RowBox[{"eq2", " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"dt", ",", "d\[Theta]", ",", "dx", ",", "dy"}], "}"}]}], 
       "]"}], "   ", "/.", " ", "eq2a"}], " ", "//", " ", "Expand"}], " ", "//",
     " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2a", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8511129154260197`*^9, 3.851112941548951*^9}, {
  3.851113369798538*^9, 3.851113372429789*^9}, {3.8549843233649397`*^9, 
  3.854984324714528*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"e514b5e3-d578-4ea4-ab1e-700983ef902f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", "t"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8511129172657013`*^9, 3.851112941549203*^9}, 
   3.8511133741802473`*^9, 3.8549843051009274`*^9, 3.855139763629813*^9, 
   3.8560387238040237`*^9, 3.857384454318077*^9},
 CellLabel->
  "Out[18]//TraditionalForm=",ExpressionUUID->"2de09efb-029a-473b-bd87-\
7ca8f8db7f7c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation of Tensors Associated With 2:  Gowdy Metric", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8209375013653803`*^9, 3.820937526701229*^9}, 
   3.8211102293506603`*^9, 3.8313752520057173`*^9, {3.847416354417803*^9, 
   3.847416360186079*^9}, 3.847416535430709*^9, {3.847449104325246*^9, 
   3.847449108093693*^9}, 3.847449246194189*^9, {3.851330728295879*^9, 
   3.851330728672028*^9}, {3.851331553626371*^9, 3.8513315580263357`*^9}, {
   3.8573842576021023`*^9, 
   3.857384262930168*^9}},ExpressionUUID->"6632b80d-1929-4f08-96d3-\
bbb952202a99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.819639535112979*^9, 3.819639560098693*^9}, 
   3.821109141509594*^9, 3.821109340369235*^9, 3.821110229350811*^9, {
   3.824511755669795*^9, 3.824511758917903*^9}, 3.831375252005905*^9, 
   3.847416535431134*^9, 3.847449246194717*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"4d818c2e-eabd-4487-bb8d-6c4cb41ada2a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input2", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input2", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList2", "]"}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"tensorList2", " ", "=", " ", 
       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[{"tensorList2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{"tensorList2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", 
        RowBox[{"(*", "  ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], " ",
         "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"tensorList2", "[", 
          RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", 
         "\[IndentingNewLine]", 
         RowBox[{"RiemannTensor", "[", " ", 
          RowBox[{
           RowBox[{"tensorList2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
           RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
          "]"}]}], ";"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{"tensorList2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", 
        RowBox[{"(*", " ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], 
        "  ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{"tensorList2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", 
        RowBox[{"(*", "  ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], 
        "  ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"(*", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"tensorList2", "[", 
          RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", 
         "\[IndentingNewLine]", 
         RowBox[{"KretschmannScalar", "[", " ", 
          RowBox[{
           RowBox[{"tensorList2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
           RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", 
        ";"}], "  ", "*)"}], " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{"tensorList2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", 
        RowBox[{"(*", " ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], " ",
         "]"}]}], " ", ";"}]}], "  ", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList2", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList2", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}], " ", "*)"}], " ", "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252006031*^9, {
   3.8474038611827793`*^9, 3.847403867599221*^9}, 3.8474165354316883`*^9, {
   3.8474492039774103`*^9, 3.8474492101688557`*^9}, 3.847449246195307*^9, {
   3.851330856766384*^9, 3.8513308651499557`*^9}, {3.857384678709964*^9, 
   3.85738471470135*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"cd9bde90-54e5-4d96-b8ad-0acd7e2e0404"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "6.47", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton", " ", "and", " ", "Weyl"}], "  ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input2", "[", " ", 
    RowBox[{
    "\"\<metric2a\>\"", ",", " ", "metric2a", ",", " ", "\"\<GowdyThetaT\>\"",
      ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(gowdyt\)]\)\>\"", ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\[Theta]", ",", "x", ",", "y"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252006147*^9, {3.847403870091002*^9, 
   3.847403929698141*^9}, {3.847404022235608*^9, 3.847404029698062*^9}, {
   3.847416345971665*^9, 3.847416348979048*^9}, 3.847416535432024*^9, {
   3.847449116030253*^9, 3.84744913971023*^9}, {3.847449175262206*^9, 
   3.847449176453555*^9}, 3.8474492461956472`*^9, {3.851330735057355*^9, 
   3.85133076471279*^9}, {3.851330875580987*^9, 3.851330882691606*^9}, {
   3.856036324755005*^9, 3.8560363302436237`*^9}, {3.8573842909151287`*^9, 
   3.857384295202922*^9}, {3.857384333194414*^9, 3.8573843616851*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"30623d70-38c3-4d18-8f6b-1bbb992aad28"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.008602`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8474165000448236`*^9, 3.847416535432383*^9, 3.847449143886591*^9, 
   3.84744918076604*^9, {3.847449216485512*^9, 3.847449246195939*^9}, {
   3.8513308534791517`*^9, 3.851330870932981*^9}, 3.8513310725500174`*^9, 
   3.854897090881572*^9, 3.855141199247834*^9, 3.856000114113209*^9, 
   3.8560363250357857`*^9, 3.857384673353953*^9, 3.857384801288986*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"cfcaa38e-cd03-4b06-a753-d22e9bd687f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["tensorList2"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820937492203697*^9, 3.8211102293511972`*^9, 
  3.831375252006414*^9, 3.8474038612536077`*^9, 3.847416535432839*^9, 
  3.8474492461962214`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"333e8b0a-f942-4ab9-8ceb-beb9f97f5ff6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "gowdyt"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", "\<\"riemannmetric2a\"\>", ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", "\<\"kretschmannscalarmetric2a\"\>", ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", "\<\"weylmetric2a\"\>", 
   ",", "\<\"cottonmetric2a\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.8313752520065403`*^9, 3.847404008543681*^9, 
   3.847404675945999*^9, 3.847416470111147*^9, {3.8474165117259398`*^9, 
   3.8474165354332457`*^9}, 3.847449143899579*^9, 3.8474491808212023`*^9, {
   3.847449216554521*^9, 3.847449246196561*^9}, 3.851330870985383*^9, 
   3.851331072665431*^9, 3.854897090938126*^9, 3.856000114183522*^9, 
   3.856036325126337*^9, 3.857384801345895*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"5bc73ce5-3b84-497b-a78c-96a009959855"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList2", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList2", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList2", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.831375252006675*^9, {
   3.847403861256631*^9, 3.8474038612591553`*^9}, 3.8474165354337997`*^9, 
   3.847449246196868*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"4b4bfc74-7900-44ce-a98d-bc14fbe4b8bb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "gowdyt"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252006796*^9, 
   3.847404008560998*^9, 3.847404675967813*^9, 3.847416470129777*^9, {
   3.847416511778412*^9, 3.8474165354345093`*^9}, 3.8474491439295263`*^9, 
   3.847449180838953*^9, {3.847449216571418*^9, 3.8474492461971416`*^9}, 
   3.851330871001225*^9, 3.8513310726830063`*^9, 3.854897090955305*^9, 
   3.8560001142017384`*^9, 3.856036325150095*^9, 3.857384801354229*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"93a4ac77-afc4-402d-9a87-0cdc73d8aa53"],

Cell[BoxData["\<\"GowdyThetaT\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252006796*^9, 
   3.847404008560998*^9, 3.847404675967813*^9, 3.847416470129777*^9, {
   3.847416511778412*^9, 3.8474165354345093`*^9}, 3.8474491439295263`*^9, 
   3.847449180838953*^9, {3.847449216571418*^9, 3.8474492461971416`*^9}, 
   3.851330871001225*^9, 3.8513310726830063`*^9, 3.854897090955305*^9, 
   3.8560001142017384`*^9, 3.856036325150095*^9, 3.857384801356083*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"014364f8-eaff-49b9-8615-6134c76cdec6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"A", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}]}], "-", 
          RowBox[{"2", " ", "t"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"A", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]},
      {"0", "0", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "t"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252006796*^9, 
   3.847404008560998*^9, 3.847404675967813*^9, 3.847416470129777*^9, {
   3.847416511778412*^9, 3.8474165354345093`*^9}, 3.8474491439295263`*^9, 
   3.847449180838953*^9, {3.847449216571418*^9, 3.8474492461971416`*^9}, 
   3.851330871001225*^9, 3.8513310726830063`*^9, 3.854897090955305*^9, 
   3.8560001142017384`*^9, 3.856036325150095*^9, 3.85738480137634*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"b6906202-0854-49d4-9b71-\
fc58793b55b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList2", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList2", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList2", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.8313752520071993`*^9, {
   3.847403861262203*^9, 3.847403861264686*^9}, 3.847416535435412*^9, 
   3.847449246198081*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"5c597059-f50c-4d08-9e71-755ab028616c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.8313752520073223`*^9, 
   3.847404008609926*^9, 3.847404676027688*^9, 3.8474164701976633`*^9, {
   3.847416511814249*^9, 3.847416535435987*^9}, 3.8474491439711123`*^9, 
   3.847449180891995*^9, {3.847449216629054*^9, 3.8474492461984043`*^9}, 
   3.851330871058573*^9, 3.851331072769835*^9, 3.8548970910239477`*^9, 
   3.8560001142651567`*^9, 3.856036325233922*^9, 3.857384801387232*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"cb1f6e06-f26f-4537-9815-77436ab952f5"],

Cell[BoxData["\<\"ChristoffelSymbolGowdyThetaT\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.8313752520073223`*^9, 
   3.847404008609926*^9, 3.847404676027688*^9, 3.8474164701976633`*^9, {
   3.847416511814249*^9, 3.847416535435987*^9}, 3.8474491439711123`*^9, 
   3.847449180891995*^9, {3.847449216629054*^9, 3.8474492461984043`*^9}, 
   3.851330871058573*^9, 3.851331072769835*^9, 3.8548970910239477`*^9, 
   3.8560001142651567`*^9, 3.856036325233922*^9, 3.857384801388875*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"4197b07e-4eb5-478a-852e-0d5f59368f89"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"A", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None]}], "-", "2"}], ")"}]}]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", "t"}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
               "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", "t"}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[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"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", "t"}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"2", " ", "t"}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"A", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                  "+", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[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[{
           {
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], "-", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"cosh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", "t"}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"cos", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", "t"}]], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"cos", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "-", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", "t"}]], " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"2", " ", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], "-", "t"}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "\[Theta]"}],
                  MultilineFunction->None], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
               RowBox[{
                RowBox[{"cosh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{"-", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
               "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}],
                   ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                    "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                    ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                   "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[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[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}],
                   ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]]}], ")"}]}]},
           {"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[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                    "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                    ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                   "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}],
                   ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                    "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                    ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                   "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[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[{
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}],
                   ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]]}], ")"}]}]},
           {"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[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                    "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                    "-", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                    ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                 " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{"-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                   "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", "t"], " ", 
                 RowBox[{"sin", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", "t"}]], " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Theta]"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                 "-", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]]}], ")"}]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.8313752520073223`*^9, 
   3.847404008609926*^9, 3.847404676027688*^9, 3.8474164701976633`*^9, {
   3.847416511814249*^9, 3.847416535435987*^9}, 3.8474491439711123`*^9, 
   3.847449180891995*^9, {3.847449216629054*^9, 3.8474492461984043`*^9}, 
   3.851330871058573*^9, 3.851331072769835*^9, 3.8548970910239477`*^9, 
   3.8560001142651567`*^9, 3.856036325233922*^9, 3.8573848024276333`*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"cd5a0f25-6228-4edf-a519-\
e77f5249636f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList2", "[", 
      RowBox[{"[", "3", "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorName", "[", 
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}]}], " ", "//", " ", 
    "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.831375252007658*^9, {
   3.847403861268901*^9, 3.847403861272667*^9}, 3.847416535436865*^9, 
   3.847449246199284*^9, {3.857384754715144*^9, 3.8573847593307*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"6d6fa3eb-423b-44f8-bce0-ae12d4b535ff"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList2", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList2", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
    " ", "//", " ", "pdConv"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.83137525200821*^9, {
   3.8474038612787323`*^9, 3.847403861281254*^9}, 3.847416535438661*^9, 
   3.847449246200851*^9, {3.8573847637868958`*^9, 3.8573847665223293`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"c657754c-820e-427a-8ac0-91052fe6d154"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252008375*^9, 
   3.8474040092828913`*^9, 3.8474046768130617`*^9, 3.847416470323243*^9, {
   3.8474165126020603`*^9, 3.84741653543925*^9}, 3.847449144100711*^9, 
   3.847449181160681*^9, {3.847449216889722*^9, 3.847449246201253*^9}, 
   3.851330875232944*^9, 3.851331077167074*^9, 3.8548970952677507`*^9, 
   3.856000118870534*^9, 3.8560363302935877`*^9, 3.8573848025207863`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"4f2b826a-6c42-41f0-bf10-3dfdd32d944b"],

Cell[BoxData["\<\"RicciTensorGowdyThetaT\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252008375*^9, 
   3.8474040092828913`*^9, 3.8474046768130617`*^9, 3.847416470323243*^9, {
   3.8474165126020603`*^9, 3.84741653543925*^9}, 3.847449144100711*^9, 
   3.847449181160681*^9, {3.847449216889722*^9, 3.847449246201253*^9}, 
   3.851330875232944*^9, 3.851331077167074*^9, 3.8548970952677507`*^9, 
   3.856000118870534*^9, 3.8560363302935877`*^9, 3.8573848025237827`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"93d045e0-5844-482e-91e6-182f1d99619f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList2", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList2", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
    " ", "//", " ", "pdConv"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.831375252008679*^9, {
   3.847403861284441*^9, 3.8474038612869997`*^9}, 3.847416535440155*^9, 
   3.8474492462021847`*^9, {3.857384770003334*^9, 3.857384772874775*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"d258e31c-5be7-4193-b701-2b55eb88d5b6"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252008758*^9, 
   3.847404009348472*^9, 3.847404676909071*^9, 3.8474164703774853`*^9, {
   3.847416512702531*^9, 3.847416535441161*^9}, 3.8474491441436853`*^9, 
   3.847449181231947*^9, {3.847449216955535*^9, 3.847449246202465*^9}, 
   3.851330875439931*^9, 3.851331077376742*^9, 3.85489709547016*^9, 
   3.856000119093473*^9, 3.8560363305396137`*^9, 3.857384802544126*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"5a0669ef-e2b3-47ea-bd36-49f645bda860"],

Cell[BoxData["\<\"RicciScalarGowdyThetaT\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252008758*^9, 
   3.847404009348472*^9, 3.847404676909071*^9, 3.8474164703774853`*^9, {
   3.847416512702531*^9, 3.847416535441161*^9}, 3.8474491441436853`*^9, 
   3.847449181231947*^9, {3.847449216955535*^9, 3.847449246202465*^9}, 
   3.851330875439931*^9, 3.851331077376742*^9, 3.85489709547016*^9, 
   3.856000119093473*^9, 3.8560363305396137`*^9, 3.857384802548023*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"e611be08-4739-4157-8c51-3cc9c72a516b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "6", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "6", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252008987*^9, {3.8474038612905693`*^9, 3.8474038612933273`*^9}, 
   3.847416535442087*^9, {3.84744919270166*^9, 3.847449196383855*^9}, 
   3.847449246203314*^9, {3.851330890211999*^9, 3.8513308945628843`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"e9444194-d997-4c40-949a-2cdb977f6c1a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList2", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList2", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
    " ", "//", " ", "pdConv"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.83137525200907*^9, {3.8474038612981997`*^9, 
   3.847403861300675*^9}, 3.847416535442424*^9, 3.847449246204462*^9, {
   3.8573847762830963`*^9, 3.857384779410611*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"c11645a5-b48c-4941-a000-6ce2297528cb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252009149*^9, 
   3.84740400943887*^9, 3.847404677010847*^9, 3.847416470451255*^9, {
   3.847416512771937*^9, 3.847416535442955*^9}, 3.847449144196166*^9, 
   3.847449181291383*^9, 3.8474492462047157`*^9, 3.851330875540749*^9, 
   3.8513310774744368`*^9, 3.854897095554826*^9, 3.856000119174479*^9, 
   3.856036330666483*^9, 3.857384802575797*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"9b3b0bb3-bb86-4e96-8280-26b1a40909dc"],

Cell[BoxData["\<\"EinsteinTensorGowdyThetaT\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252009149*^9, 
   3.84740400943887*^9, 3.847404677010847*^9, 3.847416470451255*^9, {
   3.847416512771937*^9, 3.847416535442955*^9}, 3.847449144196166*^9, 
   3.847449181291383*^9, 3.8474492462047157`*^9, 3.851330875540749*^9, 
   3.8513310774744368`*^9, 3.854897095554826*^9, 3.856000119174479*^9, 
   3.856036330666483*^9, 3.8573848025797997`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"62ed0830-db3e-4e19-8e6e-68e41b5930da"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "8", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "8", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.831375252009362*^9, {3.847403861305853*^9, 
   3.847403861308338*^9}, 3.847416535443722*^9, 3.847449246209983*^9, {
   3.8513308976358223`*^9, 3.8513309020910387`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"8e4c5a14-414f-46f8-ba47-3b35091358b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList2", "[", 
       RowBox[{"[", "9", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList2", "[", 
        RowBox[{"[", "9", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, 
   3.8313752520096483`*^9, {3.8474038613127737`*^9, 3.847403861315432*^9}, 
   3.847416535446817*^9, {3.847449224407652*^9, 3.84744924621109*^9}, {
   3.8513309045955753`*^9, 3.851330908835355*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"ebe41265-40e3-466d-9106-a9fa4cd4e27f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Vacuum Field Equations (Not Working.... )", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.855773448192749*^9, 3.8557734613620567`*^9}, {
  3.8573859502820683`*^9, 
  3.857385953962269*^9}},ExpressionUUID->"a48fc8ab-d9e0-4147-a7b9-\
66b463d4f268"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicciGowdy", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicciGowdy", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"DeleteDuplicates", "[", 
      RowBox[{"Cases", "[", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"If", "[", " ", 
            RowBox[{
             RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
             RowBox[{
              RowBox[{"TensorValues", "[", 
               RowBox[{"tensorList2", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}],
            " ", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", 
        ",", " ", 
        RowBox[{"Except", "[", "0", "]"}]}], "]"}], "]"}], " ", "//", " ", 
     "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicciGowdy", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8550804551055307`*^9, 3.855080461809052*^9}, 
   3.855773453961225*^9, {3.857384407683302*^9, 3.857384424850061*^9}, {
   3.857384722555319*^9, 3.857384727995309*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"cac91f18-f911-41bd-8d67-868809a3ecaa"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", "t"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                "+", 
               RowBox[{"2", " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               "+", "8"}], ")"}], "2"]}], "+", 
           RowBox[{"2", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"cos", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                ")"}]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"cos", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
              RowBox[{"cosh", "(", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
              "+", 
              RowBox[{"cosh", "(", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
               "+", 
              RowBox[{"cosh", "(", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
               "+", 
              RowBox[{"2", " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
              RowBox[{"cosh", "(", 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
              "+", "8"}], ")"}]}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "8"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["cosh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{
                SuperscriptBox["cosh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{
                SuperscriptBox["cos", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"16", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{
                SuperscriptBox["cosh", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sin", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{
                SuperscriptBox["sin", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               RowBox[{"cos", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "3"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               RowBox[{
                SuperscriptBox["cos", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"16", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "4"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"sin", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"sin", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", "2"}], 
                   ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "4"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    "3"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 RowBox[{"8", " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "4"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "4"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 RowBox[{"8", " ", 
                  RowBox[{
                   SuperscriptBox["sin", "4"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "4"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                    "1"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "4"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "4"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sin", "4"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}],
               "-", 
              RowBox[{"8", " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{"sin", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "4"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["t", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox["1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  RowBox[{"cos", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                 "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                  "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                  "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                 "+", "24"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}],
               "-", 
              RowBox[{
               FractionBox["1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"cos", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                 "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                  "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                  "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                 "-", "8"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"A", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"cos", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                 "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                  "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                  "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                 "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                 "8"}], ")"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"64", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
          "2"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "4"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "4"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{
           SuperscriptBox["cos", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{"4", " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "4"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "4"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "3"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{
           SuperscriptBox["cos", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "2"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          RowBox[{"cos", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["cosh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sin", "2"], "(", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sin", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["sinh", "4"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "3"], "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "t"}],
           MultilineFunction->None], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "8"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{
            RowBox[{"\[PartialD]", "t"}], "\[ThinSpace]", 
            RowBox[{"\[PartialD]", "\[Theta]"}]}],
           MultilineFunction->None], " ", 
          RowBox[{
           SuperscriptBox["sinh", "2"], "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "32"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"cos", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "-", 
            RowBox[{"2", " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "-",
             "8"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"cos", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "-", 
            RowBox[{"2", " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cos", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", "8"}], 
           ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "16"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cos", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                "+", 
               RowBox[{"2", " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               "+", "8"}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                  RowBox[{
                   SuperscriptBox["sin", "2"], "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", "2"}], 
                 ")"}], " ", 
                RowBox[{
                 SuperscriptBox["cosh", "4"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                  "3"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["sinh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
               RowBox[{"8", " ", 
                RowBox[{
                 SuperscriptBox["cosh", "4"], "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["sinh", "4"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
               RowBox[{"8", " ", 
                RowBox[{
                 SuperscriptBox["sin", "4"], "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["sinh", "4"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                  "1"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["sinh", "4"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{"4", " ", 
                RowBox[{
                 SuperscriptBox["sin", "2"], "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["sinh", "4"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["sin", "4"], "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["sinh", "2"], "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}], 
            "-", 
            RowBox[{
             RowBox[{"cosh", "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  "-", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                   "-", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                   "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  "-", "8"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  "-", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                   "-", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                   "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  "-", "24"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "t"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"sin", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                 ")"}]}]}], ")"}]}]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
          "2"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", "2"}], 
              ")"}], " ", 
             RowBox[{
              SuperscriptBox["cosh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["cosh", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", "3"}], 
              ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["cosh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
            RowBox[{"8", " ", 
             RowBox[{
              SuperscriptBox["cosh", "4"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
            RowBox[{"8", " ", 
             RowBox[{
              SuperscriptBox["sin", "4"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
               "1"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["cosh", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "4"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"2", " ", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"2", " ", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"cos", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "+", 
            RowBox[{"2", " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "+",
             "24"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"2", " ", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"sin", "(", 
             RowBox[{"2", " ", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
            RowBox[{"sinh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "8"}], " ", 
             RowBox[{
              SuperscriptBox["cosh", "4"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"8", " ", 
             RowBox[{
              SuperscriptBox["sin", "4"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
            RowBox[{"4", " ", 
             RowBox[{
              SuperscriptBox["cos", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["cosh", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
            RowBox[{"4", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             RowBox[{"sin", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "4"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["cosh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cos", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
               "3"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"2", " ", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"2", " ", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"cos", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "+", 
            RowBox[{"2", " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "+",
             "8"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
           RowBox[{"\[PartialD]", "\[Theta]"}],
           MultilineFunction->None], " ", 
          RowBox[{"sinh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cos", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "\[Theta]"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}]}],
            ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"cos", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "-", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
            "-", 
            RowBox[{"2", " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
            RowBox[{"cosh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], "-",
             "8"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"8", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             RowBox[{"cos", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             RowBox[{"cosh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["t", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}],
                "-", 
               RowBox[{"2", " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"2", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               "-", "8"}], ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sin", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sin", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cos", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
               RowBox[{"cosh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
             " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}], 
            "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}], 
            "-", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}], 
            "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
              ")"}]}], "-", 
            RowBox[{"\[ImaginaryI]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
              ")"}]}], "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "-", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
              ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
              ")"}]}], "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
              ")"}]}], "-", 
            RowBox[{"\[ImaginaryI]", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], ")"}]}], 
              ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}], 
            "-", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", "t"}]], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"A", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", "t"}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}], 
            "+", 
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["\[Theta]", "2"]}],
              MultilineFunction->None], " ", 
             RowBox[{"sinh", "(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}], "+", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}]}],
            ")"}]}]}], 
        RowBox[{"32", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
               RowBox[{
                SuperscriptBox["sin", "2"], "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["sinh", "2"], "(", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
          "2"]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "t"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", "1"}], 
             ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "3"], "(", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
              RowBox[{
               RowBox[{"cosh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"]}], "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "8"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"4", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 RowBox[{"sinh", "(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}],
               "+", 
              RowBox[{
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"3", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], ")"}], 
            " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", 
                  RowBox[{"cos", "(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"7", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"3", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"cos", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], ")"}]}],
            "-", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                  " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
               "+", 
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["\[Theta]", "2"]}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                  " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
               "+", 
              RowBox[{
               FractionBox["1", "4"], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", "t"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", "1"}], 
                   ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "3"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["sinh", "3"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                  " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                    " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "8"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["cosh", "3"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                    " ", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["sinh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"4", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    RowBox[{"sinh", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                    " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["sinh", "3"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}],
                     "+", 
                    RowBox[{
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"3", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], 
                    ")"}]}]}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "t"}],
                    MultilineFunction->None], ")"}], "2"], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "4"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[ImaginaryI]"}], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                    RowBox[{"7", " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"3", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                    " ", 
                    RowBox[{
                    SuperscriptBox["sinh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                    " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], 
                   ")"}]}], "-", 
                 RowBox[{"4", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], 
                    " ", 
                    RowBox[{
                    SuperscriptBox["sinh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                  " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
                    "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                    MultilineFunction->None], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
                  "-", 
                 RowBox[{"2", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}], 
                  " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"8", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["cosh", "2"], "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", 
             RowBox[{"A", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}], "-", "t"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}],
                 ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], " ", 
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{"sin", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["t", "2"]}],
                   MultilineFunction->None], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}],
               "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}],
               "+", 
              RowBox[{
               FractionBox["1", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"sinh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "3"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"7", " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"sin", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                    RowBox[{"sin", "(", 
                    RowBox[{"3", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"sinh", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "t"}],
                MultilineFunction->None], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"sin", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}],
                  "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "t"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"4", " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["sinh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"3", " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                    RowBox[{"cos", "(", 
                    RowBox[{"3", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                    RowBox[{"2", " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                    ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "t"}],
                  MultilineFunction->None], ")"}], "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"cos", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                ")"}]}]}], ")"}]}], "-", 
           RowBox[{"4", " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}], 
             ")"}]}], "-", 
           RowBox[{"4", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{"cos", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sin", "2"], "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}], 
             ")"}]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"7", " ", 
                   RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"sin", "(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                 RowBox[{"sin", "(", 
                  RowBox[{"3", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                 RowBox[{"sinh", "(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                ")"}]}]}], ")"}]}], "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"2", " ", 
                 RowBox[{"W", "(", 
                  RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
              RowBox[{"8", " ", 
               RowBox[{"cos", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"cos", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  RowBox[{"cos", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                 RowBox[{"cosh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                 "5"}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cos", "(", 
               RowBox[{"2", " ", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
              RowBox[{"cosh", "(", 
               RowBox[{"2", " ", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}]}]}], 
          ")"}]}], 
        RowBox[{"8", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["cosh", "2"], "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
           RowBox[{
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]}], 
          ")"}]}]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "t"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"A", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}]}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sin", "(", 
             RowBox[{"2", " ", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"2", " ", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cos", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cos", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cos", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "3"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cos", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cos", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cos", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", "1"}], 
             ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "3"], "(", 
               RowBox[{"W", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
              RowBox[{
               RowBox[{"cosh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}], 
           "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "\[Theta]"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"cosh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               FractionBox["1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "\[ImaginaryI]"}], " ", 
                    RowBox[{"cos", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                    RowBox[{"7", " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], "+", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"3", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
                  " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                ")"}]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cosh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "t"}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["t", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            RowBox[{
             SuperscriptBox["cosh", "2"], "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["\[Theta]", "2"]}],
             MultilineFunction->None], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "t"}]], " ", 
            RowBox[{"cos", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
               RowBox[{"\[PartialD]", "t"}],
               MultilineFunction->None], ")"}], "2"], " ", 
            RowBox[{"sin", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "3"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
            RowBox[{"sinh", "(", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
           RowBox[{
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"W", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"t", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["cosh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], ")"}], 
               " ", 
               RowBox[{
                SuperscriptBox["cosh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 FractionBox["1", "4"], "+", 
                 FractionBox["\[ImaginaryI]", "4"]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["sinh", "2"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"2", "+", "\[ImaginaryI]"}], ")"}], " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"4", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 RowBox[{"sinh", "(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"3", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], ")"}],
                " ", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
              RowBox[{
               FractionBox["1", "2"], " ", 
               RowBox[{
                SuperscriptBox["sinh", "3"], "(", 
                RowBox[{"W", "(", 
                 RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"sin", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"t", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                ")"}]}]}], ")"}]}]}], ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["cosh", "2"], "(", 
            RowBox[{"W", "(", 
             RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["cosh", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}], "+", 
              RowBox[{
               SuperscriptBox["sin", "2"], "(", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}], " ", 
            RowBox[{
             SuperscriptBox["sinh", "2"], "(", 
             RowBox[{"W", "(", 
              RowBox[{"t", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.857385244813693*^9},
 CellLabel->
  "Out[46]//TraditionalForm=",ExpressionUUID->"56ab76d4-c1e4-488a-9b7d-\
f1a770b78678"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinsteinGowdy", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinsteinGowdy", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"DeleteDuplicates", "[", 
      RowBox[{"Cases", "[", " ", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"If", "[", " ", 
            RowBox[{
             RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
             RowBox[{
              RowBox[{"TensorValues", "[", 
               RowBox[{"tensorList2", "[", 
                RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}],
            " ", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", 
        ",", " ", 
        RowBox[{"Except", "[", "0", "]"}]}], "]"}], "]"}], "  ", "//", " ", 
     "Expand"}], " ", "//", "  ", "Simplify"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinsteinGowdy", " ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8550804645210114`*^9, 3.855080470568581*^9}, 
   3.855773453961347*^9, {3.857384409350391*^9, 3.857384438930798*^9}, {
   3.85738473006879*^9, 3.857384735923314*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"ca512221-6e7d-4853-837d-169aed5a4af3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transformation (Not Done Yet)", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.854984923908677*^9, 
  3.854984946341771*^9}},ExpressionUUID->"bda70d90-3bf7-4e49-9042-\
4b87faeade7e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "tToTau", "]"}], "\[IndentingNewLine]", 
 RowBox[{"tToTau", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"t", " ", "->", "  ", 
   RowBox[{"-", " ", 
    RowBox[{"Log", "[", "\[Tau]", "]"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8511133838695517`*^9, 3.851113420254019*^9}, 
   3.8549849334374027`*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"9fb73ec1-a8ad-413a-acd6-72d9b9d2b6d3"],

Cell[BoxData[
 RowBox[{"t", "\[Rule]", 
  RowBox[{"-", 
   RowBox[{"Log", "[", "\[Tau]", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.851113421655526*^9, 3.85498430511306*^9, 
  3.8549849334376*^9, 3.8551397636460543`*^9, 3.8560387238234787`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"a012be66-9083-48de-a869-7b1a060e7696"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "tToTau", " ", "]"}], " ", "/.", " ", 
  "dtReplace"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.851113423934758*^9, 3.851113434975862*^9}, 
   3.854984933437757*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"5e495490-0a67-456b-89f1-212d5231e427"],

Cell[BoxData[
 RowBox[{"dt", "\[Rule]", 
  RowBox[{"-", 
   FractionBox["d\[Tau]", "\[Tau]"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.851113431444466*^9, 3.851113435370648*^9}, 
   3.854984305132839*^9, 3.854984933437931*^9, 3.855139763675139*^9, 
   3.856038723880447*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"5e793c32-be5f-4908-a599-119f201202be"],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq2", " ", "/.", " ", "tToTau"}], "  ", "/.", " ", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "tToTau", " ", "]"}], " ", "/.", " ", 
    "dtReplace"}], ")"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.851113452277179*^9, 3.851113452909523*^9}, {
   3.851113689759657*^9, 3.85111370554137*^9}, 3.854984933438087*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"8dba188e-93e9-4e2c-805a-4cad48b52c8e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "-", 
     SuperscriptBox["d\[Tau]", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "A"}]]}], "+", 
  RowBox[{"2", " ", "dx", " ", "dy", " ", "\[Tau]", " ", 
   RowBox[{"Sin", "[", "\[CapitalPhi]", "]"}], " ", 
   RowBox[{"Sinh", "[", "W", "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", "\[Tau]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cosh", "[", "W", "]"}], "-", 
     RowBox[{
      RowBox[{"Cosh", "[", "\[CapitalPhi]", "]"}], " ", 
      RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", "\[Tau]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Cosh", "[", "W", "]"}], "+", 
     RowBox[{
      RowBox[{"Cosh", "[", "\[CapitalPhi]", "]"}], " ", 
      RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.851113449830698*^9, 3.8511136985364532`*^9, 
  3.854984305141732*^9, 3.854984933438249*^9, 3.855139763690529*^9, 
  3.8560387239044724`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"590d8db2-9516-4299-8462-b0a9fb6b3617"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"eq2", " ", "/.", " ", "tToTau"}], "  ", "/.", " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Dt", "[", " ", "tToTau", " ", "]"}], " ", "/.", " ", 
         "dtReplace"}], ")"}]}], " ", ")"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"d\[Tau]", ",", "d\[Theta]", ",", "dx", ",", "dy"}], "}"}]}], 
    " ", "]"}], " ", "//", " ", "MatrixForm"}], " ", "//", " ", "pdConv", 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.851113710213694*^9, 3.851113742197455*^9}, {
   3.854984328405665*^9, 3.854984329778432*^9}, 3.854984933438428*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"0d549e2a-187c-4f54-9f76-87d2aa2bf134"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "A"}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "A"}]], "0", "0"},
      {"0", "0", 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cosh", "(", "\[CapitalPhi]", ")"}], " ", 
           RowBox[{"sinh", "(", "W", ")"}]}], "+", 
          RowBox[{"cosh", "(", "W", ")"}]}], ")"}]}], 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"sin", "(", "\[CapitalPhi]", ")"}], " ", 
        RowBox[{"sinh", "(", "W", ")"}]}]},
      {"0", "0", 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"sin", "(", "\[CapitalPhi]", ")"}], " ", 
        RowBox[{"sinh", "(", "W", ")"}]}], 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cosh", "(", "W", ")"}], "-", 
          RowBox[{
           RowBox[{"cosh", "(", "\[CapitalPhi]", ")"}], " ", 
           RowBox[{"sinh", "(", "W", ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8511137364389753`*^9, 3.8511137599368353`*^9}, 
   3.8549843051626062`*^9, 3.85498493343864*^9, 3.8551397637220182`*^9, 
   3.856038723965354*^9},
 CellLabel->
  "Out[23]//TraditionalForm=",ExpressionUUID->"d819d18a-4924-48e2-b312-\
7b3095b86de8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2b", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"W", "->", " ", 
      RowBox[{"W", "[", 
       RowBox[{"\[Tau]", ",", "\[Theta]"}], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"A", "->", " ", 
      RowBox[{"A", "[", 
       RowBox[{"\[Tau]", ",", "\[Theta]"}], "]"}]}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\[CapitalPhi]", "->", " ", 
      RowBox[{"\[CapitalPhi]", "[", 
       RowBox[{"\[Tau]", ",", "\[Theta]"}], "]"}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2b", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8511137946612883`*^9, 3.851113807229697*^9}, 
   3.854984933438815*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"f2e8bbda-d00a-4a98-a696-aa084c7a3106"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"W", "[", 
        RowBox[{"\[Tau]", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"A", "\[Rule]", 
       RowBox[{"A", "[", 
        RowBox[{"\[Tau]", ",", "\[Theta]"}], "]"}]}]},
     {
      RowBox[{"\[CapitalPhi]", "\[Rule]", 
       RowBox[{"\[CapitalPhi]", "[", 
        RowBox[{"\[Tau]", ",", "\[Theta]"}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.85111380838533*^9, 3.85498430517353*^9, 
  3.854984933438971*^9, 3.8551397637388697`*^9, 3.856038723987817*^9},
 CellLabel->
  "Out[26]//TableForm=",ExpressionUUID->"b0ba9a52-f325-4f29-a3da-\
a77b8d85235f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"eq2", " ", "/.", " ", "tToTau"}], "  ", "/.", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"Dt", "[", " ", "tToTau", " ", "]"}], " ", "/.", " ", 
          "dtReplace"}], ")"}]}], " ", ")"}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"d\[Tau]", ",", "d\[Theta]", ",", "dx", ",", "dy"}], "}"}]}], 
     " ", "]"}], "  ", "/.", " ", "eq2b"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2b", "//", " ", "MatrixForm"}], " ", "//", " ", "pdConv", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8511138447647448`*^9, 3.851113872392317*^9}, {
   3.854984332845331*^9, 3.854984334242573*^9}, 3.854984933439168*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"f57c233c-c6f7-48b7-bc82-2f295d8bed14"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"A", "(", 
           RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"A", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]},
      {"0", "0", 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.851113847607039*^9, 3.8511138738252296`*^9}, 
   3.8549843051931553`*^9, 3.854984933439365*^9, 3.855139763775248*^9, 
   3.856038724049082*^9},
 CellLabel->
  "Out[29]//TraditionalForm=",ExpressionUUID->"3b7bcc0b-b992-42f4-abc2-\
0617c8d9fcdc"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Calculation of Tensors Associated With Metric 2 Transformed (These Take \
Forever  - Try Cacheing)\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8209375013653803`*^9, 3.820937526701229*^9}, 
   3.8211102293506603`*^9, {3.851003058502294*^9, 3.851003060414332*^9}, 
   3.851003159862068*^9, {3.851065676459127*^9, 3.851065676683072*^9}, {
   3.851068598768416*^9, 3.851068598880166*^9}, {3.8511130459454393`*^9, 
   3.85111304609762*^9}, {3.8549853549421577`*^9, 3.854985365366165*^9}, {
   3.857384265073824*^9, 
   3.857384271402463*^9}},ExpressionUUID->"fc1ea77a-09cb-41f0-8821-\
9ecd0a047b7c"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.819639535112979*^9, 3.819639560098693*^9}, 
   3.821109141509594*^9, 3.821109340369235*^9, 3.821110229350811*^9, {
   3.824511755669795*^9, 3.824511758917903*^9}, 3.8510031598623753`*^9, {
   3.854985332919261*^9, 3.8549853352944593`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"91a8685b-573d-47fc-a4f3-8621d6beede8"],

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[{
        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[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "  ", 
        RowBox[{"(*", " ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], 
        "  ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        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[{"tensorList", "[", 
         RowBox[{"[", "1", "]"}], "]"}], " ", 
        RowBox[{"(*", "   ", 
         RowBox[{",", " ", 
          RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "*)"}], " ",
         "]"}]}], " ", ";"}]}], "  ", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}], " ", "*)"}], " ", "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.8510030641136513`*^9, 
   3.851003070387978*^9}, 3.851003159862874*^9, {3.851069048448162*^9, 
   3.851069058895282*^9}, {3.8511131694051447`*^9, 3.851113200084633*^9}, {
   3.856038688400529*^9, 3.856038702461491*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"7d0ed83b-847e-444b-aa27-f6562993457d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "8.18", " ", "for", " ", "the", 
    " ", "tensors", " ", "Christoffel", " ", "Ricci", " ", "and", " ", 
    "Einstein"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2b\>\"", ",", " ", "metric2b", ",", " ", "\"\<Gowdy\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(t3\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]", ",", "\[Theta]", ",", "x", ",", "y"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003072983221*^9, 3.851003121447177*^9}, 
   3.8510031598631144`*^9, {3.85106568347598*^9, 3.851065732043768*^9}, {
   3.8510659899781*^9, 3.851065993418146*^9}, {3.851066164068078*^9, 
   3.851066167499426*^9}, {3.8510671201575937`*^9, 3.8510671216931267`*^9}, {
   3.8510686060408163`*^9, 3.8510686137314262`*^9}, {3.851098017280491*^9, 
   3.851098020047646*^9}, {3.851113050266732*^9, 3.851113067754054*^9}, {
   3.8511134947427683`*^9, 3.851113496336885*^9}, {3.851113880485455*^9, 
   3.8511138859415817`*^9}, {3.855141072237898*^9, 3.8551410871642714`*^9}, {
   3.8560387366379347`*^9, 
   3.856038738833344*^9}},ExpressionUUID->"492cc7fc-4ee9-435b-89e1-\
7cd2b67e0ba0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8.181414`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8511145974219713`*^9, 3.854985317823077*^9, 
  3.855139855717846*^9, 3.8560387322992077`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"86ade9a9-9515-4830-999f-2f565774db11"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820937492203697*^9, 3.8211102293511972`*^9, 
  3.851003159863476*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"b2117611-b431-4c6f-80f1-adee941794fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "t3"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", "\<\"riemannmetric2b\"\>", ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", "\<\"ricciscalarmetric2b\"\>", 
   ",", "\<\"kretschmannscalarmetric2b\"\>", ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", "\<\"weylmetric2b\"\>", 
   ",", "\<\"cottonmetric2b\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003109637364*^9, 3.851003123174449*^9}, 
   3.8510031598636513`*^9, 3.851006013771142*^9, 3.8510089601711807`*^9, 
   3.851065724548003*^9, 3.851065983701439*^9, 3.8510661564347973`*^9, 
   3.8510671113119593`*^9, 3.851069067655814*^9, 3.851097986897663*^9, 
   3.8510980302772827`*^9, 3.851100949270136*^9, 3.851111711253417*^9, 
   3.85111349887046*^9, 3.854985321575205*^9, 3.856038732362582*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"8e679410-8035-4233-b59f-84ea294e664a"],

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", 10000.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.851003159863832*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"1efab8de-d603-4ab2-bc02-e91f696a764c"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "t3"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.85100314855872*^9, 
   3.851003159864003*^9}, 3.85100601378345*^9, 3.851008960184209*^9, 
   3.851065724561039*^9, 3.8510659837139063`*^9, 3.85106615646983*^9, 
   3.851067111324718*^9, 3.8510690676677856`*^9, 3.851097986914257*^9, 
   3.851098030308264*^9, 3.851100949285326*^9, 3.851111711266354*^9, 
   3.851113502122398*^9, 3.856038732377668*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"6cca1e34-9a1a-4f67-b401-b359491a8943"],

Cell[BoxData["\<\"Gowdy\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.85100314855872*^9, 
   3.851003159864003*^9}, 3.85100601378345*^9, 3.851008960184209*^9, 
   3.851065724561039*^9, 3.8510659837139063`*^9, 3.85106615646983*^9, 
   3.851067111324718*^9, 3.8510690676677856`*^9, 3.851097986914257*^9, 
   3.851098030308264*^9, 3.851100949285326*^9, 3.851111711266354*^9, 
   3.851113502122398*^9, 3.856038732383505*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"cc8d7663-73ab-4716-88dc-101c103e538a"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"A", "(", 
           RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]]}], "0", "0", "0"},
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"A", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], "0", "0"},
      {"0", "0", 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}], 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]},
      {"0", "0", 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"sin", "(", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"W", "(", 
          RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
       RowBox[{"\[Tau]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"cosh", "(", 
           RowBox[{"W", "(", 
            RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
          RowBox[{
           RowBox[{"cosh", "(", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"W", "(", 
             RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.85100314855872*^9, 
   3.851003159864003*^9}, 3.85100601378345*^9, 3.851008960184209*^9, 
   3.851065724561039*^9, 3.8510659837139063`*^9, 3.85106615646983*^9, 
   3.851067111324718*^9, 3.8510690676677856`*^9, 3.851097986914257*^9, 
   3.851098030308264*^9, 3.851100949285326*^9, 3.851111711266354*^9, 
   3.851113502122398*^9, 3.856038732414195*^9},
 CellLabel->
  "Out[37]//TraditionalForm=",ExpressionUUID->"66864867-3d5d-407e-9bdc-\
e198ad216306"],

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", 10000.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.851003159864727*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"6c90655d-e0f7-4adb-b98b-5d3817d44d1e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003148623219*^9, 
   3.851003159865024*^9}, 3.851006013826847*^9, 3.851008960231669*^9, 
   3.851065724607472*^9, 3.851065983757869*^9, 3.851066156491989*^9, 
   3.8510671113619556`*^9, 3.8510690677160187`*^9, 3.851097986968945*^9, 
   3.851098030328088*^9, 3.8511009493331547`*^9, 3.851111711315918*^9, 
   3.8511135061126013`*^9, 3.856038732429934*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"50148be7-e0af-4cba-98a4-db1b495f07fb"],

Cell[BoxData["\<\"ChristoffelSymbolGowdy\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003148623219*^9, 
   3.851003159865024*^9}, 3.851006013826847*^9, 3.851008960231669*^9, 
   3.851065724607472*^9, 3.851065983757869*^9, 3.851066156491989*^9, 
   3.8510671113619556`*^9, 3.8510690677160187`*^9, 3.851097986968945*^9, 
   3.851098030328088*^9, 3.8511009493331547`*^9, 3.851111711315918*^9, 
   3.8511135061126013`*^9, 3.856038732437723*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"42cc33ec-03dd-410e-9a25-7d42280f514d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"cosh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{"\[Tau]", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{"\[Tau]", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                  
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                 ")"}]}], "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Tau]", " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"sin", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                  RowBox[{"\[Tau]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[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"},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Tau]", " ", 
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"sin", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                  RowBox[{"\[Tau]", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "\[Tau]"}],
                    MultilineFunction->None], " ", 
                   RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"cosh", "(", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"sinh", "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], "-", 
               RowBox[{"\[Tau]", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{"\[Tau]", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Tau]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 ")"}]}], "+", 
               RowBox[{"cosh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[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[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Tau]"}],
             MultilineFunction->None]},
           {
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"A", "(", 
               RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
             RowBox[{"\[PartialD]", "\[Theta]"}],
             MultilineFunction->None]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", "\[Tau]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                  
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                 ")"}]}]}], ")"}]}]},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", "\[Tau]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[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"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", "\[Tau]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cos", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"sin", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"cosh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
              ")"}]}]},
           {
            RowBox[{
             FractionBox["1", "2"], " ", "\[Tau]", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"A", "(", 
                RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[CapitalPhi]", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                RowBox[{"sinh", "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "\[Theta]"}],
                 MultilineFunction->None], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                  
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", "\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], 
                ")"}]}], "+", 
              RowBox[{"\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"8", " ", "\[Tau]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], 
                ")"}]}]}], 
             RowBox[{"8", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", "\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], 
                ")"}]}], "+", 
              RowBox[{"\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"8", " ", "\[Tau]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["cosh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}]}], 
                ")"}]}]}], 
             RowBox[{"8", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", "\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                 "+", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "+", 
              RowBox[{"\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"8", " ", "\[Tau]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[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"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                 "+", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"8", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"sin", "(", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"sinh", "(", 
                RowBox[{"W", "(", 
                 RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"cos", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "-", 
                    
                    RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                    RowBox[{"sinh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["cosh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                    RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", "\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                 "+", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "+", 
              RowBox[{"\[Tau]", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Tau]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"8", " ", "\[Tau]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"4", " ", 
                   RowBox[{"cosh", "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}]}], 
                 "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"cosh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], " ", 
                  
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"cos", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "-", 
                    
                    RowBox[{"cosh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], 
                RowBox[{"\[PartialD]", "\[Theta]"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"sinh", "(", 
                   RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"sinh", "(", 
                   RowBox[{"2", " ", 
                    RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                 "+", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["sinh", "2"], "(", 
                   RowBox[{"W", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"sin", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}], "+", 
                    
                    RowBox[{"sinh", "(", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}]}], ")"}]}], 
                   ")"}]}]}], ")"}]}]}], 
             RowBox[{"8", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["cosh", "2"], "(", 
                 RowBox[{"W", "(", 
                  RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "-", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["sinh", "2"], "(", 
                  RowBox[{"W", "(", 
                   RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["sin", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}], "+", 
                   RowBox[{
                    SuperscriptBox["cosh", "2"], "(", 
                    RowBox[{"\[CapitalPhi]", "(", 
                    RowBox[{"\[Tau]", ",", "\[Theta]"}], ")"}], ")"}]}], 
                  ")"}]}]}], ")"}]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003148623219*^9, 
   3.851003159865024*^9}, 3.851006013826847*^9, 3.851008960231669*^9, 
   3.851065724607472*^9, 3.851065983757869*^9, 3.851066156491989*^9, 
   3.8510671113619556`*^9, 3.8510690677160187`*^9, 3.851097986968945*^9, 
   3.851098030328088*^9, 3.8511009493331547`*^9, 3.851111711315918*^9, 
   3.8511135061126013`*^9, 3.856038733197938*^9},
 CellLabel->
  "Out[40]//TraditionalForm=",ExpressionUUID->"9271b411-3580-4745-aa7e-\
6933fdabdc56"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "3", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.851003159865633*^9, {
   3.8560387474142838`*^9, 3.856038752134061*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"867ccf6c-e402-436a-8917-3f940257b2f8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
    " ", "//", " ", "pdConv"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.851003159866358*^9, {
   3.857383874058906*^9, 
   3.857383876890524*^9}},ExpressionUUID->"7cae0a8a-b70d-4d29-8ccd-\
8fd4ae5ba151"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003149337882*^9, 
   3.851003159866536*^9}, 3.851006014543625*^9, 3.851008960948481*^9, 
   3.851065725071733*^9, 3.851065984662237*^9, 3.851066156998535*^9, 
   3.8510671121605873`*^9, 3.851069069494113*^9, 3.851097987249309*^9, 
   3.8510980343497953`*^9, 3.8511009532340384`*^9, 3.8511117153330383`*^9, 
   3.8560387335296907`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"56d0f36c-0892-4cd7-aaf4-c661bcbfca06"],

Cell[BoxData["\<\"RicciTensorGowdy\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003149337882*^9, 
   3.851003159866536*^9}, 3.851006014543625*^9, 3.851008960948481*^9, 
   3.851065725071733*^9, 3.851065984662237*^9, 3.851066156998535*^9, 
   3.8510671121605873`*^9, 3.851069069494113*^9, 3.851097987249309*^9, 
   3.8510980343497953`*^9, 3.8511009532340384`*^9, 3.8511117153330383`*^9, 
   3.856038733536655*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"d04dc5f4-2c97-42c2-9836-f1f96a2b0555"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "5", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.851003159867093*^9, {
   3.856038756942268*^9, 3.856038760997942*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"ce916981-9859-4daa-902f-80555372a86e"],

Cell[BoxData[
 RowBox[{
  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", 10000.},
 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.851003139471011*^9, 3.851003159867777*^9}, {3.851069093469892*^9, 
   3.8510690978288937`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"d0904c9c-91c4-4f41-8caa-183eb6b115da"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
    " ", "//", " ", "pdConv"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.851003159868424*^9, {3.8573838804587584`*^9, 
   3.8573838832345343`*^9}},ExpressionUUID->"0dda5133-d804-473b-8358-\
ff2aab63d79d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003149518718*^9, 
   3.851003159868576*^9}, 3.851006014803006*^9, 3.8510089612883472`*^9, 
   3.85106572529361*^9, 3.8510659850556707`*^9, 3.8510661571445513`*^9, 
   3.8510671124424543`*^9, 3.851069069673196*^9, 3.8510979873636837`*^9, 
   3.85109803459785*^9, 3.8511009534960413`*^9, 3.851111715633041*^9, 
   3.8560387346935587`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"0e37251a-72ac-43dc-97e2-4401d62af836"],

Cell[BoxData["\<\"EinsteinTensorGowdy\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003149518718*^9, 
   3.851003159868576*^9}, 3.851006014803006*^9, 3.8510089612883472`*^9, 
   3.85106572529361*^9, 3.8510659850556707`*^9, 3.8510661571445513`*^9, 
   3.8510671124424543`*^9, 3.851069069673196*^9, 3.8510979873636837`*^9, 
   3.85109803459785*^9, 3.8511009534960413`*^9, 3.851111715633041*^9, 
   3.856038734701264*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"e8a64efc-559a-4ea0-97be-873cfdf6da1f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "8", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 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.851003159869054*^9, {3.851069076853544*^9, 
   3.851069081404735*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"847434eb-d911-4999-9416-7fcdcfd84e00"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "9", "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorName", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "\[IndentingNewLine]", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], "]"}]}], " ", "//", " ", 
     "MatrixForm"}], " ", "//", " ", "pdConv"}], "\[IndentingNewLine]", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, {
   3.851003132758833*^9, 3.851003159869691*^9}, {3.8510690844612217`*^9, 
   3.8510690893807487`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"bad1e679-9e1d-4884-87a9-755ec269dabc"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Vacuum Field Equations For Metric 2 Transformed (Not Done Yet)\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8511142104471207`*^9, 3.85111422953738*^9}, {
  3.856038979486792*^9, 3.8560389824531193`*^9}, {3.8573842735462523`*^9, 
  3.8573842780181017`*^9}},ExpressionUUID->"c1dec93a-b562-4b82-ad08-\
ca06a74273c4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Cases", "[", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", " ", 
           RowBox[{
            RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
            RowBox[{
             RowBox[{"TensorValues", "[", 
              RowBox[{"tensorList", "[", 
               RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
          " ", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",",
        " ", 
       RowBox[{"Except", "[", "0", "]"}]}], "]"}], " ", "//", " ", "Expand"}],
     "  ", "//", " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.85111421864439*^9, {3.8560387689267187`*^9, 3.856038770558676*^9}, {
   3.856038831489163*^9, 3.8560388338551683`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"efc50d8c-5bdb-40a8-9792-8d8d48e01e17"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Cases", "[", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", " ", 
           RowBox[{
            RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
            RowBox[{
             RowBox[{"TensorValues", "[", 
              RowBox[{"tensorList", "[", 
               RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
          " ", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",",
        " ", 
       RowBox[{"Except", "[", "0", "]"}]}], "]"}], " ", "//", " ", "Expand"}],
     "   ", "//", " ", "Simplify"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.851114218644526*^9, {3.8560387876867027`*^9, 3.85603879021236*^9}, {
   3.856038836997699*^9, 
   3.856038839023526*^9}},ExpressionUUID->"a24b4d3a-aa58-47e4-9121-\
f4bb460b48a0"]
}, Closed]]
},
CellGrouping->Manual,
WindowSize->{1279, 675},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (February 4, 2022)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"4044c79d-1cc5-4582-bccd-2ee8319d9ac6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1297, 20, 221, "Title",ExpressionUUID->"1656beb1-b01b-4a28-87da-c6a545b9c450",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[1880, 44, 942, 17, 94, "Author",ExpressionUUID->"4cc22038-cd44-420e-8fb2-e8f6757a88c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[2837, 64, 598, 10, 84, "Input",ExpressionUUID->"44f9338b-c602-4226-b04a-4bf63003a0fd"],
Cell[CellGroupData[{
Cell[3460, 78, 228, 4, 69, "Section",ExpressionUUID->"0dca9ed1-0a57-44ae-bf6f-aa9403517d10",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[3713, 86, 433, 9, 63, "Input",ExpressionUUID->"9b441f83-4191-404c-9a81-a800eb87a1ef",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4149, 97, 1236, 19, 70, "Output",ExpressionUUID->"7c012ba2-faaf-422b-9062-2a2005167c34",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[5434, 122, 567, 9, 55, "Section",ExpressionUUID->"f9fae8ee-2b5a-4ae1-a053-dda8babe6f8f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[CellGroupData[{
Cell[6026, 135, 503, 9, 63, "Input",ExpressionUUID->"add6bbf2-e26e-4d05-8a7c-279e248b947e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6532, 146, 496, 9, 70, "Output",ExpressionUUID->"3efb52a1-f2ca-4c11-87a2-f84d48a54f7b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[7065, 160, 408, 8, 63, "Input",ExpressionUUID->"b7af2c68-89b6-4315-ac7b-ef8d22ebfbab",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7476, 170, 419, 8, 70, "Output",ExpressionUUID->"b7dc6059-22ac-4bd1-a4fd-2325babdadf2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[7932, 183, 420, 8, 63, "Input",ExpressionUUID->"987cdbb7-5cfe-4411-914b-49ff8e105661",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8355, 193, 487, 9, 70, "Output",ExpressionUUID->"ef30891f-99eb-4aeb-ba70-553581da5c02",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[8879, 207, 738, 15, 84, "Input",ExpressionUUID->"5baee944-03fd-485a-8973-fa952cc5dba5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9620, 224, 516, 9, 70, "Output",ExpressionUUID->"d5a0f383-1036-4a65-ada0-5ba6727e61e5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[10173, 238, 438, 8, 41, "Input",ExpressionUUID->"1d077f26-b917-4520-a8f5-cfe2a99a057d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[10614, 248, 551, 11, 70, "Output",ExpressionUUID->"2a7b537b-0dc3-4441-9e96-6c7d8c0e6142",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[11202, 264, 438, 9, 63, "Input",ExpressionUUID->"0f4797f0-5a90-44b0-9dd6-0ba3fb88724d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[11643, 275, 613, 11, 70, "Output",ExpressionUUID->"7c6705e5-9c8d-4c3f-952f-8c8ddd5b8cd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[12293, 291, 705, 15, 84, "Input",ExpressionUUID->"359c108c-de05-4460-adf1-a8fabc1080e4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[13001, 308, 619, 12, 70, "Output",ExpressionUUID->"eaca0e87-c324-440d-8d6e-3a9758c8070b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[13657, 325, 584, 10, 84, "Input",ExpressionUUID->"ffe6ff9c-c225-4da5-b110-57c02512ea1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14244, 337, 1271, 21, 70, "Output",ExpressionUUID->"acd5ec2f-1ebd-43c1-9820-8bfeff2ffb04",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[15564, 364, 228, 4, 55, "Section",ExpressionUUID->"8f67c955-791e-48b4-ae4d-a4801b469729",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[15817, 372, 1641, 44, 189, "Input",ExpressionUUID->"3547d059-08a9-4b7b-9672-8cbb84d3375a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[17461, 418, 1546, 26, 70, "Print",ExpressionUUID->"6159ab82-e41e-490a-b557-daf287c9afcf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[19010, 446, 1565, 27, 70, "Print",ExpressionUUID->"3edfdb1c-250e-4481-9280-6de74302dd08",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[20578, 475, 1555, 24, 70, "Output",ExpressionUUID->"61604219-c91a-4e5f-8279-3496bdb7c01a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[22148, 502, 246, 4, 41, "Input",ExpressionUUID->"dd372b0d-881b-4c13-85a5-e94b569bc6ef",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[22431, 511, 240, 4, 55, "Section",ExpressionUUID->"82a0453a-662e-45e3-bbe7-85c46500107c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[CellGroupData[{
Cell[22696, 519, 1226, 28, 231, "Input",ExpressionUUID->"06bf62f8-0c02-427f-ab39-08d1a0ab65a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23925, 549, 1762, 45, 70, "Output",ExpressionUUID->"35d1bd02-cb51-4c86-84b8-efc7e115b4a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25736, 600, 362, 6, 55, "Section",ExpressionUUID->"6822e052-3eb1-4ab4-9321-20d9ef610f40",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26101, 608, 1659, 41, 126, "Input",ExpressionUUID->"199d544b-94d3-487a-a3f8-28c066d9b22b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[27763, 651, 1055, 26, 84, "Input",ExpressionUUID->"edb33406-b44e-43db-ac15-2ad27e2f59f9",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28855, 682, 225, 4, 55, "Section",ExpressionUUID->"4ea059d4-946d-4cfd-9db8-681b49e4a93b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29083, 688, 407, 8, 34, "Text",ExpressionUUID->"3e46e3ab-de97-43ce-833c-7ed62dcd2810",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[CellGroupData[{
Cell[29515, 700, 2349, 64, 107, "Input",ExpressionUUID->"18a9a10e-a3b0-44b5-b811-4725900b69d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31867, 766, 1525, 42, 44, "Output",ExpressionUUID->"8dc8257d-ecbc-460f-b4b4-36cc5b3882e5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[33429, 813, 710, 15, 41, "Input",ExpressionUUID->"a4410a36-0bd5-400b-b1b3-20cdc526eff4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34142, 830, 2198, 60, 108, "Output",ExpressionUUID->"d8a24e3a-3bbe-4bf9-bcbd-0f7297077033",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[36377, 895, 956, 22, 168, "Input",ExpressionUUID->"88edfad4-6003-4454-b087-1029d1327bab",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37336, 919, 1105, 33, 87, "Output",ExpressionUUID->"3ed56291-8681-447d-9c1c-339918348686",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[38478, 957, 923, 20, 105, "Input",ExpressionUUID->"e514b5e3-d578-4ea4-ab1e-700983ef902f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39404, 979, 3112, 84, 108, "Output",ExpressionUUID->"2de09efb-029a-473b-bd87-7ca8f8db7f7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42565, 1069, 604, 9, 55, "Section",ExpressionUUID->"6632b80d-1929-4f08-96d3-bbb952202a99",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[43172, 1080, 536, 11, 41, "Input",ExpressionUUID->"4d818c2e-eabd-4487-bb8d-6c4cb41ada2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[43711, 1093, 6362, 145, 714, "Input",ExpressionUUID->"cd9bde90-54e5-4d96-b8ad-0acd7e2e0404",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[50098, 1242, 1628, 29, 65, "Input",ExpressionUUID->"30623d70-38c3-4d18-8f6b-1bbb992aad28",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[51729, 1273, 598, 10, 41, "Output",ExpressionUUID->"cfcaa38e-cd03-4b06-a753-d22e9bd687f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[52364, 1288, 335, 5, 41, "Input",ExpressionUUID->"333e8b0a-f942-4ab9-8ceb-beb9f97f5ff6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[52702, 1295, 1535, 33, 45, "Output",ExpressionUUID->"5bc73ce5-3b84-497b-a78c-96a009959855",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[54274, 1333, 915, 20, 84, "Input",ExpressionUUID->"4b4bfc74-7900-44ce-a98d-bc14fbe4b8bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[55192, 1355, 999, 17, 45, "Output",ExpressionUUID->"93a4ac77-afc4-402d-9a87-0cdc73d8aa53",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[56194, 1374, 917, 13, 41, "Output",ExpressionUUID->"014364f8-eaff-49b9-8615-6134c76cdec6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57114, 1389, 3656, 92, 108, "Output",ExpressionUUID->"b6906202-0854-49d4-9b71-fc58793b55b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[60807, 1486, 916, 20, 84, "Input",ExpressionUUID->"5c597059-f50c-4d08-9e71-755ab028616c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[61726, 1508, 1114, 19, 45, "Output",ExpressionUUID->"cb1f6e06-f26f-4537-9815-77436ab952f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[62843, 1529, 1015, 14, 41, "Output",ExpressionUUID->"4197b07e-4eb5-478a-852e-0d5f59368f89",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[63861, 1545, 146350, 3324, 464, "Output",ExpressionUUID->"cd5a0f25-6228-4edf-a519-e77f5249636f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[210226, 4872, 1047, 21, 126, "Input",ExpressionUUID->"6d6fa3eb-423b-44f8-bce0-ae12d4b535ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[211298, 4897, 1024, 22, 84, "Input",ExpressionUUID->"c657754c-820e-427a-8ac0-91052fe6d154",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[212325, 4921, 976, 16, 45, "Output",ExpressionUUID->"4f2b826a-6c42-41f0-bf10-3dfdd32d944b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[213304, 4939, 935, 13, 41, "Output",ExpressionUUID->"93d045e0-5844-482e-91e6-182f1d99619f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[214276, 4957, 1025, 22, 84, "Input",ExpressionUUID->"d258e31c-5be7-4193-b701-2b55eb88d5b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[215304, 4981, 932, 15, 41, "Output",ExpressionUUID->"5a0669ef-e2b3-47ea-bd36-49f645bda860",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[216239, 4998, 928, 13, 41, "Output",ExpressionUUID->"e611be08-4739-4157-8c51-3cc9c72a516b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[217182, 5014, 1164, 23, 126, "Input",ExpressionUUID->"e9444194-d997-4c40-949a-2cdb977f6c1a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[218371, 5041, 1006, 22, 84, "Input",ExpressionUUID->"c11645a5-b48c-4941-a000-6ce2297528cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[219380, 5065, 873, 15, 45, "Output",ExpressionUUID->"9b3b0bb3-bb86-4e96-8280-26b1a40909dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[220256, 5082, 837, 12, 41, "Output",ExpressionUUID->"62ed0830-db3e-4e19-8e6e-68e41b5930da",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[221108, 5097, 1126, 23, 126, "Input",ExpressionUUID->"8e4c5a14-414f-46f8-ba47-3b35091358b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[222237, 5122, 1066, 22, 126, "Input",ExpressionUUID->"ebe41265-40e3-466d-9106-a9fa4cd4e27f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[223340, 5149, 308, 5, 55, "Section",ExpressionUUID->"a48fc8ab-d9e0-4147-a7b9-66b463d4f268",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[CellGroupData[{
Cell[223673, 5158, 1614, 39, 126, "Input",ExpressionUUID->"cac91f18-f911-41bd-8d67-868809a3ecaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[225290, 5199, 266143, 6301, 334, "Output",ExpressionUUID->"56ab76d4-c1e4-488a-9b7d-f1a770b78678",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[491448, 11503, 1623, 39, 126, "Input",ExpressionUUID->"ca512221-6e7d-4853-837d-169aed5a4af3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[493108, 11547, 229, 4, 55, "Section",ExpressionUUID->"bda70d90-3bf7-4e49-9042-4b87faeade7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[493340, 11553, 479, 9, 84, "Input",ExpressionUUID->"9fb73ec1-a8ad-413a-acd6-72d9b9d2b6d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[493822, 11564, 378, 7, 41, "Output",ExpressionUUID->"a012be66-9083-48de-a869-7b1a060e7696",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[494203, 11573, 341, 7, 41, "Input",ExpressionUUID->"5e495490-0a67-456b-89f1-212d5231e427",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[494547, 11582, 404, 8, 58, "Output",ExpressionUUID->"5e793c32-be5f-4908-a599-119f201202be",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[494954, 11592, 500, 10, 41, "Input",ExpressionUUID->"8dba188e-93e9-4e2c-805a-4cad48b52c8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[495457, 11604, 1225, 32, 44, "Output",ExpressionUUID->"590d8db2-9516-4299-8462-b0a9fb6b3617",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[496685, 11638, 820, 19, 41, "Input",ExpressionUUID->"0d549e2a-187c-4f54-9f76-87d2aa2bf134",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[497508, 11659, 1859, 50, 106, "Output",ExpressionUUID->"d819d18a-4924-48e2-b312-7b3095b86de8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[499370, 11711, 973, 22, 168, "Input",ExpressionUUID->"f2e8bbda-d00a-4a98-a696-aa084c7a3106",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[500346, 11735, 1095, 32, 87, "Output",ExpressionUUID->"b0ba9a52-f325-4f29-a3da-a77b8d85235f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[501444, 11769, 1060, 24, 105, "Input",ExpressionUUID->"f57c233c-c6f7-48b7-bc82-2f295d8bed14",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[502507, 11795, 2826, 74, 106, "Output",ExpressionUUID->"3b7bcc0b-b992-42f4-abc2-0617c8d9fcdc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[505370, 11874, 654, 12, 55, "Section",ExpressionUUID->"fc1ea77a-09cb-41f0-8821-9ecd0a047b7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[506027, 11888, 507, 9, 41, "Input",ExpressionUUID->"91a8685b-573d-47fc-a4f3-8621d6beede8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[506537, 11899, 6269, 143, 714, "Input",ExpressionUUID->"7d0ed83b-847e-444b-aa27-f6562993457d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[512809, 12044, 1636, 30, 65, "Input",ExpressionUUID->"492cc7fc-4ee9-435b-89e1-7cd2b67e0ba0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[514448, 12076, 333, 6, 41, "Output",ExpressionUUID->"86ade9a9-9515-4830-999f-2f565774db11",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[514784, 12084, 261, 4, 41, "Input",ExpressionUUID->"b2117611-b431-4c6f-80f1-adee941794fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[515048, 12090, 1545, 32, 45, "Output",ExpressionUUID->"8e679410-8035-4233-b59f-84ea294e664a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[516596, 12124, 810, 18, 84, "Input",ExpressionUUID->"1efab8de-d603-4ab2-bc02-e91f696a764c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[517409, 12144, 962, 17, 45, "Output",ExpressionUUID->"6cca1e34-9a1a-4f67-b401-b359491a8943",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[518374, 12163, 878, 13, 41, "Output",ExpressionUUID->"cc8d7663-73ab-4716-88dc-101c103e538a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[519255, 12178, 3364, 82, 106, "Output",ExpressionUUID->"66864867-3d5d-407e-9bdc-e198ad216306",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[522622, 12262, 813, 18, 84, "Input",ExpressionUUID->"6c90655d-e0f7-4adb-b98b-5d3817d44d1e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[523438, 12282, 1086, 19, 45, "Output",ExpressionUUID->"50148be7-e0af-4cba-98a4-db1b495f07fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[524527, 12303, 981, 14, 41, "Output",ExpressionUUID->"42cc33ec-03dd-410e-9a25-7d42280f514d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[525511, 12319, 96027, 2258, 448, "Output",ExpressionUUID->"9271b411-3580-4745-aa7e-6933fdabdc56",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[621541, 14579, 985, 21, 126, "Input",ExpressionUUID->"867ccf6c-e402-436a-8917-3f940257b2f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[622529, 14602, 904, 22, 84, "Input",ExpressionUUID->"7cae0a8a-b70d-4d29-8ccd-8fd4ae5ba151",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[623436, 14626, 929, 16, 45, "Output",ExpressionUUID->"56d0f36c-0892-4cd7-aaf4-c661bcbfca06",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[624368, 14644, 880, 13, 41, "Output",ExpressionUUID->"d04dc5f4-2c97-42c2-9836-f1f96a2b0555",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[625251, 14659, 983, 21, 126, "Input",ExpressionUUID->"ce916981-9859-4daa-902f-80555372a86e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[626237, 14682, 1037, 22, 126, "Input",ExpressionUUID->"d0904c9c-91c4-4f41-8caa-183eb6b115da",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[627277, 14706, 888, 21, 84, "Input",ExpressionUUID->"0dda5133-d804-473b-8358-ff2aab63d79d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[628168, 14729, 860, 15, 45, "Output",ExpressionUUID->"0e37251a-72ac-43dc-97e2-4401d62af836",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[629031, 14746, 814, 12, 41, "Output",ExpressionUUID->"e8a64efc-559a-4ea0-97be-873cfdf6da1f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[629848, 14760, 1025, 22, 126, "Input",ExpressionUUID->"847434eb-d911-4999-9416-7fcdcfd84e00",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[630876, 14784, 963, 21, 126, "Input",ExpressionUUID->"bad1e679-9e1d-4884-87a9-755ec269dabc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[631876, 14810, 372, 7, 55, "Section",ExpressionUUID->"c1dec93a-b562-4b82-ad08-ca06a74273c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[632251, 14819, 1479, 36, 105, "Input",ExpressionUUID->"efc50d8c-5bdb-40a8-9792-8d8d48e01e17",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[633733, 14857, 1471, 38, 105, "Input",ExpressionUUID->"a24b4d3a-aa58-47e4-9121-f4bb460b48a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]]
}
]
*)