Black Hole Formation from the Collision of Plane-Fronted Gravitational Waves by Pretorius & East.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    254514,       6481]
NotebookOptionsPosition[    232458,       6155]
NotebookOutlinePosition[    232924,       6172]
CellTagsIndexPosition[    232881,       6169]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Black Hole Formation from the Collision of Plane-Fronted Gravitational Waves \
by Pretorius & East\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.824031452536063*^9, 3.8240314588397417`*^9}, {
   3.824644814468794*^9, 3.824644828468484*^9}, {3.8246473552414417`*^9, 
   3.824647380416992*^9}, {3.824807830274989*^9, 3.8248078370509233`*^9}, {
   3.824809728275221*^9, 3.824809737846239*^9}, {3.824815731524988*^9, 
   3.824815734660836*^9}, {3.824817422603738*^9, 3.8248174265468884`*^9}, {
   3.8248986644139853`*^9, 3.8248986736859922`*^9}, {3.825052344343701*^9, 
   3.82505235232714*^9}, {3.8250678941265173`*^9, 3.825067908268942*^9}, {
   3.825152584327278*^9, 3.82515260540641*^9}, {3.825154967831114*^9, 
   3.825154974846527*^9}, {3.825158655931861*^9, 3.8251586930797863`*^9}, {
   3.8251619515013742`*^9, 3.8251619611453533`*^9}, {3.8554889661391077`*^9, 
   3.8554889832459517`*^9}},
 TextAlignment->Center,ExpressionUUID->"bdf449b0-9dbb-4928-b20a-941bfb3e8938"],

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
March 19, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9, {3.855407872416093*^9, 3.855407879483934*^9}, {
   3.855481937058525*^9, 3.855481946768751*^9}, {3.855488219419341*^9, 
   3.855488219973155*^9}, {3.855488978258628*^9, 3.8554889832460737`*^9}},
 TextAlignment->Center,ExpressionUUID->"1c2d23d9-7692-441e-b990-8000473b9d67"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"078e858b-046c-4d11-bfb4-\
b083bc136fd2"],

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[261]:=",ExpressionUUID->"78752f09-d63c-4d40-897c-1c987cc27a9a"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9, 
   3.824644896879627*^9, 3.824646374047151*^9, 3.824647481799861*^9, 
   3.824807973110347*^9, 3.8248083404553423`*^9, 3.824809928548235*^9, 
   3.824815880975711*^9, 3.8248987407523518`*^9, 3.824898787030614*^9, 
   3.824913940914403*^9, 3.825052526449236*^9, 3.825055455240489*^9, 
   3.825068129652319*^9, 3.8250790171480827`*^9, 3.825152713509676*^9, 
   3.8251558531713552`*^9, 3.825158931515485*^9, 3.825162044456019*^9},
 CellLabel->
  "Out[261]=",ExpressionUUID->"0df1e522-f0ee-40c5-8d91-412039ab2bc6"]
}, 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.825079241367675*^9},ExpressionUUID->"a675980e-a33c-4b5b-91ae-\
9edf7ce2ab03"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Black Hole Formation from the Collision of Plane-Fronted Gravitational \
Waves by Pretorius & East\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/1807.11562\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8218867746254797`*^9, 3.821886810805148*^9}, 
   3.823176507207197*^9, {3.823472730005904*^9, 3.823472744739744*^9}, {
   3.823597507106205*^9, 3.823597507709626*^9}, {3.824746929340742*^9, 
   3.824746942987844*^9}, {3.825079224217881*^9, 3.8250792368318253`*^9}, {
   3.8262110090543203`*^9, 3.826211022340335*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"91075871-811a-402e-a74e-fbc745a9fa92"],

Cell[BoxData[
 TemplateBox[{
  "\"Black Hole Formation from the Collision of Plane-Fronted Gravitational \
Waves by Pretorius & East\"", "https://arxiv.org/abs/1807.11562"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.821886813557355*^9, 3.8231765072073307`*^9, 3.823359428608782*^9, 
   3.8233607804338617`*^9, 3.823360880363216*^9, 3.823361224626254*^9, 
   3.823362098931829*^9, 3.823364030688095*^9, 3.823472745219315*^9, {
   3.8235975109202147`*^9, 3.823597528650549*^9}, 3.823618495400096*^9, 
   3.823683413880138*^9, 3.823683841884781*^9, 3.823684775280538*^9, 
   3.823688794413259*^9, 3.8236907771492443`*^9, 3.823704572455369*^9, 
   3.8239670361077127`*^9, 3.8239675178933*^9, 3.823970038708452*^9, 
   3.824025682120349*^9, 3.824032150367559*^9, 3.824644896997878*^9, 
   3.824646374084072*^9, 3.8246474819632263`*^9, 3.824746944846303*^9, 
   3.82480797326235*^9, 3.8248083404940023`*^9, 3.8248099285816174`*^9, 
   3.824815881165262*^9, 3.824898740796493*^9, 3.824898787076374*^9, 
   3.824913941016416*^9, 3.825052526492076*^9, 3.8250554552535954`*^9, 
   3.825068129696887*^9, 3.825079017287032*^9, 3.825079238377727*^9, 
   3.825152713564397*^9, 3.825155853293531*^9, 3.8251589315625067`*^9, 
   3.8251620444993668`*^9, 3.826211025109913*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"d760842b-be1e-47f1-8fa2-eeaa869149a0"],

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[263]:=",ExpressionUUID->"c0fb78a7-b5ec-4d0d-8dfd-56b62a25fb36"],

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.823597528661324*^9, 3.823618495426402*^9, 
   3.8236834139074087`*^9, 3.82368384189923*^9, 3.8236847753002243`*^9, 
   3.823688794441139*^9, 3.823690777159783*^9, 3.823704572476899*^9, 
   3.8239670361242037`*^9, 3.82396751791289*^9, 3.823970038722382*^9, 
   3.8240256821512117`*^9, 3.824032150379888*^9, 3.824644897011421*^9, 
   3.824646374096487*^9, 3.824647481983837*^9, 3.824807973283132*^9, 
   3.824808340506288*^9, 3.824809928592203*^9, 3.824815881176374*^9, 
   3.824898740809154*^9, 3.8248987870906687`*^9, 3.824913941033628*^9, 
   3.8250525265033283`*^9, 3.825055455272273*^9, 3.825068129707691*^9, 
   3.82507901731166*^9, 3.8251527135745277`*^9, 3.825155853311619*^9, 
   3.825158931573183*^9, 3.825162044510569*^9},
 CellLabel->
  "Out[263]=",ExpressionUUID->"ec397ed6-82a2-4caa-a2b1-2de252e33852"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.8250739058414927`*^9},ExpressionUUID->"5a5704fe-7cfc-4097-a29e-\
6ffedfc84939"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.825073905841741*^9},
 CellLabel->
  "In[264]:=",ExpressionUUID->"10f6f327-ad4d-42da-aa88-688df5af7edf"],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"1611 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "1611 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.8240321504830923`*^9, 3.824644897068892*^9, 
   3.8246463742055273`*^9, 3.824647482059079*^9, 3.824807973381401*^9, 
   3.82480834064183*^9, 3.824809928734603*^9, 3.824815881238413*^9, 
   3.824898740926771*^9, 3.824898787208027*^9, 3.824913941101017*^9, 
   3.825052526731217*^9, {3.825055438402112*^9, 3.8250554555377913`*^9}, 
   3.8250681298197813`*^9, 3.825073905841834*^9, 3.8250790174187737`*^9, 
   3.825152713758129*^9, 3.8251558534062653`*^9, 3.8251589317460203`*^9, 
   3.825162044735731*^9},
 CellLabel->
  "During evaluation of \
In[264]:=",ExpressionUUID->"01ebf71d-8d54-4d65-b61f-252b75a4a0d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.824032150486408*^9, 3.824644897072461*^9, 
   3.824646374209741*^9, 3.824647482062592*^9, 3.824807973384735*^9, 
   3.824808340647233*^9, 3.824809928738296*^9, 3.8248158812423058`*^9, 
   3.8248987409310837`*^9, 3.824898787212446*^9, 3.824913941106472*^9, 
   3.82505252673494*^9, {3.8250554384068213`*^9, 3.825055455542811*^9}, 
   3.825068129823645*^9, 3.8250739058420258`*^9, 3.825079017425845*^9, 
   3.825152713762581*^9, 3.825155853409706*^9, 3.825158931751176*^9, 
   3.8251620447370377`*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"078257cf-67dc-4972-8420-e97a80c82af1"],

Cell[BoxData[
 RowBox[{"SetOptions", "[", 
  RowBox[{"$Output", ",", " ", 
   RowBox[{"FormatType", "\[Rule]", " ", "StandardForm"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825053938139757*^9, 3.825053960443034*^9}, 
   3.8250739058421297`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"afc8a637-5ef2-4f1d-a0fa-a40c46a19fd6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"BinaryFormat", "\[Rule]", "False"}], ",", 
    RowBox[{"FormatType", "\[Rule]", "StandardForm"}], ",", 
    RowBox[{"PageWidth", "\[Rule]", "149"}], ",", 
    RowBox[{"PageHeight", "\[Rule]", "22"}], ",", 
    RowBox[{"TotalWidth", "\[Rule]", "\[Infinity]"}], ",", 
    RowBox[{"TotalHeight", "\[Rule]", "\[Infinity]"}], ",", 
    RowBox[{"CharacterEncoding", "\[RuleDelayed]", "\<\"Unicode\"\>"}], ",", 
    RowBox[{"NumberMarks", "\[RuleDelayed]", "$NumberMarks"}], ",", 
    RowBox[{"Method", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\<\"File\"\>", ",", 
       RowBox[{"BinaryFormat", "\[Rule]", "False"}]}], "}"}]}]}], "}"}], 
  "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825053960746804*^9, 3.8250539842878036`*^9}, 
   3.82505545519486*^9, 3.825062874295286*^9, 3.825065013959306*^9, 
   3.825065153468522*^9, {3.825065254258809*^9, 3.8250652594391947`*^9}, 
   3.825065325060631*^9, 3.825065421104084*^9, 3.825068129831023*^9, 
   3.825073905842222*^9, 3.8250790174348516`*^9, 3.8251527137705803`*^9, 
   3.825155853417119*^9, 3.825158931760027*^9, 3.8251620447454357`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"00127bb3-6cf3-40a8-8961-30c02de3a6ab"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.8250739058423147`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"3ce975c3-2309-458e-a9db-a913ec303c3c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 3.824807751287888*^9, 
   3.8248156967874126`*^9},ExpressionUUID->"84969562-1ee4-441c-a54d-\
1f19e7b1dc71"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Mu]", "]"}], "\[Rule]", " ", "d\[Mu]"}], " ", ",",
      " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", " ", 
      "d\[CurlyRho]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", " ", "d\[Xi]"}], " ", ",",
      "  ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalDelta]", "]"}], "\[Rule]", " ", 
      "d\[CapitalDelta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Delta]", "]"}], "\[Rule]", " ", "d\[Delta]"}], 
     " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Omega]", "]"}], "\[Rule]", " ", "d\[Omega]"}], 
     " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptV]", "]"}], "\[Rule]", " ", "d\[ScriptV]"}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", " ", "d\[ScriptU]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", " ", "d\[ScriptX]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", " ", "d\[ScriptY]"}],
      ",", "   ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, {3.824032529537923*^9, 
   3.8240325755969877`*^9}, 3.824807751288042*^9, {3.824809025073007*^9, 
   3.824809029711959*^9}, {3.824809216502654*^9, 3.8248092321019506`*^9}, {
   3.8248092640072527`*^9, 3.824809268046013*^9}, 3.824815696787575*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"f0b78896-2a11-42cc-887b-65b6786e8e5d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Mu]", "]"}], "\[Rule]", "d\[Mu]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", "d\[CurlyRho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", "d\[Xi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalDelta]", "]"}], "\[Rule]", 
       "d\[CapitalDelta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Delta]", "]"}], "\[Rule]", "d\[Delta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Omega]", "]"}], "\[Rule]", "d\[Omega]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptV]", "]"}], "\[Rule]", "d\[ScriptV]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", "d\[ScriptU]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", "d\[ScriptX]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", "d\[ScriptY]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82403258232056*^9, 3.824644897158078*^9, 
  3.824646374242673*^9, 3.824647482166779*^9, 3.824807751288147*^9, 
  3.8248079734933023`*^9, 3.8248083406807423`*^9, 3.824809030387142*^9, 
  3.824809232576869*^9, 3.824809268459838*^9, 3.8248099287703533`*^9, 
  3.824815696787702*^9, 3.82481588131142*^9, 3.824898740961405*^9, 
  3.824898787243429*^9, 3.824913941177478*^9, 3.825052526843519*^9, 
  3.825055455568503*^9, 3.8250681299849863`*^9, 3.825079017528133*^9, 
  3.825152713804476*^9, 3.825155853487646*^9, 3.8251589317916613`*^9, 
  3.825162044774815*^9},
 CellLabel->
  "Out[6]//TableForm=",ExpressionUUID->"266b9f5f-8a63-41e6-8f5b-e833144f9183"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.824807751288227*^9, 3.824815696787796*^9, {3.8249136324508667`*^9, 
   3.824913647897737*^9}, {3.825058218587964*^9, 3.825058240101057*^9}, {
   3.8250584124934998`*^9, 3.825058428739861*^9}, {3.825153751631757*^9, 
   3.825153752432321*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"f663b4cf-101f-48bf-8088-34bea8b42df3"]
}, 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->"89b03a24-fd65-493b-aaad-\
fce68a455ac8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"915cdc56-f493-48fd-ac08-504eefd597d0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"e7045443-a4a9-4958-8d50-839d774c9bf2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162470212757*^9, 3.825162482793491*^9}, {
  3.825162655404614*^9, 
  3.8251626608209457`*^9}},ExpressionUUID->"bcbcd088-bda0-4ac2-bfb0-\
d18d986d563e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "du"}], " ", "dv"}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"B", "[", "u", "]"}], "2"], 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["dy", "2"], "+", " ", 
      SuperscriptBox["dz", "2"]}], ")"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"H", "[", 
     RowBox[{"u", ",", "y", ",", "z"}], "]"}], " ", 
    SuperscriptBox["du", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162008636814*^9, 3.825162036338125*^9}, 
   3.825162479151988*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"fae2e536-09e8-4f1c-ab71-4d9468151337"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "du"}], " ", "dv"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"B", "[", "u", "]"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["du", "2"], " ", 
   RowBox[{"H", "[", 
    RowBox[{"u", ",", "y", ",", "z"}], "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.82516204483048*^9, 3.825162479152381*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"d8c34ebb-577c-44fb-b662-e66f9883e30f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq2", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dy", ",", "dz"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric2", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8251620474597178`*^9, 3.825162071874268*^9}, {
   3.825162198283279*^9, 3.825162210970396*^9}, 3.825162479152536*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"e3a66c89-0341-40dd-8288-9cb309f7fa9a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"H", "[", 
       RowBox[{"u", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0", "0"},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"B", "[", "u", "]"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"B", "[", "u", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162054774653*^9, 3.825162073176581*^9}, 
   3.825162211553276*^9, 3.825162479152936*^9},
 CellLabel->
  "Out[22]//MatrixForm=",ExpressionUUID->"200e6ace-0c7d-42c8-8af7-\
04b2d7a41143"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "inverse2", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", "metric2", "]"}], " ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse2", "  ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162894936431*^9, 3.8251629421675797`*^9}, 
   3.825162986087119*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"86900d11-45ce-4838-b413-e8b7181db84f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "2"}], "0", "0"},
     {
      RowBox[{"-", "2"}], 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"B", "[", "u", "]"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"B", "[", "u", "]"}], "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162928370686*^9, 3.82516294243957*^9}, 
   3.825162986087555*^9},
 CellLabel->
  "Out[95]//MatrixForm=",ExpressionUUID->"9895b067-d461-498e-afc1-\
12ea30f12e39"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric2", " ", ".", " ", "inverse2"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], "  ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8251629454493217`*^9, 3.8251629860877237`*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"2391488c-27d7-413d-a54f-818223e3608c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162951739253*^9, 3.825162986088138*^9}},
 CellLabel->
  "Out[97]//MatrixForm=",ExpressionUUID->"3533bbae-7648-4140-a3a1-\
61ff4e5175c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse2", " ", ".", " ", "metric2"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], "  ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8251629688849363`*^9, 3.825162986088275*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"a3ed40f3-a2e9-4c44-b727-7e877db7822a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825162973696333*^9, 3.825162986088558*^9}},
 CellLabel->
  "Out[98]//MatrixForm=",ExpressionUUID->"34b1f9a9-f7ec-49ee-afba-\
2068a460cb14"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"v", " ", "\[Equal]", " ", 
      RowBox[{"t", "+", "x"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"u", " ", "\[Equal]", " ", 
      RowBox[{"t", "-", "x"}]}]}], " ", "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq2a", "  ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], "  ", "//", " ", 
  "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825166456102437*^9, 3.825166501110751*^9}, 
   3.825166680525504*^9},
 CellLabel->
  "In[539]:=",ExpressionUUID->"af48d0ed-a5c4-4ffd-b63b-0ed7d4a614ba"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"v", "\[Rule]", 
       RowBox[{"t", "+", "x"}]}]},
     {
      RowBox[{"u", "\[Rule]", 
       RowBox[{"t", "-", "x"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82516647439299*^9, 3.8251665015224247`*^9}, 
   3.825166680526153*^9},
 CellLabel->
  "Out[541]//TableForm=",ExpressionUUID->"aa9fcb5c-7069-4fb2-a2ea-\
b54aed1a9d7c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", 
    RowBox[{"(", " ", 
     RowBox[{"eq2a", "  ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " ", "]"}], 
   " ", "/.", " ", "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825166506768906*^9, 3.82516651398253*^9}, 
   3.825166680526369*^9},
 CellLabel->
  "In[542]:=",ExpressionUUID->"7e84103b-d002-43f7-adb9-35f20e4e3774"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dv", "\[Rule]", 
       RowBox[{"dt", "+", "dx"}]}]},
     {
      RowBox[{"du", "\[Rule]", 
       RowBox[{"dt", "-", "dx"}]}]}
    },
    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.825166514244957*^9, 3.825166680526737*^9},
 CellLabel->
  "Out[542]//TableForm=",ExpressionUUID->"937a5f54-ea61-46ee-81ab-\
6fb1a2a29848"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2Rectangular", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2Rectangular", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"eq2", "  ", "/.", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"Dt", "[", " ", 
           RowBox[{"(", " ", 
            RowBox[{"eq2a", "  ", "/.", " ", 
             RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " ", 
           "]"}], " ", "/.", " ", "dtReplace"}], "  ", ")"}]}], "  ", "//", 
       " ", "Expand"}], "  ", ")"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric2Rectangular", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825166518577127*^9, 3.825166680526944*^9}},
 CellLabel->
  "In[556]:=",ExpressionUUID->"97ef27b3-a13a-4390-ba91-7f72d91ebbeb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"-", 
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], "0", "0"},
     {
      RowBox[{"-", 
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], 
      RowBox[{"1", "+", 
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"B", "[", "u", "]"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"B", "[", "u", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.825166519931566*^9, 3.825166551044026*^9}, {
  3.82516659158043*^9, 3.825166596966782*^9}, {3.8251666571265173`*^9, 
  3.825166680527379*^9}},
 CellLabel->
  "Out[558]//MatrixForm=",ExpressionUUID->"32592404-4899-42d8-82ad-\
8daf9a3bd862"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825162397559812*^9, 
  3.82516242172777*^9}},ExpressionUUID->"56cdca4b-b791-449a-b374-\
ff2cb21eee17"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 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.825162175141082*^9, 
   3.825162182862339*^9}, 3.825162408987773*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"f36b6214-088d-4d80-bc20-810bde04fb71"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "11.17", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2\>\"", ",", " ", "metric2", ",", " ", "\"\<Brinkman\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(brinkman\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "y", ",", "z"}], "}"}], ",", " ", 
     "\"\<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.8251622159399853`*^9, 
   3.825162243882362*^9}, 3.825162408987936*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"dce99151-1d8f-4133-8b21-08c8a809d876"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.396099`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825162246284718*^9, 3.825162408988042*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"20a65784-cb96-47ff-ad0f-cbb05598f393"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825162337064378*^9, 3.825162337457802*^9}, 
   3.825162408988134*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"7229c452-e57e-48bb-95a4-1503a71e7baa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "brinkman"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8251623379769793`*^9, 3.8251624089884653`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"4686f347-ccec-4305-aa79-23b4550e1d95"],

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.825162408988632*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"e124a29f-d581-4020-ab40-99a9dc6f3ad6"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "brinkman"], "\[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.825162357408332*^9, 
  3.82516240898873*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"860b94f9-9bb5-4c6e-885c-524bad2a5875"],

Cell[BoxData["\<\"Brinkman\"\>"], "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.8251623574112*^9, 
  3.825162408988831*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"cad8a482-f059-475d-b00f-ae1934c8c919"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"H", "(", 
        RowBox[{"u", ",", "y", ",", "z"}], ")"}], 
       RowBox[{"-", 
        FractionBox["1", "2"]}], "0", "0"},
      {
       RowBox[{"-", 
        FractionBox["1", "2"]}], "0", "0", "0"},
      {"0", "0", 
       SuperscriptBox[
        RowBox[{"B", "(", "u", ")"}], "2"], "0"},
      {"0", "0", "0", 
       SuperscriptBox[
        RowBox[{"B", "(", "u", ")"}], "2"]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 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.8251623574138002`*^9, 
  3.825162408989026*^9},
 CellLabel->
  "Out[27]//TraditionalForm=",ExpressionUUID->"037f01d0-ab72-4afd-946c-\
bd3cb7a04aaa"],

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.8251624089891567`*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"02f556ed-2498-48eb-83e4-65a441a76caf"],

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.8251623606887903`*^9, 3.825162408989242*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"06f7fb07-cb47-4e43-86cd-9e0ef1171be9"],

Cell[BoxData["\<\"ChristoffelSymbolBrinkman\"\>"], "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.8251623606911716`*^9, 3.8251624089893208`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"06e1f124-4d68-456a-a1fc-dceba6ffa525"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "y"}],
              MultilineFunction->None]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"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[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "y"}],
              MultilineFunction->None]}]},
           {"0"},
           {
            RowBox[{"2", " ", 
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"},
           {
            RowBox[{"2", " ", 
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"B", "(", "u", ")"}], "2"]}]]}]},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"B", "(", "u", ")"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"B", "(", "u", ")"}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"-", 
             FractionBox[
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "z"}],
               MultilineFunction->None], 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"B", "(", "u", ")"}], "2"]}]]}]},
           {"0"},
           {"0"},
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"B", "(", "u", ")"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None], 
             RowBox[{"B", "(", "u", ")"}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     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.825162360728881*^9, 3.825162408989483*^9},
 CellLabel->
  "Out[30]//TraditionalForm=",ExpressionUUID->"d60125f8-8ba7-401e-a0df-\
82c3f21366ac"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.825162408989604*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"b152f3a6-b14b-47a1-9bab-c3b631981e1e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.8251623647911177`*^9, 
  3.825162408989688*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"08afdc26-5cbb-4b5e-a7bf-e05197292719"],

Cell[BoxData["\<\"RiemannTensorBrinkman\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.825162364793425*^9, 
  3.825162408989829*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"2e625e52-d24d-4a97-85af-08cd50d695db"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}]}], "-", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}]}], "-", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["y", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}]}], "-", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            RowBox[{
             FractionBox["1", "2"], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["z", "2"]}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}]}], "-", 
            RowBox[{
             RowBox[{"B", "(", "u", ")"}], " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"B", "(", "u", ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["u", "2"]}],
              MultilineFunction->None]}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.825162364887722*^9, 
  3.825162408990003*^9},
 CellLabel->
  "Out[33]//TraditionalForm=",ExpressionUUID->"f1faa404-a13d-43f4-a408-\
03edbb7f42d8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.8251624089901342`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"c476448b-f3cf-4847-a26b-562a57f7d302"],

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.825162368725706*^9, 
  3.825162408990238*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"684c2809-980a-40f8-a13c-e8826905d800"],

Cell[BoxData["\<\"RicciTensorBrinkman\"\>"], "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.825162368728559*^9, 
  3.825162408990341*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"9fb692fe-cb23-4a18-9ce5-5d61c59f25a6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["y", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["z", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"4", " ", 
           RowBox[{"B", "(", "u", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"B", "(", "u", ")"}], "2"]}]]}], "0", "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "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.825162368757702*^9, 
  3.8251624089905043`*^9},
 CellLabel->
  "Out[36]//TraditionalForm=",ExpressionUUID->"44952dc4-2c8c-44fa-b543-\
6fa633bb16d1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.825162408990632*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"2ed28296-0b17-46ee-9350-be47a8482ab9"],

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.825162372025652*^9, 
  3.825162408990716*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"c6ece5ab-17f0-4d28-be13-9e8f94b9cd5b"],

Cell[BoxData["\<\"RicciScalarBrinkman\"\>"], "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.8251623720304947`*^9, 
  3.8251624089908037`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"fb7b7803-3979-4abe-96bb-a7947d380dee"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "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.825162372032631*^9, 
  3.8251624089909678`*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"c561f53c-0600-45d1-94f5-\
1a6515f7ab5c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, 3.8251624089910927`*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"de0567ab-e9d0-4e99-9c5f-fa5486ceb63a"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825162374703368*^9, 3.825162408991178*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"3cce5726-6717-416b-8058-94b8d2e2d46a"],

Cell[BoxData["\<\"KretschmannScalarBrinkman\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825162374707191*^9, 3.825162408991261*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"63ba1ba4-539a-494d-ada1-5b4a5a0790ae"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.825162374709426*^9, 3.825162408991418*^9},
 CellLabel->
  "Out[42]//TraditionalForm=",ExpressionUUID->"717037db-de94-41f4-b6de-\
39919afa12b1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.825162408991542*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"46687d77-07a2-474f-b469-002656296492"],

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.825162377477507*^9, 3.8251624089916277`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"4756084e-923b-4112-80fb-f6e07aaace07"],

Cell[BoxData["\<\"EinsteinTensorBrinkman\"\>"], "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.8251623774808292`*^9, 3.825162408991708*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"02e4585c-d40a-4498-91c1-9b89fd923758"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["y", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["z", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"4", " ", 
           RowBox[{"B", "(", "u", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"B", "(", "u", ")"}], "2"]}]]}], "0", "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "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.8251623774831543`*^9, 3.825162408991864*^9},
 CellLabel->
  "Out[45]//TraditionalForm=",ExpressionUUID->"5f598977-7985-4087-bc3c-\
ffe1e6ea5b58"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 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.825162408991989*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"d3319882-62f4-4491-9fc1-be8042af7b2e"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, {3.82516238343713*^9, 3.8251624089920883`*^9}},
 CellLabel->"Out[46]=",ExpressionUUID->"80e4f063-16c9-43fc-858f-8cf0147f0ccf"],

Cell[BoxData["\<\"WeylTensorBrinkman\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, {3.8251623834396067`*^9, 3.825162408992174*^9}},
 CellLabel->"Out[47]=",ExpressionUUID->"c941c8c2-237a-446d-a15b-ad77589e076e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], 
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "0", "0", "0"},
          {
           RowBox[{
            FractionBox["1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "2"]}],
               MultilineFunction->None], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "2"]}],
               MultilineFunction->None]}], ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, {3.825162383521199*^9, 3.825162408992338*^9}},
 CellLabel->
  "Out[48]//TraditionalForm=",ExpressionUUID->"dc0830aa-a329-4be2-9dbd-\
ba6f3696ba94"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, 3.825162408992464*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"b4d29f67-ec38-4f34-a4a7-9ab3e044c7fb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825162387223424*^9, 3.825162408992559*^9}},
 CellLabel->"Out[49]=",ExpressionUUID->"777f9e62-fe41-4241-8af7-d0b51d298420"],

Cell[BoxData["\<\"CottonTensorBrinkman\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825162387226089*^9, 3.825162408992647*^9}},
 CellLabel->"Out[50]=",ExpressionUUID->"e71cd1ca-565b-42b6-b95d-f3e914cb5873"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["z", "2"]}]}],
                MultilineFunction->None], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "3"]}],
                MultilineFunction->None]}], 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"B", "(", "u", ")"}], "2"]}]]}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "z"}]}],
                MultilineFunction->None], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"H", "(", 
                  RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "3"]}],
                MultilineFunction->None]}], 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"B", "(", "u", ")"}], "2"]}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"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[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "3"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["z", "2"]}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "3"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["y", "3"]}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"B", "(", "u", ")"}], "2"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "3"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["y", "2"]}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "z"}]}],
               MultilineFunction->None], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "3"], 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["z", "3"]}],
               MultilineFunction->None]}], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"B", "(", "u", ")"}], "2"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     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.8251623872551527`*^9, 3.825162408992713*^9}},
 CellLabel->
  "Out[51]//TraditionalForm=",ExpressionUUID->"885bb03e-18e2-4dd1-b2f9-\
549d5ed75330"]
}, Closed]],

Cell[CellGroupData[{

Cell["Null Tetrad Construction and Check of Orthogonality", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8251629947211847`*^9, 
  3.825163029175345*^9}},ExpressionUUID->"cfd6e670-a774-4205-ada7-\
33902e983d16"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptL]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptL]", "=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933371686145*^9, 3.82093337715728*^9}, 
   3.8209374103413973`*^9, 3.820944472322248*^9, {3.825162705934416*^9, 
   3.8251627095008307`*^9}, 3.825163010248035*^9, {3.825163189494629*^9, 
   3.825163191910489*^9}},
 CellLabel->
  "In[376]:=",ExpressionUUID->"0ca32f4b-9d1c-4a49-bb72-ae47176f2875"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820933237654937*^9, 3.820933379685409*^9, 3.820933448095758*^9, 
   3.820937410341577*^9, 3.820944472322352*^9, 3.8243816284850473`*^9, 
   3.82438185652029*^9, 3.824511849396772*^9, 3.82451417433105*^9, 
   3.825162835039082*^9, 3.825163010248392*^9, 3.825163193513257*^9, {
   3.825163765771799*^9, 3.82516377157283*^9}},
 CellLabel->
  "Out[377]=",ExpressionUUID->"76fd6326-5575-4514-90af-586c8ed0ad01"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptN]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptN]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], 
     RowBox[{"H", "[", 
      RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], ",", 
    FractionBox["1", "2"], ",", "0", ",", "0"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933298406392*^9, 3.820933313508857*^9}, 
   3.820937410341757*^9, 3.820944472322452*^9, {3.8251627125735207`*^9, 
   3.825162727701067*^9}, 3.8251630102485437`*^9, {3.825163177344656*^9, 
   3.825163181207341*^9}, {3.825163356087332*^9, 3.82516340020686*^9}, {
   3.825163463649448*^9, 3.825163495257515*^9}, 3.825163736946383*^9, 
   3.825163900449802*^9},
 CellLabel->
  "In[406]:=",ExpressionUUID->"79dbadc5-f069-41c7-84bd-59ed05b3a737"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"H", "[", 
     RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], ",", 
   FractionBox["1", "2"], ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820933313826449*^9, 3.820933381335147*^9, 3.820933448122315*^9, 
   3.820937410341963*^9, 3.820944472322535*^9, 3.8243816285060167`*^9, 
   3.824381856534606*^9, 3.824511849423729*^9, 3.8245141743647127`*^9, 
   3.8251627291358128`*^9, 3.825163010248796*^9, 3.825163195604129*^9, {
   3.825163359218123*^9, 3.825163401020595*^9}, {3.825163470404677*^9, 
   3.825163495770288*^9}, 3.825163737301878*^9, 3.825163771625325*^9, 
   3.825163900989052*^9},
 CellLabel->
  "Out[407]=",ExpressionUUID->"77af5f57-caab-4528-9ec0-a94c850a5e4d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox[
     RowBox[{"B", "[", "u", "]"}], 
     SqrtBox["2"]], ")"}], 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "\[ImaginaryI]"}], 
    "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933317854281*^9, 3.8209333396620893`*^9}, 
   3.820937410342205*^9, 3.820944472322617*^9, {3.825162733902204*^9, 
   3.825162785773286*^9}, 3.825163010248955*^9, {3.8251632476158543`*^9, 
   3.825163249745236*^9}, {3.8251632907036123`*^9, 3.825163292593363*^9}},
 CellLabel->
  "In[380]:=",ExpressionUUID->"0d0ed3c1-51b2-41ad-a50a-75dcf4b96a0a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{"B", "[", "u", "]"}], 
    SqrtBox["2"]], ",", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"B", "[", "u", "]"}]}], 
    SqrtBox["2"]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820933339966406*^9, 3.8209333835387917`*^9, 3.8209334481343927`*^9, 
   3.82093741034233*^9, 3.820944472322708*^9, 3.8243816285481443`*^9, 
   3.824381856569952*^9, 3.824511849437441*^9, 3.8245141743819103`*^9, {
   3.825162741418839*^9, 3.825162765573881*^9}, 3.825163010249151*^9, 
   3.825163197975441*^9, 3.825163254375824*^9, 3.825163299754669*^9, 
   3.82516351276313*^9, 3.82516377163729*^9},
 CellLabel->
  "Out[381]=",ExpressionUUID->"39f5cba8-aefb-4007-ab7d-7ffc4aad280a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]bar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]bar", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox[
     RowBox[{"B", "[", "u", "]"}], 
     SqrtBox["2"]], ")"}], 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", 
     RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933342941945*^9, 3.8209333673030777`*^9}, 
   3.820937410342538*^9, 3.820944472322826*^9, {3.825162748910421*^9, 
   3.825162789925873*^9}, 3.8251630102492647`*^9, 3.825163204383093*^9, {
   3.825163251999815*^9, 3.8251632976868477`*^9}},
 CellLabel->
  "In[382]:=",ExpressionUUID->"132f6c4a-f7d7-406f-9628-2bcfb005e701"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{"B", "[", "u", "]"}], 
    SqrtBox["2"]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"B", "[", "u", "]"}]}], 
     SqrtBox["2"]]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933367920988*^9, 3.820933385725149*^9}, 
   3.82093344816428*^9, 3.820937410342681*^9, 3.820944472322927*^9, 
   3.824381628567217*^9, 3.824381856586792*^9, 3.824511849465397*^9, 
   3.824514174420451*^9, {3.8251627675091057`*^9, 3.825162790422743*^9}, 
   3.825163010249467*^9, {3.825163200255802*^9, 3.825163204803966*^9}, {
   3.8251632527037163`*^9, 3.825163298220015*^9}, 3.825163514474989*^9, 
   3.825163771665395*^9},
 CellLabel->
  "Out[383]=",ExpressionUUID->"7344bb12-7dc9-418c-ac96-155de80f3d54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "needed", " ", 
    "are", " ", "up", " ", "or", " ", "down"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"l", " ", "=", " ", 
    RowBox[{"ToTensor", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<l\>\""}], "}"}], " ", 
      ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptL]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"n", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<n\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptN]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"m", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<m\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"mbar", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<mbar\>\""}], " ", 
       "}"}], " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]bar", " ", 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}], " "}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937410342936*^9, 3.8209444723230133`*^9, {3.8251627941112947`*^9, 
   3.825162797280046*^9}, 3.8251630102496977`*^9},
 CellLabel->
  "In[424]:=",ExpressionUUID->"a3494091-330d-4e2f-8973-d7e18d315677"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["l", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162838832224*^9, 3.825163010249784*^9, 3.825163208623604*^9, {
   3.825163258334107*^9, 3.825163272128529*^9}, 3.8251633024918633`*^9, {
   3.8251633634253693`*^9, 3.82516340526884*^9}, {3.8251634733484297`*^9, 
   3.82516349907025*^9}, {3.82516374263971*^9, 3.825163771676547*^9}, 
   3.825163910680252*^9},
 CellLabel->
  "Out[424]=",ExpressionUUID->"90cc393b-924e-477a-82df-1176121a8863"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["n", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162838832224*^9, 3.825163010249784*^9, 3.825163208623604*^9, {
   3.825163258334107*^9, 3.825163272128529*^9}, 3.8251633024918633`*^9, {
   3.8251633634253693`*^9, 3.82516340526884*^9}, {3.8251634733484297`*^9, 
   3.82516349907025*^9}, {3.82516374263971*^9, 3.825163771676547*^9}, 
   3.825163910683972*^9},
 CellLabel->
  "Out[425]=",ExpressionUUID->"313fe947-3bbe-46b0-8058-6ec480cdf288"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["m", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162838832224*^9, 3.825163010249784*^9, 3.825163208623604*^9, {
   3.825163258334107*^9, 3.825163272128529*^9}, 3.8251633024918633`*^9, {
   3.8251633634253693`*^9, 3.82516340526884*^9}, {3.8251634733484297`*^9, 
   3.82516349907025*^9}, {3.82516374263971*^9, 3.825163771676547*^9}, 
   3.825163910686603*^9},
 CellLabel->
  "Out[426]=",ExpressionUUID->"5352c9d8-7113-4758-a8bf-dbbefa6fb5bc"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["mbar", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162838832224*^9, 3.825163010249784*^9, 3.825163208623604*^9, {
   3.825163258334107*^9, 3.825163272128529*^9}, 3.8251633024918633`*^9, {
   3.8251633634253693`*^9, 3.82516340526884*^9}, {3.8251634733484297`*^9, 
   3.82516349907025*^9}, {3.82516374263971*^9, 3.825163771676547*^9}, 
   3.825163910688733*^9},
 CellLabel->
  "Out[427]=",ExpressionUUID->"9948ccfd-4094-4a70-80a1-d7f3042b62d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"l", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], " ", "]"}], "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"m", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", 
     RowBox[{"-", "1"}]}], "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", "\[Mu]", "]"}], 
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ", 
     
     RowBox[{"-", "1"}]}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "1"}], " ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}],
   " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", "\[Mu]", "]"}], 
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", "  ",
      "1"}], " ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessDownIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessDownIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"l", "[", 
        RowBox[{"-", "\[Mu]"}], "]"}]}], 
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "+", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", "metric2", "]"}], " ", "\[Equal]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", " ", 
        RowBox[{
        "TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
        "]"}]}], " ", "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "FullSimplify"}], "  ", "//", " ", "TableForm"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessUpIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessUpIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"l", "[", "\[Mu]", "]"}]}], 
      RowBox[{"n", "[", "\[Nu]", "]"}]}], "-", 
     RowBox[{
      RowBox[{"n", "[", "\[Mu]", "]"}], 
      RowBox[{"l", "[", "\[Nu]", "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Mu]", "]"}], 
      RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "+", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Nu]", "]"}], 
      RowBox[{"mbar", "[", "\[Mu]", "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "inverse2", "]"}], " ", "\[Equal]", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", " ", 
       RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
       "]"}]}], " ", "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937410343767*^9, 3.820944472323543*^9, {3.8237794627048893`*^9, 
   3.823779471575405*^9}, 3.823780788700976*^9, {3.825162864899107*^9, 
   3.8251628705896587`*^9}, 3.825163010250492*^9, {3.8251636502310457`*^9, 
   3.825163673925605*^9}, {3.825163716083042*^9, 3.8251637176657476`*^9}},
 CellLabel->
  "In[428]:=",ExpressionUUID->"1656c338-09cb-42f8-bd23-a42cd5527058"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.8251639126217127`*^9}},
 CellLabel->
  "Out[428]=",ExpressionUUID->"b97b6fd0-0102-4f9b-9e44-62f4c326b807"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912626294*^9}},
 CellLabel->
  "Out[429]=",ExpressionUUID->"31be0b1d-be96-498a-be31-bfd5ffd2c403"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912637748*^9}},
 CellLabel->
  "Out[430]=",ExpressionUUID->"e68d2a57-0dff-414f-a3dd-dc59c841d548"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912667659*^9}},
 CellLabel->
  "Out[431]=",ExpressionUUID->"14a74fcd-9799-4f4d-ad23-3dca09f42843"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912670794*^9}},
 CellLabel->
  "Out[432]=",ExpressionUUID->"31a9b93c-c818-4f42-af9b-579990696dd6"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912673828*^9}},
 CellLabel->
  "Out[433]=",ExpressionUUID->"62119253-3286-432e-8237-26909e233c11"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.8251639126772833`*^9}},
 CellLabel->
  "Out[434]=",ExpressionUUID->"499e4344-f6d5-44c4-9a64-61e9d7bbc416"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.8251639126862087`*^9}},
 CellLabel->
  "Out[435]=",ExpressionUUID->"15a4f9ed-0e45-41f5-b069-4da021c5b744"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"H", "[", 
       RowBox[{"u", ",", "y", ",", "z"}], "]"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0", "0"},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"B", "[", "u", "]"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"B", "[", "u", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.82516391272184*^9}},
 CellLabel->
  "Out[438]//MatrixForm=",ExpressionUUID->"75831262-20df-40b4-973d-\
2915153e85cc"],

Cell[BoxData[
 TagBox["True",
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912725366*^9}},
 CellLabel->
  "Out[439]//TableForm=",ExpressionUUID->"40c99907-7f98-4db5-8f02-\
cf47095082d6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "2"}], "0", "0"},
     {
      RowBox[{"-", "2"}], 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}]}], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"B", "[", "u", "]"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"B", "[", "u", "]"}], "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912763167*^9}},
 CellLabel->
  "Out[442]//MatrixForm=",ExpressionUUID->"5580a4ee-1265-41ea-bf0d-\
57c4209c6f6d"],

Cell[BoxData[
 TagBox["True",
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.825162871382519*^9, 3.8251630102505913`*^9, 3.825163211477909*^9, {
   3.825163260302476*^9, 3.8251633049106007`*^9}, {3.825163364983921*^9, 
   3.825163407657784*^9}, {3.825163475400855*^9, 3.825163500742745*^9}, 
   3.825163675895904*^9, {3.825163720326172*^9, 3.8251637717142572`*^9}, {
   3.825163907951704*^9, 3.825163912767446*^9}},
 CellLabel->
  "Out[443]//TableForm=",ExpressionUUID->"b6f83fe2-4ed6-4c57-8809-\
365ca576d040"]
}, Closed]],

Cell[CellGroupData[{

Cell["Newman Penrose Quantities for Brinkman Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8251640567515907`*^9, 
  3.8251640938879337`*^9}},ExpressionUUID->"74a97bcf-37f9-4cf9-b686-\
6b55250bdc7e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "spinCoefficientReplace", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Alpha]", "\[Rule]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"MergeTensors", "[", 
               RowBox[{
                RowBox[{"CovariantD", "[", " ", 
                 RowBox[{
                  RowBox[{"l", "[", 
                   RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                  RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                RowBox[{"n", "[", "\[Mu]", "]"}], " ", 
                RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
              "TensorValues"}], " ", ")"}], "-", "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"MergeTensors", "[", 
               RowBox[{
                RowBox[{"CovariantD", "[", " ", 
                 RowBox[{
                  RowBox[{"m", "[", 
                   RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                  RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
              "TensorValues"}], ")"}]}], ")"}]}], " ", ")"}]}], " ", "//", 
       "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Beta]", " ", "\[Rule]", " ", "\[IndentingNewLine]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"MergeTensors", "[", " ", 
               RowBox[{
                RowBox[{"CovariantD", "[", " ", 
                 RowBox[{
                  RowBox[{"l", "[", 
                   RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                  RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                RowBox[{"n", "[", "\[Mu]", "]"}], 
                RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
              "TensorValues"}], ")"}], "-", " ", "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"MergeTensors", "[", 
               RowBox[{
                RowBox[{"CovariantD", "[", " ", 
                 RowBox[{
                  RowBox[{"m", "[", 
                   RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                  RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
              "TensorValues"}], " ", ")"}]}], ")"}]}], ")"}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Gamma]", " ", "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
         "something", " ", "weird", " ", "here", " ", "correct", " ", 
          "definition", " ", "off", " ", "by", " ", "minus", " ", "sign"}], 
         " ", "*)"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            FractionBox["1", "2"], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", " ", 
                   RowBox[{
                    RowBox[{"l", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"n", "[", "\[Mu]", "]"}], 
                  RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", 
                " ", "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", 
              ")"}], "-", "\[IndentingNewLine]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"MergeTensors", "[", 
                  RowBox[{
                   RowBox[{"CovariantD", "[", " ", 
                    RowBox[{
                    RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                   RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                   RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                 "TensorValues"}], " ", "//", " ", "Expand"}], "  ", "//", 
               " ", "FullSimplify"}], " ", ")"}]}], ")"}]}], " ", "//", " ", 
          "Expand"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
      " ", "Simplify"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CurlyEpsilon]", " ", "\[Rule]", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "/", "2"}], ")"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"MergeTensors", "[", 
                   RowBox[{
                    RowBox[{"CovariantD", "[", 
                    RowBox[{
                    RowBox[{"l", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                    RowBox[{"n", "[", "\[Mu]", "]"}], " ", 
                    RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ",
                   "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", 
                " ", "FullSimplify"}], "  ", ")"}], "  ", "-", " ", 
              "\[IndentingNewLine]", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"MergeTensors", "[", " ", 
                   RowBox[{
                    RowBox[{"CovariantD", "[", " ", 
                    RowBox[{
                    RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                    RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                    RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ",
                   "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", 
                " ", "FullSimplify"}], ")"}]}], " ", ")"}]}], " ", "//", " ", 
           "Expand"}], "  ", "//", " ", "FullSimplify"}], " ", ")"}]}], " ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Kappa]", "\[Rule]", 
        RowBox[{"(", "  ", 
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "  ", "]"}], "  ", "//", " ", 
          "TensorValues"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", "[", " ", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], ",", 
               RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"mbar", "[", "\[Nu]", "]"}]}], " ", "]"}], "  ", "//", 
           " ", "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
         "FullSimplify"}], ")"}]}]}], "  ", ",", "\[IndentingNewLine]", 
     RowBox[{"\[Mu]", "\[Rule]", " ", 
      RowBox[{"(*", 
       RowBox[{"note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", " ", "[", " ", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", " ", 
               RowBox[{"-", "\[Nu]"}]}], " ", "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"m", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
           "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
         "FullSimplify"}], " ", ")"}]}]}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Nu]", "\[Rule]", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"n", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
          "TensorValues"}], " ", ")"}]}], " ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Pi]", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"Note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", "[", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], ",", 
               RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
           "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
         "Simplify"}], " ", ")"}]}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Rho]", " ", "\[Rule]", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ",
           "TensorValues"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
        "FullSimplify"}], " ", ")"}]}], "  ", ",", " ", 
     RowBox[{"\[Sigma]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", " ", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
          "TensorValues"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
        "FullSimplify"}], ")"}]}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"n", "[", "\[Nu]", " ", "]"}]}], "]"}], "//", " ", 
          "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
        "Simplify"}], "  ", ")"}]}]}], "   ", "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "   ", "//", " ", "TableForm"}], " ", "//",
   " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820667112307205*^9, {3.820691856877*^9, 3.8206918635710173`*^9}, {
   3.820692627802567*^9, 3.820692798874284*^9}, {3.820793246159666*^9, 
   3.8207932735596313`*^9}, {3.820933088885683*^9, 3.820933089524383*^9}, 
   3.820934520109788*^9, 3.8209373342691517`*^9, {3.82100327861626*^9, 
   3.8210032838458157`*^9}, {3.821003386912135*^9, 3.821003405643714*^9}, {
   3.8210037363804407`*^9, 3.8210037487041388`*^9}, {3.82437982699832*^9, 
   3.824379841631565*^9}, {3.824382108710671*^9, 3.8243821568691874`*^9}, 
   3.825164066288479*^9},
 CellLabel->
  "In[444]:=",ExpressionUUID->"5a96923e-8ddc-467b-b1ba-565daf27eb4a"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"\[Alpha]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Beta]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Gamma]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[CurlyEpsilon]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Kappa]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Lambda]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Mu]", "\[Rule]", 
        FractionBox[
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"B", "(", "u", ")"}]}], 
          RowBox[{"\[PartialD]", "u"}],
          MultilineFunction->None], 
         RowBox[{"B", "(", "u", ")"}]]}]},
      {
       RowBox[{"\[Nu]", "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"H", "(", 
                RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
              RowBox[{"\[PartialD]", "z"}],
              MultilineFunction->None], "-", 
             RowBox[{"\[ImaginaryI]", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"H", "(", 
                 RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
               RowBox[{"\[PartialD]", "y"}],
               MultilineFunction->None]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SqrtBox["2"], " ", 
           RowBox[{"B", "(", "u", ")"}]}]]}]}]},
      {
       RowBox[{"\[Pi]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Rho]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Sigma]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Tau]", "\[Rule]", "0"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8251639334485807`*^9, 3.825164066288632*^9},
 CellLabel->
  "Out[446]//TraditionalForm=",ExpressionUUID->"4f7e281a-27c5-490c-adf5-\
5c07b529f4f0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "ricciScalarsReplace", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ricciScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "OO"], "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"could", " ", "use", " ", "invisible", " ", "comma"}], ",", 
          " ", 
          RowBox[{
          "but", " ", "shows", " ", "up", " ", "in", " ", "output", " ", "so",
            " ", "use", " ", "letter", " ", "O"}]}], "  ", "*)"}], " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"m", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "10"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "  ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "4"], ")"}], "*", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"(", " ", 
            RowBox[{"TensorValues", "[", 
             RowBox[{"MergeTensors", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"tensorList", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "[", 
                RowBox[{
                 RowBox[{"-", "\[Mu]"}], ",", 
                 RowBox[{"-", "\[Nu]"}]}], "]"}], 
               RowBox[{"l", "[", "\[Mu]", "]"}], 
               RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}], ")"}], "+", 
           " ", 
           RowBox[{"(", 
            RowBox[{"TensorValues", "[", 
             RowBox[{"MergeTensors", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"tensorList", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "[", 
                RowBox[{
                 RowBox[{"-", "\[Mu]"}], ",", 
                 RowBox[{"-", "\[Nu]"}]}], "]"}], 
               RowBox[{"m", "[", "\[Mu]", "]"}], 
               RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}], ")"}]}], 
          ")"}]}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
      "FullSimplify"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "20"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "21"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "  ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalLambda]", "\[Rule]", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", "24"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"tensorList", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], "//", " ", "Expand"}], 
      " ", "//", " ", "FullSimplify"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ricciScalarsReplace", "   ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8207941683808823`*^9, 3.820794170188884*^9}, {
   3.820794210004217*^9, 3.820794295371916*^9}, {3.820794355374641*^9, 
   3.8207944173021507`*^9}, {3.8209358220143003`*^9, 3.820935854138783*^9}, 
   3.820937334270711*^9, {3.821003405651829*^9, 3.821003467622817*^9}, {
   3.821003736380765*^9, 3.821003748704556*^9}, {3.824235099273512*^9, 
   3.824235208081946*^9}, 3.8251640662891693`*^9},
 CellLabel->
  "In[447]:=",ExpressionUUID->"6773ad37-e50e-499f-99a0-1a530dd5e78f"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "OO"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "10"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "20"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "21"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["y", "2"]}],
           MultilineFunction->None], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"H", "(", 
             RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["z", "2"]}],
           MultilineFunction->None], "+", 
          RowBox[{"4", " ", 
           RowBox[{"B", "(", "u", ")"}], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"B", "(", "u", ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["u", "2"]}],
            MultilineFunction->None]}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"B", "(", "u", ")"}], "2"]}]]}]},
      {
       RowBox[{"\[CapitalLambda]", "\[Rule]", "0"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82516394885433*^9, 3.825164066289268*^9},
 CellLabel->
  "Out[449]//TraditionalForm=",ExpressionUUID->"d288e1cf-67bc-421e-b5fd-\
b6550c0f5a36"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "weylScalarsReplace", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", "   ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"m", "[", "\[Lambda]", "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"n", "[", "\[Lambda]", "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n", 
     "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Kappa]", "]"}], 
            RowBox[{"m", "[", "\[Lambda]", "]"}], 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", " ", "\n", 
     "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Kappa]", "]"}], 
            RowBox[{"l", "[", "\[Lambda]", "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", " ", "\n",
      "\t ", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "8", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Kappa]"}], ",", 
              RowBox[{"-", "\[Lambda]"}], ",", 
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Kappa]", "]"}], 
            RowBox[{"mbar", "[", "\[Lambda]", "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", "  ", "//", " ", "TableForm"}], " ", "//", 
  " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820667112308317*^9, {3.8206919186046867`*^9, 3.820691920188485*^9}, {
   3.820794507895151*^9, 3.820794582921618*^9}, 3.820937334271385*^9, 
   3.821003405651976*^9, 3.825164066289742*^9},
 CellLabel->
  "In[450]:=",ExpressionUUID->"6482a12e-e093-4f78-81ac-6fd643b2d0c8"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"H", "(", 
               RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "z"}]}],
             MultilineFunction->None]}], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["y", "2"]}],
            MultilineFunction->None], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"H", "(", 
              RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["z", "2"]}],
            MultilineFunction->None]}], 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"B", "(", "u", ")"}], "2"]}]]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825163964331853*^9, 3.825164066289837*^9},
 CellLabel->
  "Out[452]//TraditionalForm=",ExpressionUUID->"cf12874c-7bcc-44d8-ae3e-\
7c1bf4f82a99"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq4", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Off", " ", "by", " ", "a", " ", "factor", " ", "of", " ", "2"}], 
    ",", " ", 
    RowBox[{
     RowBox[{
     "possibly", " ", "from", " ", "null", " ", "tetrad", " ", 
      "construction"}], " ", "-", " ", 
     RowBox[{"figure", " ", "this", " ", "out"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"weylScalarsReplace", " ", "[", 
     RowBox[{"[", "5", "]"}], "]"}], " ", "//", " ", "Apart"}], "  ", "//", 
   " ", "pdConv"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825163981374084*^9, 3.825164066290125*^9}},
 CellLabel->
  "In[458]:=",ExpressionUUID->"efd12d2b-84fb-4ffe-854d-7e8903e51282"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
   RowBox[{
    FractionBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"H", "(", 
        RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["y", "2"]}],
      MultilineFunction->None], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"B", "(", "u", ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"H", "(", 
         RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["z", "2"]}],
       MultilineFunction->None], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"H", "(", 
          RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "z"}]}],
        MultilineFunction->None]}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"B", "(", "u", ")"}], "2"]}]]}]}], TraditionalForm]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825163983731717*^9, 3.825164011274365*^9}, {
  3.825164048177896*^9, 3.8251640662905903`*^9}},
 CellLabel->
  "Out[459]//TraditionalForm=",ExpressionUUID->"3efca0e8-bfa0-4519-b624-\
c21bd67ee920"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq4pt1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Not", " ", "numbered", " ", "in", " ", "text"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4pt1", " ", "=", "  ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"B", "[", "u", "]"}], "\[Rule]", " ", "1"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"H", "[", 
       RowBox[{"u", ",", "y", ",", "z"}], "]"}], " ", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"f", "[", "u", "]"}], " ", 
       RowBox[{"h", "[", 
        RowBox[{"y", ",", "z"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4pt1", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.825165680771833*^9, 3.825165774820724*^9}},
 CellLabel->
  "In[464]:=",ExpressionUUID->"50905f47-c52e-4fa8-9143-cefd2bee8966"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"B", "[", "u", "]"}], "\[Rule]", "1"}]},
     {
      RowBox[{
       RowBox[{"H", "[", 
        RowBox[{"u", ",", "y", ",", "z"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"f", "[", "u", "]"}], " ", 
        RowBox[{"h", "[", 
         RowBox[{"y", ",", "z"}], "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.825165772728578*^9, 3.825165775375308*^9}},
 CellLabel->
  "Out[466]//TableForm=",ExpressionUUID->"95952455-fddc-437a-a7b0-\
4bd4e2d3bfe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"D", "[", " ", 
   RowBox[{
    RowBox[{"eq4pt1", "[", 
     RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", "2"}], "}"}]}], "]"}], " ", "//", " ", 
  "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", " ", 
   RowBox[{
    RowBox[{"eq4pt1", "[", 
     RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"z", ",", "2"}], "}"}]}], "]"}], "  ", "//", " ", 
  "pdConv"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"eq4pt1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "y"}], "]"}], ",", 
    "z"}], "]"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellChangeTimes->{{3.8251657817806253`*^9, 3.825165846774688*^9}},
 CellLabel->
  "In[483]:=",ExpressionUUID->"30ea6b80-aef6-4d83-a114-03a1b99ee632"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"H", "(", 
      RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["y", "2"]}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"f", "(", "u", ")"}], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"h", "(", 
       RowBox[{"y", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["y", "2"]}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.825165825422038*^9, 3.825165848406424*^9}},
 CellLabel->
  "Out[483]//TraditionalForm=",ExpressionUUID->"23cb6ef2-df2c-4fa4-aa20-\
9d19223a89e4"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"H", "(", 
      RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["z", "2"]}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"f", "(", "u", ")"}], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"h", "(", 
       RowBox[{"y", ",", "z"}], ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["z", "2"]}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.825165825422038*^9, 3.8251658484100246`*^9}},
 CellLabel->
  "Out[484]//TraditionalForm=",ExpressionUUID->"11b92466-f9be-413c-b338-\
fdc0c561cfc0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"H", "(", 
      RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
    RowBox[{
     RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
     RowBox[{"\[PartialD]", "z"}]}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"f", "(", "u", ")"}], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"h", "(", 
       RowBox[{"y", ",", "z"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "z"}]}],
     MultilineFunction->None]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.825165825422038*^9, 3.825165848414114*^9}},
 CellLabel->
  "Out[485]//TraditionalForm=",ExpressionUUID->"54a28185-90f5-44fd-a905-\
fb187688564e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"eq4", "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "/.", " ", "eq4pt1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq4", " ", "/.", " ", "eq4pt1"}], " ", "/.", " ", 
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"eq4pt1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], " ", "/.", " ", 
   RowBox[{"D", "[", " ", 
    RowBox[{
     RowBox[{"eq4pt1", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"z", ",", "2"}], "}"}]}], "]"}]}], " ", "/.", " ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"eq4pt1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", "y"}], "]"}], ",", 
    "z"}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.825165863165112*^9, 3.8251659023607473`*^9}},
 CellLabel->
  "In[489]:=",ExpressionUUID->"6316ffca-15af-4edd-9e9d-e80c63a97310"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
   RowBox[{
    FractionBox[
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"H", "(", 
        RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["y", "2"]}],
      MultilineFunction->None], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"B", "(", "u", ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[PartialD]", "2"], 
        RowBox[{"H", "(", 
         RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
       RowBox[{"\[PartialD]", 
        SuperscriptBox["z", "2"]}],
       MultilineFunction->None], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[PartialD]", "2"], 
         RowBox[{"H", "(", 
          RowBox[{"u", ",", "y", ",", "z"}], ")"}]}], 
        RowBox[{
         RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
         RowBox[{"\[PartialD]", "z"}]}],
        MultilineFunction->None]}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"B", "(", "u", ")"}], "2"]}]]}]}], TraditionalForm]], "Output",\

 CellChangeTimes->{{3.825165857744231*^9, 3.825165903620228*^9}},
 CellLabel->
  "Out[489]//TraditionalForm=",ExpressionUUID->"cd1e2074-7fb4-4e76-8a5e-\
1036099a6920"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"f", "(", "u", ")"}], " ", 
         RowBox[{"h", "(", 
          RowBox[{"y", ",", "z"}], ")"}]}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["y", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"h", "(", 
             RowBox[{"y", ",", "z"}], ")"}]}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["z", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"h", "(", 
             RowBox[{"y", ",", "z"}], ")"}]}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None]}]}], ")"}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.825165857744231*^9, 3.82516590362519*^9}},
 CellLabel->
  "Out[490]//TraditionalForm=",ExpressionUUID->"ccd88fc7-caa3-4bda-9dec-\
48d31bc8b763"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"f", "(", "u", ")"}], " ", 
         RowBox[{"h", "(", 
          RowBox[{"y", ",", "z"}], ")"}]}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["y", "2"]}],
      MultilineFunction->None]}], "+", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"h", "(", 
             RowBox[{"y", ",", "z"}], ")"}]}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["z", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"h", "(", 
             RowBox[{"y", ",", "z"}], ")"}]}], ")"}]}], 
         RowBox[{
          RowBox[{"\[PartialD]", "y"}], "\[ThinSpace]", 
          RowBox[{"\[PartialD]", "z"}]}],
         MultilineFunction->None]}]}], ")"}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.825165857744231*^9, 3.8251659036358347`*^9}},
 CellLabel->
  "Out[491]//TraditionalForm=",ExpressionUUID->"0c490929-bd5f-45f8-b1b4-\
8cdebdf32202"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"B", "[", "u", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"u", ",", "2"}], "}"}]}], "]"}], " ", "+", " ", 
    RowBox[{"2", " ", "\[Pi]", " ", "\[Rho]", " ", 
     RowBox[{"B", "[", "u", "]"}]}]}], " ", "\[Equal]", " ", "0", 
   " "}]}]}], "Input",
 CellChangeTimes->{{3.825165946377304*^9, 3.825165972812254*^9}, {
  3.825166005464621*^9, 3.82516601204887*^9}},
 CellLabel->
  "In[494]:=",ExpressionUUID->"3a38145c-fcd0-455b-8084-7cbd8345b1dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", "\[Pi]", " ", "\[Rho]", " ", 
    RowBox[{"B", "[", "u", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["B", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "u", "]"}]}], "\[Equal]", "0"}]], "Output",\

 CellChangeTimes->{{3.825165969030961*^9, 3.825165973341002*^9}, 
   3.8251660125205812`*^9},
 CellLabel->
  "Out[495]=",ExpressionUUID->"c422c8ee-ee6d-4d33-a170-b8ad63effdac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"DSolve", "[", " ", 
      RowBox[{"eq5", " ", ",", " ", 
       RowBox[{"B", "[", "u", "]"}], " ", ",", " ", "u"}], " ", "]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
   RowBox[{
    RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0", " "}]}]}]}], "Input",
 CellChangeTimes->{{3.825166014906801*^9, 3.82516606839931*^9}, {
  3.825166179183289*^9, 3.825166180280602*^9}},
 CellLabel->
  "In[508]:=",ExpressionUUID->"086640ed-8bae-4bb2-94eb-c347d0113507"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B", "[", "u", "]"}], "\[Rule]", 
  RowBox[{
   TemplateBox[{"1"},
    "C"], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]], " ", "u", " ", 
     SqrtBox["\[Rho]"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.825166022494452*^9, 3.8251660692562437`*^9}, 
   3.825166182850458*^9},
 CellLabel->
  "Out[509]=",ExpressionUUID->"ccae1f5c-43ad-429d-b9a2-12b7dafa4ac3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"\[Omega]0", " ", "\[Equal]", " ", 
   SqrtBox[
    RowBox[{"2", " ", "\[Pi]", " ", "\[Rho]"}]]}]}]}], "Input",
 CellChangeTimes->{{3.825166089862212*^9, 3.82516610965734*^9}, {
  3.825166184927095*^9, 3.8251661866531563`*^9}},
 CellLabel->
  "In[510]:=",ExpressionUUID->"4557d864-42f9-4352-80f4-f8e482b85f8e"],

Cell[BoxData[
 RowBox[{"\[Omega]0", "\[Equal]", 
  RowBox[{
   SqrtBox[
    RowBox[{"2", " ", "\[Pi]"}]], " ", 
   SqrtBox["\[Rho]"]}]}]], "Output",
 CellChangeTimes->{3.825166112097723*^9, 3.825166187220118*^9},
 CellLabel->
  "Out[511]=",ExpressionUUID->"f8d78918-ef99-4930-a9f7-0091c959825e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Solve", "[", " ", 
   RowBox[{"eq6b", " ", ",", " ", "\[Rho]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.825166114455618*^9, 3.825166130677775*^9}, {
  3.8251661890304813`*^9, 3.8251661891592693`*^9}},
 CellLabel->
  "In[512]:=",ExpressionUUID->"0aab35c9-7aeb-4c3c-9d8e-ddc71a17f6b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Rho]", "\[Rule]", 
   FractionBox[
    SuperscriptBox["\[Omega]0", "2"], 
    RowBox[{"2", " ", "\[Pi]"}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.8251661203243523`*^9, 3.825166131915266*^9}, 
   3.825166189641481*^9},
 CellLabel->
  "Out[512]=",ExpressionUUID->"fd2dda64-0a32-4212-a8a4-ffc0b620ba67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"eq6a", "  ", "/.", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq6b", " ", ",", " ", "\[Rho]"}], "]"}], "]"}]}], " ", "//", 
   " ", "PowerExpand", " "}]}]}], "Input",
 CellChangeTimes->{{3.825166152407016*^9, 3.8251661707566957`*^9}, {
  3.825166203158863*^9, 3.82516621310142*^9}},
 CellLabel->
  "In[513]:=",ExpressionUUID->"1982f533-def3-43aa-afeb-f0669d13780c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B", "[", "u", "]"}], "\[Rule]", 
  RowBox[{
   TemplateBox[{"1"},
    "C"], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"u", " ", "\[Omega]0"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.825166164108625*^9, 3.8251661709938383`*^9}, 
   3.8251662136245527`*^9},
 CellLabel->
  "Out[514]=",ExpressionUUID->"c89f807d-366e-4f2b-861f-4369393a83d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"y", " ", "\[Equal]", " ", 
      FractionBox["\[ScriptY]", 
       RowBox[{"B", "[", "u", "]"}]]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"z", " ", "\[Equal]", " ", 
      FractionBox["\[ScriptZ]", 
       RowBox[{"B", "[", "u", "]"}]]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"v", " ", "\[Equal]", " ", 
      RowBox[{"\[ScriptV]", " ", "+", " ", 
       RowBox[{
        RowBox[{"L", "[", "u", "]"}], " ", 
        RowBox[{"(", " ", 
         RowBox[{
          SuperscriptBox["\[ScriptY]", "2"], "+", " ", 
          SuperscriptBox["\[ScriptZ]", "2"]}], ")"}]}]}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq7", "  ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], "  ", "//", " ", 
  "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8251662429599247`*^9, 3.825166302981627*^9}, {
  3.8251663788225594`*^9, 3.8251663883735733`*^9}},
 CellLabel->
  "In[528]:=",ExpressionUUID->"ffb6aef4-63b1-4c7b-bb53-ecde501419c0"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"y", "\[Rule]", 
       FractionBox["\[ScriptY]", 
        RowBox[{"B", "[", "u", "]"}]]}]},
     {
      RowBox[{"z", "\[Rule]", 
       FractionBox["\[ScriptZ]", 
        RowBox[{"B", "[", "u", "]"}]]}]},
     {
      RowBox[{"v", "\[Rule]", 
       RowBox[{"\[ScriptV]", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[ScriptY]", "2"], "+", 
           SuperscriptBox["\[ScriptZ]", "2"]}], ")"}], " ", 
         RowBox[{"L", "[", "u", "]"}]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.825166303327174*^9, {3.825166382164637*^9, 3.8251663887269373`*^9}},
 CellLabel->
  "Out[530]//TableForm=",ExpressionUUID->"fca8eb47-81c3-420e-a89b-\
b47803b9f3fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L", "[", "u", "]"}], " ", "\[Equal]", " ", 
    FractionBox[
     RowBox[{"-", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"B", "[", "u", "]"}], ",", "u"}], "]"}]}], 
     RowBox[{"B", "[", "u", "]"}]]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{"eq7a", " ", "/.", " ", 
   RowBox[{"Equal", " ", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "Input",
 CellChangeTimes->{{3.8251663292859497`*^9, 3.825166369310133*^9}},
 CellLabel->
  "In[522]:=",ExpressionUUID->"9827ee53-8a97-4333-939f-70b62cb2a61c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "u", "]"}], "\[Rule]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["B", "\[Prime]",
      MultilineFunction->None], "[", "u", "]"}], 
    RowBox[{"B", "[", "u", "]"}]]}]}]], "Output",
 CellChangeTimes->{{3.8251663522418947`*^9, 3.825166369632221*^9}},
 CellLabel->
  "Out[524]=",ExpressionUUID->"ba34e0f8-f00b-44d4-9d98-b73c56221d95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{"eq7", "  ", "/.", " ", 
     RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " ", "/.", " ", 
   
   RowBox[{"(", 
    RowBox[{"eq7a", " ", "/.", " ", 
     RowBox[{"Equal", " ", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "//",
   " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.825166395109747*^9, 3.825166407941497*^9}},
 CellLabel->
  "In[532]:=",ExpressionUUID->"49603238-658b-42a5-91a1-3842e8635276"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"y", "\[Rule]", 
       FractionBox["\[ScriptY]", 
        RowBox[{"B", "[", "u", "]"}]]}]},
     {
      RowBox[{"z", "\[Rule]", 
       FractionBox["\[ScriptZ]", 
        RowBox[{"B", "[", "u", "]"}]]}]},
     {
      RowBox[{"v", "\[Rule]", 
       RowBox[{"\[ScriptV]", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ScriptY]", "2"], "+", 
            SuperscriptBox["\[ScriptZ]", "2"]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["B", "\[Prime]",
            MultilineFunction->None], "[", "u", "]"}]}], 
         RowBox[{"B", "[", "u", "]"}]]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.82516640266527*^9, 3.8251664082998457`*^9}},
 CellLabel->
  "Out[532]//TableForm=",ExpressionUUID->"14129ad6-1043-4b08-a7cf-\
856181989df0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq28", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq28", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"v", " ", "\[Equal]", " ", 
      RowBox[{"t", "+", "x"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"u", " ", "\[Equal]", " ", 
      RowBox[{"t", "-", "x"}]}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{"y", " ", "\[Equal]", " ", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"z", " ", "\[Equal]", " ", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq28", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8251668603082047`*^9, 3.82516690598736*^9}},
 CellLabel->
  "In[559]:=",ExpressionUUID->"be12699a-0bcc-46e7-8744-867627b91386"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"v", "\[Equal]", 
       RowBox[{"t", "+", "x"}]}]},
     {
      RowBox[{"u", "\[Equal]", 
       RowBox[{"t", "-", "x"}]}]},
     {
      RowBox[{"y", "\[Equal]", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{"z", "\[Equal]", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"Cos", "[", "\[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",
 CellChangeTimes->{3.825166906258646*^9},
 CellLabel->
  "Out[561]//TableForm=",ExpressionUUID->"fa66b802-88a2-4596-9023-\
f41855e52aae"]
}, Open  ]]
},
WindowSize->{1279, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"4b5a0e9b-364c-49c6-a051-2d42deb9c5b3"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1946, 29, 221, "Title",ExpressionUUID->"bdf449b0-9dbb-4928-b20a-941bfb3e8938",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2529, 53, 1328, 22, 94, "Author",ExpressionUUID->"1c2d23d9-7692-441e-b990-8000473b9d67",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3894, 80, 228, 4, 69, "Section",ExpressionUUID->"078e858b-046c-4d11-bfb4-b083bc136fd2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4125, 86, 438, 10, 63, "Input",ExpressionUUID->"78752f09-d63c-4d40-897c-1c987cc27a9a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4566, 98, 1584, 25, 43, "Output",ExpressionUUID->"0df1e522-f0ee-40c5-8d91-412039ab2bc6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6187, 128, 545, 9, 55, "Section",ExpressionUUID->"a675980e-a33c-4b5b-91ae-9edf7ce2ab03",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6735, 139, 732, 12, 63, "Input",ExpressionUUID->"91075871-811a-402e-a74e-fbc745a9fa92",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7470, 153, 1404, 22, 43, "Output",ExpressionUUID->"d760842b-be1e-47f1-8fa2-eeaa869149a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8877, 177, 588, 11, 84, "Input",ExpressionUUID->"c0fb78a7-b5ec-4d0d-8dfd-56b62a25fb36",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[9468, 190, 1628, 27, 43, "Output",ExpressionUUID->"ec397ed6-82a2-4caa-a2b1-2de252e33852",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[11133, 222, 253, 4, 55, "Section",ExpressionUUID->"5a5704fe-7cfc-4097-a29e-6ffedfc84939",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11389, 228, 1671, 46, 189, "Input",ExpressionUUID->"10f6f327-ad4d-42da-aa88-688df5af7edf",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13063, 276, 1888, 31, 24, "Print",ExpressionUUID->"a7ff88e8-78fc-4d1c-adb4-054e778e65da",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14954, 309, 1907, 32, 24, "Print",ExpressionUUID->"01ebf71d-8d54-4d65-b61f-252b75a4a0d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[16864, 343, 2107, 33, 63, "Output",ExpressionUUID->"078257cf-67dc-4972-8420-e97a80c82af1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[18974, 378, 379, 7, 41, "Input",ExpressionUUID->"afc8a637-5ef2-4f1d-a0fa-a40c46a19fd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[19356, 387, 1286, 24, 63, "Output",ExpressionUUID->"00127bb3-6cf3-40a8-8961-30c02de3a6ab",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[20645, 413, 270, 4, 41, "Input",ExpressionUUID->"3ce975c3-2309-458e-a9db-a913ec303c3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20952, 422, 290, 5, 55, "Section",ExpressionUUID->"84969562-1ee4-441c-a54d-1f19e7b1dc71",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[21245, 429, 5173, 115, 798, "Input",ExpressionUUID->"f0b78896-2a11-42cc-887b-65b6786e8e5d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[26421, 546, 4130, 127, 627, "Output",ExpressionUUID->"266b9f5f-8a63-41e6-8f5b-e833144f9183",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[30554, 675, 897, 19, 63, "Input",ExpressionUUID->"f663b4cf-101f-48bf-8088-34bea8b42df3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[31488, 699, 362, 6, 55, "Section",ExpressionUUID->"89b03a24-fd65-493b-aaad-fce68a455ac8",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[31853, 707, 1659, 41, 126, "Input",ExpressionUUID->"915cdc56-f493-48fd-ac08-504eefd597d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[33515, 750, 1056, 26, 84, "Input",ExpressionUUID->"e7045443-a4a9-4958-8d50-839d774c9bf2",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[34608, 781, 276, 5, 55, "Section",ExpressionUUID->"bcbcd088-bda0-4ac2-bfb0-d18d986d563e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34887, 788, 784, 20, 86, "Input",ExpressionUUID->"fae2e536-09e8-4f1c-ab71-4d9468151337",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35674, 810, 597, 17, 44, "Output",ExpressionUUID->"d8c34ebb-577c-44fb-b662-e66f9883e30f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36274, 829, 686, 13, 105, "Input",ExpressionUUID->"e3a66c89-0341-40dd-8288-9cb309f7fa9a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36963, 844, 1109, 33, 123, "Output",ExpressionUUID->"200e6ace-0c7d-42c8-8af7-04b2d7a41143",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38075, 879, 636, 13, 105, "Input",ExpressionUUID->"86900d11-45ce-4838-b413-e8b7181db84f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38714, 894, 1140, 35, 123, "Output",ExpressionUUID->"9895b067-d461-498e-afc1-12ea30f12e39",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39857, 931, 411, 9, 41, "Input",ExpressionUUID->"2391488c-27d7-413d-a54f-818223e3608c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40271, 942, 773, 22, 101, "Output",ExpressionUUID->"3533bbae-7648-4140-a3a1-61ff4e5175c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41047, 966, 409, 9, 41, "Input",ExpressionUUID->"a3ed40f3-a2e9-4c44-b727-7e877db7822a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41459, 977, 773, 22, 101, "Output",ExpressionUUID->"34b1f9a9-f7ec-49ee-afba-2068a460cb14",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42235, 1001, 848, 20, 147, "Input",ExpressionUUID->"af48d0ed-a5c4-4ffd-b63b-0ed7d4a614ba",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43086, 1023, 821, 26, 67, "Output",ExpressionUUID->"aa9fcb5c-7069-4fb2-a2ea-b54aed1a9d7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[43910, 1051, 504, 12, 41, "Input",ExpressionUUID->"7e84103b-d002-43f7-adb9-35f20e4e3774",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[44417, 1065, 798, 25, 69, "Output",ExpressionUUID->"937a5f54-ea61-46ee-81ab-6fb1a2a29848",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45218, 1092, 1073, 24, 105, "Input",ExpressionUUID->"97ef27b3-a13a-4390-ba91-7f72d91ebbeb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46294, 1118, 1404, 41, 109, "Output",ExpressionUUID->"32592404-4899-42d8-82ad-8daf9a3bd862",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[47735, 1164, 230, 4, 55, "Section",ExpressionUUID->"56cdca4b-b791-449a-b374-ff2cb21eee17",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[47968, 1170, 5731, 130, 714, "Input",ExpressionUUID->"f36b6214-088d-4d80-bc20-810bde04fb71",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[53702, 1302, 1048, 21, 65, "Input",ExpressionUUID->"dce99151-1d8f-4133-8b21-08c8a809d876",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[54753, 1325, 282, 5, 41, "Output",ExpressionUUID->"20a65784-cb96-47ff-ad0f-cbb05598f393",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[55038, 1332, 262, 4, 41, "Input",ExpressionUUID->"7229c452-e57e-48bb-95a4-1503a71e7baa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[55303, 1338, 1093, 33, 45, "Output",ExpressionUUID->"4686f347-ccec-4305-aa79-23b4550e1d95",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[56399, 1373, 810, 18, 84, "Input",ExpressionUUID->"e124a29f-d581-4020-ab40-99a9dc6f3ad6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57212, 1393, 563, 11, 45, "Output",ExpressionUUID->"860b94f9-9bb5-4c6e-885c-524bad2a5875",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57778, 1406, 475, 7, 41, "Output",ExpressionUUID->"cad8a482-f059-475d-b00f-ae1934c8c919",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[58256, 1415, 1357, 37, 126, "Output",ExpressionUUID->"037f01d0-ab72-4afd-946c-bd3cb7a04aaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[59616, 1454, 815, 18, 84, "Input",ExpressionUUID->"02f556ed-2498-48eb-83e4-65a441a76caf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[60434, 1474, 679, 13, 45, "Output",ExpressionUUID->"06f7fb07-cb47-4e43-86cd-9e0ef1171be9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[61116, 1489, 579, 8, 41, "Output",ExpressionUUID->"06e1f124-4d68-456a-a1fc-dceba6ffa525",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[61698, 1499, 13691, 399, 424, "Output",ExpressionUUID->"d60125f8-8ba7-401e-a0df-82c3f21366ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[75392, 1900, 810, 18, 84, "Input",ExpressionUUID->"b152f3a6-b14b-47a1-9bab-c3b631981e1e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[76205, 1920, 552, 10, 45, "Output",ExpressionUUID->"08afdc26-5cbb-4b5e-a7bf-e05197292719",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[76760, 1932, 492, 7, 41, "Output",ExpressionUUID->"2e625e52-d24d-4a97-85af-08cd50d695db",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[77255, 1941, 19231, 507, 448, "Output",ExpressionUUID->"f1faa404-a13d-43f4-a408-03edbb7f42d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[96489, 2450, 810, 18, 84, "Input",ExpressionUUID->"c476448b-f3cf-4847-a26b-562a57f7d302",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[97302, 2470, 533, 10, 45, "Output",ExpressionUUID->"684c2809-980a-40f8-a13c-e8826905d800",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[97838, 2482, 489, 7, 41, "Output",ExpressionUUID->"9fb692fe-cb23-4a18-9ce5-5d61c59f25a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[98330, 2491, 2157, 58, 132, "Output",ExpressionUUID->"44952dc4-2c8c-44fa-b543-6fa633bb16d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[100490, 2551, 810, 18, 84, "Input",ExpressionUUID->"2ed28296-0b17-46ee-9350-be47a8482ab9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[101303, 2571, 498, 9, 41, "Output",ExpressionUUID->"c6ece5ab-17f0-4d28-be13-9e8f94b9cd5b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[101804, 2582, 495, 7, 41, "Output",ExpressionUUID->"fb7b7803-3979-4abe-96bb-a7947d380dee",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[102302, 2591, 582, 13, 48, "Output",ExpressionUUID->"c561f53c-0600-45d1-94f5-1a6515f7ab5c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[102887, 2606, 743, 17, 84, "Input",ExpressionUUID->"de0567ab-e9d0-4e99-9c5f-fa5486ceb63a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[103633, 2625, 327, 6, 41, "Output",ExpressionUUID->"3cce5726-6717-416b-8058-94b8d2e2d46a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[103963, 2633, 326, 4, 41, "Output",ExpressionUUID->"63ba1ba4-539a-494d-ada1-5b4a5a0790ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[104292, 2639, 409, 10, 48, "Output",ExpressionUUID->"717037db-de94-41f4-b6de-39919afa12b1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[104704, 2651, 792, 18, 84, "Input",ExpressionUUID->"46687d77-07a2-474f-b469-002656296492",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[105499, 2671, 468, 9, 45, "Output",ExpressionUUID->"4756084e-923b-4112-80fb-f6e07aaace07",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[105970, 2682, 427, 6, 41, "Output",ExpressionUUID->"02e4585c-d40a-4498-91c1-9b89fd923758",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[106400, 2690, 2090, 57, 132, "Output",ExpressionUUID->"5f598977-7985-4087-bc3c-ffe1e6ea5b58",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[108493, 2749, 857, 19, 84, "Input",ExpressionUUID->"d3319882-62f4-4491-9fc1-be8042af7b2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[109353, 2770, 554, 10, 45, "Output",ExpressionUUID->"80e4f063-16c9-43fc-858f-8cf0147f0ccf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[109910, 2782, 494, 7, 41, "Output",ExpressionUUID->"c941c8c2-237a-446d-a15b-ad77589e076e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[110407, 2791, 19274, 503, 450, "Output",ExpressionUUID->"dc0830aa-a329-4be2-9dbd-ba6f3696ba94",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[129684, 3296, 717, 17, 84, "Input",ExpressionUUID->"b4d29f67-ec38-4f34-a4a7-9ab3e044c7fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[130404, 3315, 306, 6, 45, "Output",ExpressionUUID->"777f9e62-fe41-4241-8af7-d0b51d298420",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[130713, 3323, 255, 3, 41, "Output",ExpressionUUID->"e71cd1ca-565b-42b6-b95d-f3e914cb5873",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[130971, 3328, 13347, 389, 370, "Output",ExpressionUUID->"885bb03e-18e2-4dd1-b2f9-549d5ed75330",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[144355, 3722, 253, 4, 55, "Section",ExpressionUUID->"cfd6e670-a774-4205-ada7-33902e983d16",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[144611, 3728, 595, 11, 84, "Input",ExpressionUUID->"0ca32f4b-9d1c-4a49-bb72-ae47176f2875",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[145209, 3741, 579, 11, 41, "Output",ExpressionUUID->"76fd6326-5575-4514-90af-586c8ed0ad01",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[145791, 3754, 906, 19, 100, "Input",ExpressionUUID->"79dbadc5-f069-41c7-84bd-59ed05b3a737",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[146700, 3775, 862, 19, 57, "Output",ExpressionUUID->"77af5f57-caab-4528-9ec0-a94c850a5e4d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[147565, 3796, 784, 17, 110, "Input",ExpressionUUID->"0d0ed3c1-51b2-41ad-a50a-75dcf4b96a0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[148352, 3815, 825, 19, 61, "Output",ExpressionUUID->"39f5cba8-aefb-4007-ab7d-7ffc4aad280a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[149180, 3836, 782, 17, 110, "Input",ExpressionUUID->"132f6c4a-f7d7-406f-9628-2bcfb005e701",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[149965, 3855, 875, 20, 61, "Output",ExpressionUUID->"7344bb12-7dc9-418c-ac96-155de80f3d54",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[150843, 3877, 2217, 59, 126, "Input",ExpressionUUID->"a3494091-330d-4e2f-8973-d7e18d315677",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[153063, 3938, 562, 12, 45, "Output",ExpressionUUID->"90cc393b-924e-477a-82df-1176121a8863",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[153628, 3952, 562, 12, 45, "Output",ExpressionUUID->"313fe947-3bbe-46b0-8058-6ec480cdf288",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[154193, 3966, 562, 12, 45, "Output",ExpressionUUID->"5352c9d8-7113-4758-a8bf-dbbefa6fb5bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[154758, 3980, 565, 12, 45, "Output",ExpressionUUID->"9948ccfd-4094-4a70-80a1-d7f3042b62d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[155326, 3994, 6766, 193, 504, "Input",ExpressionUUID->"1656c338-09cb-42f8-bd23-a42cd5527058",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[162095, 4189, 534, 9, 41, "Output",ExpressionUUID->"b97b6fd0-0102-4f9b-9e44-62f4c326b807",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[162632, 4200, 532, 9, 41, "Output",ExpressionUUID->"31be0b1d-be96-498a-be31-bfd5ffd2c403",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[163167, 4211, 532, 9, 41, "Output",ExpressionUUID->"e68d2a57-0dff-414f-a3dd-dc59c841d548",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[163702, 4222, 532, 9, 41, "Output",ExpressionUUID->"14a74fcd-9799-4f4d-ad23-3dca09f42843",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[164237, 4233, 532, 9, 41, "Output",ExpressionUUID->"31a9b93c-c818-4f42-af9b-579990696dd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[164772, 4244, 532, 9, 41, "Output",ExpressionUUID->"62119253-3286-432e-8237-26909e233c11",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[165307, 4255, 534, 9, 41, "Output",ExpressionUUID->"499e4344-f6d5-44c4-9a64-61e9d7bbc416",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[165844, 4266, 534, 9, 41, "Output",ExpressionUUID->"15a4f9ed-0e45-41f5-b069-4da021c5b744",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[166381, 4277, 1358, 37, 123, "Output",ExpressionUUID->"75831262-20df-40b4-973d-2915153e85cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[167742, 4316, 606, 13, 52, "Output",ExpressionUUID->"40c99907-7f98-4db5-8f02-cf47095082d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[168351, 4331, 1413, 39, 123, "Output",ExpressionUUID->"5580a4ee-1265-41ea-bf0d-57c4209c6f6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[169767, 4372, 606, 13, 52, "Output",ExpressionUUID->"b6f83fe2-4ed6-4c57-8809-365ca576d040",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[170410, 4390, 251, 4, 55, "Section",ExpressionUUID->"74a97bcf-37f9-4cf9-b686-6b55250bdc7e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[170664, 4396, 13706, 328, 551, "Input",ExpressionUUID->"5a96923e-8ddc-467b-b1ba-565daf27eb4a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[184373, 4726, 2361, 72, 278, "Output",ExpressionUUID->"4f7e281a-27c5-490c-adf5-5c07b529f4f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[186737, 4800, 9525, 251, 751, "Input",ExpressionUUID->"6773ad37-e50e-499f-99a0-1a530dd5e78f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[196265, 5053, 2621, 79, 234, "Output",ExpressionUUID->"d288e1cf-67bc-421e-b5fd-b6550c0f5a36",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[198889, 5134, 5651, 144, 336, "Input",ExpressionUUID->"6482a12e-e093-4f78-81ac-6fd643b2d0c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[204543, 5280, 2327, 67, 148, "Output",ExpressionUUID->"cf12874c-7bcc-44d8-ae3e-7c1bf4f82a99",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[206873, 5349, 865, 22, 84, "Input",ExpressionUUID->"efd12d2b-84fb-4ffe-854d-7e8903e51282",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[207741, 5373, 1531, 46, 86, "Output",ExpressionUUID->"3efca0e8-bfa0-4519-b624-c21bd67ee920",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[209309, 5424, 945, 24, 144, "Input",ExpressionUUID->"50905f47-c52e-4fa8-9143-cefd2bee8966"],
Cell[210257, 5450, 914, 29, 69, "Output",ExpressionUUID->"95952455-fddc-437a-a7b0-4bd4e2d3bfe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211208, 5484, 908, 27, 84, "Input",ExpressionUUID->"30ea6b80-aef6-4d83-a114-03a1b99ee632"],
Cell[212119, 5513, 771, 24, 76, "Output",ExpressionUUID->"23cb6ef2-df2c-4fa4-aa20-9d19223a89e4"],
Cell[212893, 5539, 773, 24, 74, "Output",ExpressionUUID->"11b92466-f9be-413c-b338-fdc0c561cfc0"],
Cell[213669, 5565, 854, 26, 74, "Output",ExpressionUUID->"54a28185-90f5-44fd-a905-fb187688564e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214560, 5596, 997, 27, 84, "Input",ExpressionUUID->"6316ffca-15af-4edd-9e9d-e80c63a97310"],
Cell[215560, 5625, 1425, 44, 88, "Output",ExpressionUUID->"cd1e2074-7fb4-4e76-8a5e-1036099a6920"],
Cell[216988, 5671, 1655, 51, 76, "Output",ExpressionUUID->"ccd88fc7-caa3-4bda-9dec-48d31bc8b763"],
Cell[218646, 5724, 1658, 51, 76, "Output",ExpressionUUID->"0c490929-bd5f-45f8-b1b4-8cdebdf32202"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220341, 5780, 660, 16, 84, "Input",ExpressionUUID->"3a38145c-fcd0-455b-8084-7cbd8345b1dc"],
Cell[221004, 5798, 442, 12, 41, "Output",ExpressionUUID->"c422c8ee-ee6d-4d33-a170-b8ad63effdac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221483, 5815, 684, 16, 84, "Input",ExpressionUUID->"086640ed-8bae-4bb2-94eb-c347d0113507"],
Cell[222170, 5833, 444, 14, 44, "Output",ExpressionUUID->"ccae1f5c-43ad-429d-b9a2-12b7dafa4ac3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222651, 5852, 453, 9, 85, "Input",ExpressionUUID->"4557d864-42f9-4352-80f4-f8e482b85f8e"],
Cell[223107, 5863, 295, 8, 42, "Output",ExpressionUUID->"f8d78918-ef99-4930-a9f7-0091c959825e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223439, 5876, 341, 7, 41, "Input",ExpressionUUID->"0aab35c9-7aeb-4c3c-9d8e-ddc71a17f6b4"],
Cell[223783, 5885, 346, 9, 60, "Output",ExpressionUUID->"fd2dda64-0a32-4212-a8a4-ffc0b620ba67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224166, 5899, 559, 12, 84, "Input",ExpressionUUID->"1982f533-def3-43aa-afeb-f0669d13780c"],
Cell[224728, 5913, 378, 11, 41, "Output",ExpressionUUID->"c89f807d-366e-4f2b-861f-4369393a83d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225143, 5929, 1253, 31, 220, "Input",ExpressionUUID->"ffb6aef4-63b1-4c7b-bb53-ecde501419c0"],
Cell[226399, 5962, 1139, 36, 107, "Output",ExpressionUUID->"fca8eb47-81c3-420e-a89b-b47803b9f3fa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227575, 6003, 702, 17, 127, "Input",ExpressionUUID->"9827ee53-8a97-4333-939f-70b62cb2a61c"],
Cell[228280, 6022, 400, 11, 60, "Output",ExpressionUUID->"ba34e0f8-f00b-44d4-9d98-b73c56221d95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228717, 6038, 492, 13, 41, "Input",ExpressionUUID->"49603238-658b-42a5-91a1-3842e8635276"],
Cell[229212, 6053, 1258, 39, 119, "Output",ExpressionUUID->"14129ad6-1043-4b08-a7cf-856181989df0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230507, 6097, 971, 21, 189, "Input",ExpressionUUID->"be12699a-0bcc-46e7-8744-867627b91386"],
Cell[231481, 6120, 961, 32, 103, "Output",ExpressionUUID->"fa66b802-88a2-4596-9023-f41855e52aae"]
}, Open  ]]
}
]
*)