All Conformally Flat Pure Radiation Metrics by Edgar & Ludwig.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[    241129,       6110]
NotebookOptionsPosition[    220675,       5814]
NotebookOutlinePosition[    221137,       5831]
CellTagsIndexPosition[    221094,       5828]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  All Conformally Flat Pure Radiation Metrics by Edgar & Ludwig\
\
\>", "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.824827515954028*^9, 3.824827525754244*^9}, {
   3.824830667862185*^9, 3.824830678509637*^9}, {3.824841083953156*^9, 
   3.8248410857998133`*^9}, {3.825573517591785*^9, 3.82557353496778*^9}, {
   3.825576642762699*^9, 3.825576657041335*^9}, {3.825672952660755*^9, 
   3.825672969492161*^9}, {3.8256747656259623`*^9, 3.825674783400794*^9}, {
   3.825677351860314*^9, 3.8256773655696507`*^9}, {3.825679728928378*^9, 
   3.825679769471776*^9}, {3.825755730699012*^9, 3.825755748362196*^9}, {
   3.825758159997025*^9, 3.825758174412196*^9}},
 TextAlignment->Center,ExpressionUUID->"9246e116-eb80-4550-b167-540cc09b854f"],

Cell["\<\
Geoff Cope
University of Utah
March 25, 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.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, 3.824031476024664*^9, 3.824031704319726*^9, {
   3.824644838300221*^9, 3.824644838780697*^9}, {3.8248077138189373`*^9, 
   3.824807713996264*^9}, {3.825573550488324*^9, 3.825573552656583*^9}, {
   3.825672995436754*^9, 3.825672995964284*^9}},
 TextAlignment->Center,ExpressionUUID->"9345c94d-dbb4-4b01-9980-615b75f656c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944675605734*^9, 3.8209446931410646`*^9}, 
   3.825677397834787*^9},ExpressionUUID->"64526a0e-7ab9-4ce7-a996-\
a9b89175ba24"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}, 
   3.825677397834937*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"e2ffe19c-023a-4c41-a35c-8cebdbcbaf5e"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9, 
   3.824644896879627*^9, 3.824646374047151*^9, 3.824647481799861*^9, 
   3.824807973110347*^9, 3.8248083404553423`*^9, 3.824809928548235*^9, 
   3.824815880975711*^9, 3.824827727169653*^9, 3.824828710755515*^9, 
   3.824830829998102*^9, 3.82484124110428*^9, 3.8255736415445013`*^9, 
   3.825574559783659*^9, 3.825576742634934*^9, 3.8256730156383133`*^9, 
   3.825674811339471*^9, 3.825677397835051*^9, 3.825679800780911*^9, 
   3.825681433904896*^9, 3.825681844529758*^9, 3.825755125602498*^9, 
   3.8257582011576643`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"4a9f98cb-89bd-4f2d-b9c9-4c2d4d631c25"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 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.824848087882504*^9, {
   3.825573628016843*^9, 3.8255736317446117`*^9}, 3.825677397835121*^9, 
   3.8256809899167547`*^9, 
   3.826210751089813*^9},ExpressionUUID->"d16284cf-5ed5-47e1-9d33-\
8eb669b750df"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<All Conformally Flat Pure Radiation Metrics by Edgar & Ludwig\>\"", 
   ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/9612059\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.824842475274252*^9, 3.8248425362330837`*^9}, {
   3.8248480830757236`*^9, 3.824848085262281*^9}, {3.825573613001954*^9, 
   3.825573624800455*^9}, 3.82567739783521*^9, 3.8256809899169416`*^9, {
   3.8262107318348913`*^9, 3.826210745074041*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"c42ab1c2-0e72-468e-bdaf-51e69e120991"],

Cell[BoxData[
 TemplateBox[{
  "\"All Conformally Flat Pure Radiation Metrics by Edgar & Ludwig\"", 
   "https://arxiv.org/abs/gr-qc/9612059"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.824842499804991*^9, 3.8248425362333384`*^9, 
  3.825573641640646*^9, 3.825574559863014*^9, 3.825576742679563*^9, 
  3.825673015788171*^9, 3.8256748113812037`*^9, 3.825677397835306*^9, 
  3.825679800825001*^9, 3.8256809899170713`*^9, 3.825681434081848*^9, 
  3.8256818446658278`*^9, 3.8257551257286167`*^9, 3.825758201337718*^9, 
  3.826210747228838*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"24e52d97-ab1a-431b-aa0c-b2499ae555e8"],

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", 10003.},
 CellChangeTimes->{{3.821971700891346*^9, 3.821971727288177*^9}, 
   3.8220418523671618`*^9, {3.8220419016581783`*^9, 3.822041910552957*^9}, 
   3.825677397835395*^9, 3.825680989917201*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"138d0e05-3fe0-4619-9546-c074e48d6383"],

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", 10003.},
 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.824827727257903*^9, 3.824828710811818*^9, 3.824830830173237*^9, 
   3.8248412412806*^9, 3.825573641656117*^9, 3.825574559875574*^9, 
   3.825576742692514*^9, 3.825673015807644*^9, 3.8256748113946447`*^9, 
   3.8256773978355007`*^9, 3.8256798008372173`*^9, 3.825680989917286*^9, 
   3.8256814341142187`*^9, 3.8256818447102127`*^9, 3.825755125758669*^9, 
   3.82575820201324*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"b0e0377f-3290-49bf-aee9-141786acab38"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.8256773978355703`*^9, 
   3.8256809785040913`*^9},ExpressionUUID->"ec1e9e0a-cfde-47c9-a017-\
3b92d891f15f"],

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", 10004.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.8256773978356457`*^9, 3.8256809785043507`*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"bb914118-57b8-4da8-9e30-9073f77177b0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 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.824827727368676*^9, 3.824828710955081*^9, 3.824830830229065*^9, 
   3.8248412413749123`*^9, 3.825573641768771*^9, 3.825574393172029*^9, 
   3.825574560022464*^9, 3.825576742891205*^9, 3.825673015867971*^9, 
   3.825674811559144*^9, 3.825677397835721*^9, 3.8256798010156813`*^9, 
   3.825680978504458*^9, 3.825681434192945*^9, 3.825681844806858*^9, 
   3.825755125856142*^9, 3.8257582020909767`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"c478bb30-5c88-4fa2-b979-3cbf3f287b04"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"7 Kb\"\>"}],
  SequenceForm["  (CleanSlate) Approximate kernel memory recovered: ", "7 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 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.824827727368676*^9, 3.824828710955081*^9, 3.824830830229065*^9, 
   3.8248412413749123`*^9, 3.825573641768771*^9, 3.825574393172029*^9, 
   3.825574560022464*^9, 3.825576742891205*^9, 3.825673015867971*^9, 
   3.825674811559144*^9, 3.825677397835721*^9, 3.8256798010156813`*^9, 
   3.825680978504458*^9, 3.825681434192945*^9, 3.825681844806858*^9, 
   3.825755125856142*^9, 3.825758202094288*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"293ad4e9-93b4-42d0-aa1e-4c039551c5ec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 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.824827727372099*^9, 3.824828710960136*^9, 3.824830830232498*^9, 
   3.82484124137858*^9, 3.8255736417723923`*^9, 3.8255743931767797`*^9, 
   3.825574560026455*^9, 3.825576742894916*^9, 3.82567301587252*^9, 
   3.825674811563096*^9, 3.8256773978358727`*^9, 3.825679801020265*^9, 
   3.825680978504766*^9, 3.825681434198629*^9, 3.825681844812407*^9, 
   3.825755125863666*^9, 3.825758202095778*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"1e9ec50b-4534-4f9b-9763-c6a2619b3029"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825677397835945*^9, 
  3.8256809785049553`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"cd4eccf8-7489-4f9f-9437-35aff8a0b517"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 3.824807751287888*^9, 3.8248156967874126`*^9, 
   3.825677397836007*^9, 
   3.8256809671341763`*^9},ExpressionUUID->"628578c3-f3cc-40b8-a0ff-\
42a9f8a347da"],

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", "[", "\[Sigma]", "]"}], "\[Rule]", " ", "d\[Sigma]"}], 
     " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Psi]", "]"}], "\[Rule]", " ", "d\[Psi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Lambda]", "]"}], "\[Rule]", " ", "d\[Lambda]"}], 
     " ", ",", " ", "\[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", "[", "R", "]"}], "\[Rule]", " ", "dR"}], " ", ",", " ", 
     "\[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", 10003.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, {3.824032529537923*^9, 
   3.8240325755969877`*^9}, 3.824807751288042*^9, {3.824809025073007*^9, 
   3.824809029711959*^9}, {3.824809216502654*^9, 3.8248092321019506`*^9}, {
   3.8248092640072527`*^9, 3.824809268046013*^9}, 3.824815696787575*^9, {
   3.824828005781843*^9, 3.824828009603393*^9}, {3.825576912329596*^9, 
   3.825576917336143*^9}, 3.825677397836081*^9, 3.825680967134657*^9, {
   3.825756552076207*^9, 3.825756556082918*^9}, {3.825756599076743*^9, 
   3.825756604147331*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"c7728e43-2bfc-4453-8ba6-01e67558d893"],

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", "[", "\[Sigma]", "]"}], "\[Rule]", "d\[Sigma]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Psi]", "]"}], "\[Rule]", "d\[Psi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Lambda]", "]"}], "\[Rule]", "d\[Lambda]"}]},
     {
      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", "[", "R", "]"}], "\[Rule]", "dR"}]},
     {
      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", 10003.},
 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.824827727436406*^9, 
  3.824828009972035*^9, 3.8248287109950323`*^9, 3.824830830296404*^9, 
  3.8248412414455757`*^9, 3.825573641831684*^9, 3.825574396350459*^9, 
  3.825574560058366*^9, 3.825576742923655*^9, 3.825576917777467*^9, 
  3.825673015997181*^9, 3.825674811592699*^9, 3.8256773978361597`*^9, 
  3.825679801051463*^9, 3.825680967134795*^9, 3.825681434263177*^9, 
  3.8256818448741217`*^9, 3.8257551259261227`*^9, 3.825756556727768*^9, 
  3.825756604839719*^9, 3.8257582021671543`*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"8e0f055f-19b2-4928-b0b4-3d464a004891"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", "/:", 
    RowBox[{"Dt", "[", "b", "]"}], "=", "0"}], "  ", ";"}], "  "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 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.824827901084373*^9, 
   3.824827909499028*^9}, {3.8248413499213877`*^9, 3.824841360168249*^9}, {
   3.8248417593019543`*^9, 3.824841768196869*^9}, {3.825574195472499*^9, 
   3.82557420335996*^9}, {3.82567340185495*^9, 3.825673443735632*^9}, 
   3.8256773978362427`*^9, 3.82568096713498*^9, {3.8257565619783382`*^9, 
   3.825756571441607*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"6a04386c-bf0b-412c-8474-a56b22fc2948"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 3.822763734568725*^9, 3.8256773978363037`*^9, 
   3.8256809555850563`*^9},ExpressionUUID->"8938e3e1-27fc-46a6-8a70-\
5f590d16cf0e"],

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", 10004.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9, 
  3.825677397836381*^9, 3.825680955585278*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"5360a2f1-ebde-45cc-ac6e-b657e7f61583"],

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", 10004.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9, 3.825677397836454*^9, 
   3.8256809555857983`*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"131355ae-12ef-41a9-a548-6cc7c29b4e79"]
}, Closed]],

Cell[CellGroupData[{

Cell["Metrics 1-4", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825763477387019*^9, 
  3.825763495530765*^9}},ExpressionUUID->"1db502ba-ca90-4ee4-b862-\
0149d6185329"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], 
         RowBox[{"f", "[", "u", "]"}], " ", 
         RowBox[{"x", "(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}]}], " ", "+", 
        FractionBox[
         SuperscriptBox["v", "2"], 
         SuperscriptBox["x", "2"]]}], 
       RowBox[{"-", "1"}], 
       FractionBox[
        RowBox[{"2", "v"}], "x"], "0"},
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {
       FractionBox[
        RowBox[{"2", "v"}], "x"], "0", "1", "0"},
      {"0", "0", "0", "1"}
     }], "\[NoBreak]", ")"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758232877902*^9, 3.825758324524832*^9}, 
   3.8257634887975273`*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"32e6837f-77f1-43c3-a46c-e85fa5532e88"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox[
        SuperscriptBox["v", "2"], 
        SuperscriptBox["x", "2"]], "-", 
       RowBox[{"2", " ", "x", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], ")"}], " ", 
        RowBox[{"f", "[", "u", "]"}]}]}], 
      RowBox[{"-", "1"}], 
      FractionBox[
       RowBox[{"2", " ", "v"}], "x"], "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {
      FractionBox[
       RowBox[{"2", " ", "v"}], "x"], "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", 10005.},
 CellChangeTimes->{{3.825758311033202*^9, 3.825758324903966*^9}, 
   3.825758383822197*^9, 3.825763488797852*^9},
 CellLabel->
  "Out[29]//MatrixForm=",ExpressionUUID->"8b84c578-9caf-4833-a82d-\
a28b20992d23"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"w", " ", "\[Equal]", " ", 
   FractionBox["v", "x"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758336749215*^9, 3.825758342572617*^9}, {
   3.82575837819138*^9, 3.825758379767662*^9}, 3.82576348879797*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"361d02d5-cac6-461b-955a-033761daf519"],

Cell[BoxData[
 RowBox[{"w", "\[Equal]", 
  FractionBox["v", "x"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8257583451003304`*^9, 3.825758382476603*^9, 
  3.825763488798188*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"c1009e0b-a1dc-4c1f-8225-ccd984b7d9f3"],

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Solve", "[", " ", 
   RowBox[{"eq1a", " ", ",", " ", "v"}], "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758348406514*^9, 3.825758381270257*^9}, 
   3.8257634887983*^9},ExpressionUUID->"548a06f6-1bdd-40b6-ab64-608765b42b34"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"v", "\[Rule]", 
   RowBox[{"w", " ", "x"}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8257583526115513`*^9, 3.8257583586712513`*^9}, 
   3.825763488798538*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"6017ffda-0429-468c-a8df-5aa006d3a168"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"eq1", " ", "/.", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq1a", " ", ",", " ", "v"}], "]"}], "]"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758361493718*^9, 3.825758404413577*^9}, 
   3.8257634887986917`*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"34cb3eac-2c31-4c86-bf21-bfbbabdd3957"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["w", "2"], "-", 
       RowBox[{"2", " ", "x", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], ")"}], " ", 
        RowBox[{"f", "[", "u", "]"}]}]}], 
      RowBox[{"-", "1"}], 
      RowBox[{"2", " ", "w"}], "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {
      RowBox[{"2", " ", "w"}], "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", 10005.},
 CellChangeTimes->{{3.825758370323894*^9, 3.8257584048951273`*^9}, 
   3.825763488798972*^9},
 CellLabel->
  "Out[34]//MatrixForm=",ExpressionUUID->"fe457b4c-7418-4a55-ae56-\
2662d6a1a24d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], 
         RowBox[{"f", "[", "u", "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", " ", "x"}], "+", "b"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}]}], " ", "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["w", "2"]}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "a"}], " ", "x"}], "-", "b"}], 
       RowBox[{"a", " ", "w"}], "0"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "a"}], " ", "x"}], "-", "b"}], "0", "0", "0"},
      {
       RowBox[{"a", " ", "w"}], "0", "1", "0"},
      {"0", "0", "0", "1"}
     }], "\[NoBreak]", ")"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758442126902*^9, 3.825758508805632*^9}, 
   3.8257634887991467`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"003530ff-bc24-45d5-a58b-f0eb093e3205"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["w", "2"]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"a", " ", "x"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], ")"}], " ", 
        RowBox[{"f", "[", "u", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       RowBox[{"a", " ", "x"}]}], 
      RowBox[{"a", " ", "w"}], "0"},
     {
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       RowBox[{"a", " ", "x"}]}], "0", "0", "0"},
     {
      RowBox[{"a", " ", "w"}], "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", 10005.},
 CellChangeTimes->{3.82575851451919*^9, 3.825763488799343*^9},
 CellLabel->
  "Out[37]//MatrixForm=",ExpressionUUID->"532e2ddd-e64a-4d6c-9edf-\
6c00e7ce0efe"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"A", "[", 
        RowBox[{"u", ",", "w", ",", "x", ",", "y"}], "]"}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"a", "[", "u", "]"}]}], " ", "x"}], "-", 
        RowBox[{"b", "[", "u", "]"}]}], 
       RowBox[{
        RowBox[{"a", "[", "u", "]"}], " ", "w"}], "0"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"a", "[", "u", "]"}]}], " ", "x"}], "-", 
        RowBox[{"b", "[", "u", "]"}]}], "0", "0", "0"},
      {
       RowBox[{
        RowBox[{"a", "[", "u", "]"}], " ", "w"}], "0", "1", "0"},
      {"0", "0", "0", "1"}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758551718717*^9, 3.825758624925061*^9}, {
   3.825758718527813*^9, 3.825758726205784*^9}, {3.82575892510507*^9, 
   3.8257589340791197`*^9}, 3.825763488799491*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"63ca30d0-9835-4e32-9ec1-cda59b1a008b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"A", "[", 
       RowBox[{"u", ",", "w", ",", "x", ",", "y"}], "]"}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "x"}], " ", 
        RowBox[{"a", "[", "u", "]"}]}], "-", 
       RowBox[{"b", "[", "u", "]"}]}], 
      RowBox[{"w", " ", 
       RowBox[{"a", "[", "u", "]"}]}], "0"},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "x"}], " ", 
        RowBox[{"a", "[", "u", "]"}]}], "-", 
       RowBox[{"b", "[", "u", "]"}]}], "0", "0", "0"},
     {
      RowBox[{"w", " ", 
       RowBox[{"a", "[", "u", "]"}]}], "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", 10005.},
 CellChangeTimes->{3.825758625693028*^9, 3.82575872697773*^9, 
  3.825758935964149*^9, 3.825763488799695*^9},
 CellLabel->
  "Out[85]//MatrixForm=",ExpressionUUID->"e082b93c-6926-43a1-91a6-\
58c27f05eef0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A", "[", 
     RowBox[{"u", ",", "w", ",", "x", ",", "y"}], "]"}], " ", "\[Equal]", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", " ", "2"}], " ", 
      RowBox[{"f", "[", "u", "]"}], " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "[", "u", "]"}], "x"}], "+", 
        RowBox[{"b", "[", "u", "]"}]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "2"], "+", " ", 
        SuperscriptBox["y", "2"], "+", " ", 
        RowBox[{
         RowBox[{"k", "[", "u", "]"}], " ", "x"}], " ", "+", " ", 
        RowBox[{
         RowBox[{"g", "[", "u", "]"}], "y"}], "+", 
        RowBox[{
         RowBox[{"l", "[", "u", "]"}], "2"}], "+", 
        RowBox[{"h", "[", "u", "]"}]}], ")"}]}], " ", "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"a", "[", "u", "]"}], "2"], " ", 
      SuperscriptBox["w", "2"]}]}]}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "/.", " ", 
  RowBox[{"Equal", "\[Rule]", " ", "Rule", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8257588298002987`*^9, 3.8257589021255093`*^9}, 
   3.825763488799778*^9},
 CellLabel->"In[80]:=",ExpressionUUID->"0377073f-4257-48cd-a4e7-3959d6824fe0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"u", ",", "w", ",", "x", ",", "y"}], "]"}], "\[Rule]", 
  RowBox[{
   RowBox[{
    SuperscriptBox["w", "2"], " ", 
    SuperscriptBox[
     RowBox[{"a", "[", "u", "]"}], "2"]}], "-", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", " ", 
       RowBox[{"a", "[", "u", "]"}]}], "+", 
      RowBox[{"b", "[", "u", "]"}]}], ")"}], " ", 
    RowBox[{"f", "[", "u", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      SuperscriptBox["y", "2"], "+", 
      RowBox[{"y", " ", 
       RowBox[{"g", "[", "u", "]"}]}], "+", 
      RowBox[{"h", "[", "u", "]"}], "+", 
      RowBox[{"x", " ", 
       RowBox[{"k", "[", "u", "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"l", "[", "u", "]"}]}]}], ")"}]}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758888335647*^9, 3.825758902527419*^9}, 
   3.8257634887998743`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"31752405-96b9-41cd-88b3-2bd7ee00a4b2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"eq4", " ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{"eq5", " ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric4", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825758941144087*^9, 3.8257589709505463`*^9}, 
   3.825763488800002*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"1c5b1bea-53cc-48d4-be13-09c969c4197c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["w", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "u", "]"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", " ", 
           RowBox[{"a", "[", "u", "]"}]}], "+", 
          RowBox[{"b", "[", "u", "]"}]}], ")"}], " ", 
        RowBox[{"f", "[", "u", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"], "+", 
          RowBox[{"y", " ", 
           RowBox[{"g", "[", "u", "]"}]}], "+", 
          RowBox[{"h", "[", "u", "]"}], "+", 
          RowBox[{"x", " ", 
           RowBox[{"k", "[", "u", "]"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"l", "[", "u", "]"}]}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "x"}], " ", 
        RowBox[{"a", "[", "u", "]"}]}], "-", 
       RowBox[{"b", "[", "u", "]"}]}], 
      RowBox[{"w", " ", 
       RowBox[{"a", "[", "u", "]"}]}], "0"},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "x"}], " ", 
        RowBox[{"a", "[", "u", "]"}]}], "-", 
       RowBox[{"b", "[", "u", "]"}]}], "0", "0", "0"},
     {
      RowBox[{"w", " ", 
       RowBox[{"a", "[", "u", "]"}]}], "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", 10005.},
 CellChangeTimes->{{3.825758954714211*^9, 3.8257589712551317`*^9}, 
   3.825763488800198*^9},
 CellLabel->
  "Out[89]//MatrixForm=",ExpressionUUID->"9c44e473-48b5-4e58-971d-\
df166268c730"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Tensors Calculated For Metric 4 Showing Both Weyl and Cotton Tensors Are Zero\
\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8257587733023157`*^9, 3.825758811501587*^9}, {
  3.825759026670808*^9, 
  3.825759036734109*^9}},ExpressionUUID->"d70a53ba-cb32-475e-bc41-\
b13531d903cc"],

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.825758649968156*^9, 
   3.8257586567858047`*^9}, 3.825758785418098*^9},
 CellLabel->"In[90]:=",ExpressionUUID->"634967ae-0aed-4889-bda7-5c035bf63174"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "11.17", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric4\>\"", ",", " ", "metric4", ",", " ", "\"\<Wils\>\"", ",", 
     "\"\<\!\(\*SuperscriptBox[\(g\), \(wills\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "w", ",", "x", ",", "y"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8257586692151833`*^9, 
   3.82575870918181*^9}, 3.825758785418281*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"e15d77a3-a2b9-4dcc-a892-cf07a18ee6be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.195309`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825758710026906*^9, 3.82575873736353*^9}, 
   3.825758785418387*^9, 3.825758978995055*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"149b4dfa-6d55-4301-b2d5-2e6b64629d79"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8257587422953033`*^9, 3.825758742983827*^9}, 
   3.825758785418477*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"31ba087b-7643-4a6c-a125-02323ade62b5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "wills"], "\[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.8257587434618893`*^9, 3.825758785418651*^9, 
  3.825758979051108*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"05a2cdbf-f243-419d-a2dc-74621d00d9b3"],

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.825758785418769*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"469930aa-0b7a-41c2-ad54-ea5706b8ef0d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "wills"], "\[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.825758758759852*^9, 3.8257587854188643`*^9}, 
   3.825758979063281*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"f3105aca-f34a-4675-b9f9-fe14457e9133"],

Cell[BoxData["\<\"Wils\"\>"], "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.825758758759852*^9, 3.8257587854188643`*^9}, 
   3.825758979065405*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"44bd23e3-5484-474f-9e6f-4f4e25a42836"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["w", "2"], " ", 
         SuperscriptBox[
          RowBox[{"a", "(", "u", ")"}], "2"]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"f", "(", "u", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", " ", 
            RowBox[{"a", "(", "u", ")"}]}], "+", 
           RowBox[{"b", "(", "u", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"y", " ", 
            RowBox[{"g", "(", "u", ")"}]}], "+", 
           RowBox[{"h", "(", "u", ")"}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"k", "(", "u", ")"}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"l", "(", "u", ")"}]}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}]}]}], 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"x", " ", 
          RowBox[{"a", "(", "u", ")"}]}]}], "-", 
        RowBox[{"b", "(", "u", ")"}]}], 
       RowBox[{"w", " ", 
        RowBox[{"a", "(", "u", ")"}]}], "0"},
      {
       RowBox[{
        RowBox[{"-", 
         RowBox[{"x", " ", 
          RowBox[{"a", "(", "u", ")"}]}]}], "-", 
        RowBox[{"b", "(", "u", ")"}]}], "0", "0", "0"},
      {
       RowBox[{"w", " ", 
        RowBox[{"a", "(", "u", ")"}]}], "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$]]], 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.825758758759852*^9, 3.8257587854188643`*^9}, 
   3.8257589790989037`*^9},
 CellLabel->
  "Out[96]//TraditionalForm=",ExpressionUUID->"2673395a-f324-44fc-a9f8-\
8475eb41a9ce"],

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.825758785419145*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"757de3a7-29f4-4f8f-8cf5-c6da930ac26f"],

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.825758758841751*^9, 3.825758785419229*^9}, 
   3.825758979111764*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"03a625c0-cfda-495a-97e2-6a89ab386750"],

Cell[BoxData["\<\"ChristoffelSymbolWils\"\>"], "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.825758758841751*^9, 3.825758785419229*^9}, 
   3.825758979116065*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"f86ceff0-1489-4819-9ed5-1735f17ed338"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"w", " ", 
               SuperscriptBox[
                RowBox[{"a", "(", "u", ")"}], "2"]}], "+", 
              RowBox[{"x", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"a", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"b", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}]]},
           {"0"},
           {
            FractionBox[
             RowBox[{"a", "(", "u", ")"}], 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              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[
             RowBox[{"a", "(", "u", ")"}], 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              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[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"a", "(", "u", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"w", " ", 
                  RowBox[{"b", "(", "u", ")"}], " ", 
                  RowBox[{"f", "(", "u", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"k", "(", "u", ")"}], "+", 
                    RowBox[{"2", " ", "x"}]}], ")"}]}], "+", 
                 RowBox[{"x", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"f", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"y", " ", 
                    RowBox[{"g", "(", "u", ")"}]}], "+", 
                    RowBox[{"h", "(", "u", ")"}], "+", 
                    RowBox[{"x", " ", 
                    RowBox[{"k", "(", "u", ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"l", "(", "u", ")"}]}], "+", 
                    SuperscriptBox["x", "2"], "+", 
                    SuperscriptBox["y", "2"]}], ")"}]}], "+", 
                 RowBox[{"x", " ", 
                  RowBox[{"f", "(", "u", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"y", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"g", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"h", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], "+", 
                    RowBox[{"x", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"k", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"l", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "-", 
              RowBox[{
               RowBox[{"f", "(", "u", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"x", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"a", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"y", " ", 
                    RowBox[{"g", "(", "u", ")"}]}], "+", 
                    RowBox[{"h", "(", "u", ")"}], "+", 
                    RowBox[{"x", " ", 
                    RowBox[{"k", "(", "u", ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"l", "(", "u", ")"}]}], "+", 
                    SuperscriptBox["x", "2"], "+", 
                    SuperscriptBox["y", "2"]}], ")"}]}], "+", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"b", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"y", " ", 
                    RowBox[{"g", "(", "u", ")"}]}], "+", 
                    RowBox[{"h", "(", "u", ")"}], "+", 
                    RowBox[{"x", " ", 
                    RowBox[{"k", "(", "u", ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"l", "(", "u", ")"}]}], "+", 
                    SuperscriptBox["x", "2"], "+", 
                    SuperscriptBox["y", "2"]}], ")"}]}], "-", 
                 RowBox[{
                  RowBox[{"b", "(", "u", ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"y", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"g", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"h", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], "+", 
                    RowBox[{"x", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"k", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"l", "(", "u", ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{"w", " ", 
               SuperscriptBox[
                RowBox[{"a", "(", "u", ")"}], "2"], " ", 
               RowBox[{"f", "(", "u", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"y", " ", 
                   RowBox[{"g", "(", "u", ")"}]}]}], "-", 
                 RowBox[{"h", "(", "u", ")"}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"l", "(", "u", ")"}]}], "+", 
                 SuperscriptBox["x", "2"], "-", 
                 SuperscriptBox["y", "2"]}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"b", "(", "u", ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"f", "(", "u", ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"y", " ", 
                  RowBox[{"g", "(", "u", ")"}]}], "+", 
                 RowBox[{"h", "(", "u", ")"}], "+", 
                 RowBox[{"x", " ", 
                  RowBox[{"k", "(", "u", ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"l", "(", "u", ")"}]}], "+", 
                 SuperscriptBox["x", "2"], "+", 
                 SuperscriptBox["y", "2"]}], ")"}]}]}], 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}]]},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"a", "(", "u", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"y", " ", 
                    RowBox[{"g", "(", "u", ")"}]}]}], "-", 
                   RowBox[{"h", "(", "u", ")"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"l", "(", "u", ")"}]}], "+", 
                   SuperscriptBox["x", "2"], "-", 
                   SuperscriptBox["y", "2"]}], ")"}]}], "+", 
                RowBox[{
                 RowBox[{"b", "(", "u", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k", "(", "u", ")"}], "+", 
                   RowBox[{"2", " ", "x"}]}], ")"}]}]}], ")"}]}], 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}]]},
           {
            RowBox[{
             RowBox[{"f", "(", "u", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"g", "(", "u", ")"}], "+", 
               RowBox[{"2", " ", "y"}]}], ")"}]}]}
          },
          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[{
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"a", "(", "u", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"y", " ", 
                    RowBox[{"g", "(", "u", ")"}]}]}], "-", 
                   RowBox[{"h", "(", "u", ")"}], "-", 
                   RowBox[{"2", " ", 
                    RowBox[{"l", "(", "u", ")"}]}], "+", 
                   SuperscriptBox["x", "2"], "-", 
                   SuperscriptBox["y", "2"]}], ")"}]}], "+", 
                RowBox[{
                 RowBox[{"b", "(", "u", ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k", "(", "u", ")"}], "+", 
                   RowBox[{"2", " ", "x"}]}], ")"}]}]}], ")"}]}], 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              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[{
           {
            RowBox[{
             RowBox[{"f", "(", "u", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"g", "(", "u", ")"}], "+", 
               RowBox[{"2", " ", "y"}]}], ")"}]}]},
           {"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[{
             RowBox[{
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"k", "(", "u", ")"}], "+", 
                RowBox[{"2", " ", "x"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x", " ", 
                 RowBox[{"a", "(", "u", ")"}]}], "+", 
                RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "-", 
             FractionBox[
              RowBox[{"w", " ", 
               RowBox[{"a", "(", "u", ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"w", " ", 
                  SuperscriptBox[
                   RowBox[{"a", "(", "u", ")"}], "2"]}], "+", 
                 RowBox[{"x", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"a", "(", "u", ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], "+", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"b", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], ")"}]}], 
              RowBox[{
               RowBox[{"x", " ", 
                RowBox[{"a", "(", "u", ")"}]}], "+", 
               RowBox[{"b", "(", "u", ")"}]}]], "+", 
             RowBox[{
              RowBox[{"a", "(", "u", ")"}], " ", 
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"y", " ", 
                 RowBox[{"g", "(", "u", ")"}]}], "+", 
                RowBox[{"h", "(", "u", ")"}], "+", 
                RowBox[{"x", " ", 
                 RowBox[{"k", "(", "u", ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"l", "(", "u", ")"}]}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"]}], ")"}]}], "+", 
             RowBox[{"w", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"a", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}]}]},
           {
            RowBox[{"a", "(", "u", ")"}]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"w", " ", 
               SuperscriptBox[
                RowBox[{"a", "(", "u", ")"}], "2"]}], 
              RowBox[{
               RowBox[{"x", " ", 
                RowBox[{"a", "(", "u", ")"}]}], "+", 
               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[{
           {
            RowBox[{"a", "(", "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[{
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"w", " ", 
               SuperscriptBox[
                RowBox[{"a", "(", "u", ")"}], "2"]}], 
              RowBox[{
               RowBox[{"x", " ", 
                RowBox[{"a", "(", "u", ")"}]}], "+", 
               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[{
             RowBox[{"f", "(", "u", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"g", "(", "u", ")"}], "+", 
               RowBox[{"2", " ", "y"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x", " ", 
                RowBox[{"a", "(", "u", ")"}]}], "+", 
               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[{
           {"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.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.825758758841751*^9, 3.825758785419229*^9}, 
   3.82575897926423*^9},
 CellLabel->
  "Out[99]//TraditionalForm=",ExpressionUUID->"435933f5-b7d0-4a79-9839-\
cd230fee5006"],

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.825758785419485*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"34b6d982-72af-4465-afe8-f3198e50dc1e"],

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.825758758971567*^9, 3.8257587854195757`*^9}, 
   3.82575897927872*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"f2399780-ea38-4425-87cc-bb0853c78271"],

Cell[BoxData["\<\"RiemannTensorWils\"\>"], "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.825758758971567*^9, 3.8257587854195757`*^9}, 
   3.825758979285748*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"99473778-57ee-45fe-8140-81312fdd1747"],

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[{"2", " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"2", " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "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[{"-", "2"}], " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"2", " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "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", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"2", " ", 
            RowBox[{"f", "(", "u", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", " ", 
               RowBox[{"a", "(", "u", ")"}]}], "+", 
              RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "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.825758758971567*^9, 3.8257587854195757`*^9}, 
   3.8257589793481293`*^9},
 CellLabel->
  "Out[102]//TraditionalForm=",ExpressionUUID->"78476291-e29b-454b-80a6-\
4d0c7d77236a"],

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.8257587854199553`*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"61d74f32-1c98-4147-82b2-1c1b5357d2bf"],

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.825758759391191*^9, 3.825758785420054*^9}, 
   3.825758979363022*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"6eb98388-98a6-433d-8d5e-d01420628433"],

Cell[BoxData["\<\"RicciTensorWils\"\>"], "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.825758759391191*^9, 3.825758785420054*^9}, 
   3.825758979368369*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"fddb22a5-a05d-4b29-8c98-9e2cf8d69a02"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"4", " ", 
        RowBox[{"f", "(", "u", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", " ", 
           RowBox[{"a", "(", "u", ")"}]}], "+", 
          RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "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.825758759391191*^9, 3.825758785420054*^9}, 
   3.8257589793703003`*^9},
 CellLabel->
  "Out[105]//TraditionalForm=",ExpressionUUID->"2d3e4730-6bf6-4c65-ba22-\
f8466e2f52a0"],

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.825758785420341*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"2ec81967-8208-4938-9cc0-3d141b76ada7"],

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.825758759499838*^9, 3.82575878542043*^9}, 
   3.825758979401279*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"61e23224-b595-4968-a211-ee7305a96e4c"],

Cell[BoxData["\<\"RicciScalarWils\"\>"], "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.825758759499838*^9, 3.82575878542043*^9}, 
   3.825758979406374*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"1d677d3c-c8b3-42f4-94aa-c371b9b60e9a"],

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.825758759499838*^9, 3.82575878542043*^9}, 
   3.82575897940909*^9},
 CellLabel->
  "Out[108]//TraditionalForm=",ExpressionUUID->"d4d4352f-7526-407d-b2bd-\
46f86ffb3e38"],

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.8257587854207*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"8e792988-9e88-4858-b8f5-cb96a7d767ed"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.825758759536182*^9, 3.825758785420801*^9}, 3.8257589794185963`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"e86b5347-c9d7-4f66-9461-fb326de7daec"],

Cell[BoxData["\<\"KretschmannScalarWils\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.82451184692048*^9, 3.824514172191423*^9, 3.824751170477703*^9, {
   3.825758759536182*^9, 3.825758785420801*^9}, 3.8257589794239397`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"b09185e3-d785-43bc-b1c1-2c5e7a67b47a"],

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.825758759536182*^9, 3.825758785420801*^9}, 3.825758979425806*^9},
 CellLabel->
  "Out[111]//TraditionalForm=",ExpressionUUID->"fb97132e-fe7b-4593-b351-\
d5f1410cab21"],

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.8257587854210663`*^9},
 CellLabel->
  "In[112]:=",ExpressionUUID->"7f44ac5b-7ede-4cdb-9333-0ffb4b072474"],

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.825758759554698*^9, 3.8257587854211607`*^9}, 
   3.825758979456624*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"84a7b8b3-26cb-468b-94d4-3d233770a210"],

Cell[BoxData["\<\"EinsteinTensorWils\"\>"], "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.825758759554698*^9, 3.8257587854211607`*^9}, 
   3.825758979461707*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"d652bb2e-dd76-4341-927f-896420ac6a19"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"4", " ", 
        RowBox[{"f", "(", "u", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", " ", 
           RowBox[{"a", "(", "u", ")"}]}], "+", 
          RowBox[{"b", "(", "u", ")"}]}], ")"}]}], "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.825758759554698*^9, 3.8257587854211607`*^9}, 
   3.8257589794642477`*^9},
 CellLabel->
  "Out[114]//TraditionalForm=",ExpressionUUID->"d1d7cf6a-6823-4fab-8f7e-\
89b72acf22ce"],

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.8257587854214277`*^9},
 CellLabel->
  "In[115]:=",ExpressionUUID->"e3e5f20f-21c1-4533-b6a3-816f6de195fd"],

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.825758759699924*^9, 3.825758785421522*^9}, 
   3.8257589794775476`*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"34d23b22-c79e-4535-9f97-3b3817572253"],

Cell[BoxData["\<\"WeylTensorWils\"\>"], "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.825758759699924*^9, 3.825758785421522*^9}, 
   3.8257589794832153`*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"9c424ca8-5d70-4623-af89-3a4041a58879"],

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", "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", "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", "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", "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.825758759699924*^9, 3.825758785421522*^9}, 
   3.825758979518395*^9},
 CellLabel->
  "Out[117]//TraditionalForm=",ExpressionUUID->"6dd1f4ed-e1cf-4dde-a1ef-\
3d7544074b91"],

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.825758785421805*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"ed7a04fc-79bd-4e7b-af48-6f75fed5f955"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825758760859559*^9, 3.825758785421907*^9}, 
   3.825758979534697*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"577b2201-f77a-4209-b0e2-ff20977375cd"],

Cell[BoxData["\<\"CottonTensorWils\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825758760859559*^9, 3.825758785421907*^9}, 
   3.825758979540804*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"1e582cf2-0ef3-46f8-9a73-9c1828769ad1"],

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[{
           {"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.825758760859559*^9, 3.825758785421907*^9}, 
   3.8257589795457983`*^9},
 CellLabel->
  "Out[120]//TraditionalForm=",ExpressionUUID->"d2a3ed39-4204-4814-becf-\
173f348bf9a0"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"w", "\[Rule]", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Alpha]", "[", "u", "]"}], " ", "w"}], " ", "+", " ", 
       RowBox[{
        RowBox[{"\[Beta]", "[", "u", "]"}], " ", "x"}], " ", "+", " ", 
       RowBox[{"\[Gamma]", "[", "u", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "\[Rule]", " ", 
      RowBox[{"x", " ", "+", " ", 
       FractionBox[
        RowBox[{"b", "[", "u", "]"}], 
        RowBox[{"a", "[", "u", "]"}]]}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq6", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8257590419029837`*^9, 3.82575910519039*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"199366e4-fa78-4b70-87af-d5fa28500f0d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"w", "\[Rule]", 
       RowBox[{
        RowBox[{"w", " ", 
         RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
        RowBox[{"x", " ", 
         RowBox[{"\[Beta]", "[", "u", "]"}]}], "+", 
        RowBox[{"\[Gamma]", "[", "u", "]"}]}]}]},
     {
      RowBox[{"x", "\[Rule]", 
       RowBox[{"x", "+", 
        FractionBox[
         RowBox[{"b", "[", "u", "]"}], 
         RowBox[{"a", "[", "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.8257591057011967`*^9},
 CellLabel->
  "Out[123]//TableForm=",ExpressionUUID->"5fcd5135-fbdf-47fe-86fe-\
367c338464bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric4", " ", "/.", " ", "eq6"}], "  ", "//", " ", "Expand"}], 
   " ", "//", " ", "Simplify"}], "  ", "//", " ", "MatrixForm", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"This", " ", "is", " ", "a", " ", "damn", " ", "mess"}], " ", 
   "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.825759150214477*^9, 3.825759178043931*^9}, {
  3.8257592161048098`*^9, 3.82575922098385*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"8d3b83c8-e0d6-4b00-a2ab-7b3eba80a5f9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"b", "[", "u", "]"}], "3"], " ", 
          RowBox[{"f", "[", "u", "]"}]}], 
         SuperscriptBox[
          RowBox[{"a", "[", "u", "]"}], "2"]]}], "-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"b", "[", "u", "]"}], "2"], " ", 
         RowBox[{"f", "[", "u", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", "x"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"k", "[", "u", "]"}]}]}], ")"}]}], 
        RowBox[{"a", "[", "u", "]"}]], "-", 
       RowBox[{"2", " ", "x", " ", 
        RowBox[{"a", "[", "u", "]"}], " ", 
        RowBox[{"f", "[", "u", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"], "+", 
          RowBox[{"y", " ", 
           RowBox[{"g", "[", "u", "]"}]}], "+", 
          RowBox[{"h", "[", "u", "]"}], "+", 
          RowBox[{"x", " ", 
           RowBox[{"k", "[", "u", "]"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"l", "[", "u", "]"}]}]}], ")"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"b", "[", "u", "]"}], " ", 
        RowBox[{"f", "[", "u", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["x", "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["y", "2"]}], "+", 
          RowBox[{"2", " ", "y", " ", 
           RowBox[{"g", "[", "u", "]"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"h", "[", "u", "]"}]}], "+", 
          RowBox[{"3", " ", "x", " ", 
           RowBox[{"k", "[", "u", "]"}]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"l", "[", "u", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "u", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"w", " ", 
            RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
           RowBox[{"x", " ", 
            RowBox[{"\[Beta]", "[", "u", "]"}]}], "+", 
           RowBox[{"\[Gamma]", "[", "u", "]"}]}], ")"}], "2"]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "x"}], " ", 
        RowBox[{"a", "[", "u", "]"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"b", "[", "u", "]"}]}]}], 
      RowBox[{
       RowBox[{"a", "[", "u", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"w", " ", 
          RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
         RowBox[{"x", " ", 
          RowBox[{"\[Beta]", "[", "u", "]"}]}], "+", 
         RowBox[{"\[Gamma]", "[", "u", "]"}]}], ")"}]}], "0"},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "x"}], " ", 
        RowBox[{"a", "[", "u", "]"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"b", "[", "u", "]"}]}]}], "0", "0", "0"},
     {
      RowBox[{
       RowBox[{"a", "[", "u", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"w", " ", 
          RowBox[{"\[Alpha]", "[", "u", "]"}]}], "+", 
         RowBox[{"x", " ", 
          RowBox[{"\[Beta]", "[", "u", "]"}]}], "+", 
         RowBox[{"\[Gamma]", "[", "u", "]"}]}], ")"}]}], "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",
 CellChangeTimes->{{3.8257591580493727`*^9, 3.825759178486631*^9}, 
   3.825759221930111*^9},
 CellLabel->
  "Out[127]//MatrixForm=",ExpressionUUID->"381c3a5b-d91c-48b0-97ab-\
241cef0068ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Metric 8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825763426227351*^9, 
  3.825763437834381*^9}},ExpressionUUID->"93a1d70d-c0f1-4cd2-8334-\
a126f50e728f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric8", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric8", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], 
         RowBox[{"f", "[", "u", "]"}], 
         RowBox[{"x", "(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"], "+", " ", 
           RowBox[{
            RowBox[{"g", "[", "u", "]"}], " ", "y"}], " ", "+", " ", 
           RowBox[{"h", "[", "u", "]"}]}], ")"}]}], " ", "+", " ", 
        FractionBox[
         SuperscriptBox["v", "2"], 
         SuperscriptBox["x", "2"]]}], 
       RowBox[{"-", "1"}], 
       FractionBox[
        RowBox[{"2", " ", "v"}], "x"], "0"},
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {
       FractionBox[
        RowBox[{"2", " ", "v"}], "x"], "0", "1", "0"},
      {"0", "0", "0", "1"}
     }], "\[NoBreak]", ")"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric8", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825759240561324*^9, 3.8257593180479116`*^9}, {
   3.825763225126802*^9, 3.82576323403605*^9}, 3.825763433403502*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"d94feaea-1a6e-4b71-84d6-e80aa6881514"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox[
        SuperscriptBox["v", "2"], 
        SuperscriptBox["x", "2"]], "-", 
       RowBox[{"2", " ", "x", " ", 
        RowBox[{"f", "[", "u", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"], "+", 
          RowBox[{"y", " ", 
           RowBox[{"g", "[", "u", "]"}]}], "+", 
          RowBox[{"h", "[", "u", "]"}]}], ")"}]}]}], 
      RowBox[{"-", "1"}], 
      FractionBox[
       RowBox[{"2", " ", "v"}], "x"], "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {
      FractionBox[
       RowBox[{"2", " ", "v"}], "x"], "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", 10001.},
 CellChangeTimes->{3.8257593205695877`*^9, 3.825763235343711*^9, 
  3.825763433403846*^9},
 CellLabel->
  "Out[136]//MatrixForm=",ExpressionUUID->"7668f7b1-699c-44c2-8fcf-\
9797ca42ae1f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8257634407311373`*^9, 
  3.825763456538023*^9}},ExpressionUUID->"ab8a644c-e78c-44d6-9722-\
940367f954f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input8", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input8", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList8", "]"}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"tensorList8", " ", "=", " ", 
       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[{"tensorList8", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList8", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList8", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825758649968156*^9, 
   3.8257586567858047`*^9}, 3.825758785418098*^9, {3.825763131254685*^9, 
   3.825763161078302*^9}, 3.8257634477489634`*^9},
 CellLabel->
  "In[137]:=",ExpressionUUID->"db15524b-00f1-400e-804e-d4874b055d70"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "11.17", " ", "for", " ", "all", 
    " ", "tensors", " ", "except", " ", "Kretschmann", " ", "and", " ", 
    "Cotton"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input8", "[", " ", 
    RowBox[{
    "\"\<metric8\>\"", ",", " ", "metric8", ",", " ", 
     "\"\<WilsGeneralization\>\"", ",", "\"\<g\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "x", ",", "y"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.825759806059228*^9, {3.825763174485175*^9, 3.8257632176126623`*^9}, 
   3.825763447749132*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"0aad7459-bb15-4146-99c9-f1eb5ed42c48"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.391594`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825763218101693*^9, 3.825763242745039*^9}, 
   3.825763336493423*^9, 3.825763447749278*^9},
 CellLabel->
  "Out[156]=",ExpressionUUID->"5594fcc5-3e2a-4d0c-8718-9125954bbff8"],

Cell[BoxData["tensorList8"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825763256026973*^9, 3.825763258122436*^9}, 
   3.825763447749384*^9},
 CellLabel->
  "In[157]:=",ExpressionUUID->"495822bf-fa22-43d2-8871-1c96c4bbc51a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox["g", "\[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", 10002.},
 CellChangeTimes->{3.8257632584810753`*^9, 3.8257633365341473`*^9, 
  3.825763447749483*^9},
 CellLabel->
  "Out[157]=",ExpressionUUID->"5ceb93c3-3b16-4402-a312-f9a2111fe047"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, {3.82576327417894*^9, 
   3.825763277962688*^9}, 3.8257634477496033`*^9},
 CellLabel->
  "In[158]:=",ExpressionUUID->"9c4ae4ba-c097-49f6-8821-daa5b78c8fcb"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["g", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8257632788429947`*^9, 
  3.825763336553087*^9, 3.825763447749688*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"4606258e-15cc-4c27-a485-d5af880afc09"],

Cell[BoxData["\<\"WilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8257632788429947`*^9, 
  3.8257633365565567`*^9, 3.825763447749776*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"3d2c2f3d-8bb5-40d6-826a-914b71eaaa0d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         SuperscriptBox["v", "2"], 
         SuperscriptBox["x", "2"]], "-", 
        RowBox[{"2", " ", "x", " ", 
         RowBox[{"f", "(", "u", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"y", " ", 
            RowBox[{"g", "(", "u", ")"}]}], "+", 
           RowBox[{"h", "(", "u", ")"}], "+", 
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}]}]}], 
       RowBox[{"-", "1"}], 
       FractionBox[
        RowBox[{"2", " ", "v"}], "x"], "0"},
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {
       FractionBox[
        RowBox[{"2", " ", "v"}], "x"], "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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8257632788429947`*^9, 
  3.8257633365589447`*^9, 3.825763447749858*^9},
 CellLabel->
  "Out[160]//TraditionalForm=",ExpressionUUID->"3ada1132-ebac-4c46-b816-\
fa4b1a243f1c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, {3.825763283131021*^9, 
   3.825763286506177*^9}, 3.8257634477499857`*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"b38a3ddc-1dcf-40c7-86ef-2630cd7a2793"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763287407668*^9, 3.825763336580371*^9, 
   3.825763447750074*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"b46e3107-5fcd-4cad-b2dd-4013e72b2d6a"],

Cell[BoxData["\<\"ChristoffelSymbolWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763287407668*^9, 3.825763336584271*^9, 
   3.825763447750152*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"f8765d40-0c6b-4bbd-8aa9-fc2a5a030225"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox["v", 
             SuperscriptBox["x", "2"]]},
           {"0"},
           {
            FractionBox["1", "x"]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"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["1", "x"]},
           {"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[{
             RowBox[{"x", " ", 
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"y", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"g", "(", "u", ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "+", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"h", "(", "u", ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None], "+", 
                RowBox[{"4", " ", "v"}]}], ")"}]}], "+", 
             RowBox[{"x", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"f", "(", "u", ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"y", " ", 
                 RowBox[{"g", "(", "u", ")"}]}], "+", 
                RowBox[{"h", "(", "u", ")"}], "+", 
                SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["y", "2"]}], ")"}]}], "-", 
             FractionBox[
              SuperscriptBox["v", "3"], 
              SuperscriptBox["x", "4"]]}]},
           {
            FractionBox["v", 
             SuperscriptBox["x", "2"]]},
           {
            RowBox[{
             RowBox[{
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"y", " ", 
                  RowBox[{"g", "(", "u", ")"}]}]}], "-", 
                RowBox[{"h", "(", "u", ")"}], "+", 
                SuperscriptBox["x", "2"], "-", 
                SuperscriptBox["y", "2"]}], ")"}]}], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               SuperscriptBox["v", "2"]}], 
              SuperscriptBox["x", "3"]]}]},
           {
            RowBox[{"x", " ", 
             RowBox[{"f", "(", "u", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"g", "(", "u", ")"}], "+", 
               RowBox[{"2", " ", "y"}]}], ")"}]}]}
          },
          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["v", 
             SuperscriptBox["x", "2"]]},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox["1", "x"]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             RowBox[{
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"y", " ", 
                  RowBox[{"g", "(", "u", ")"}]}]}], "-", 
                RowBox[{"h", "(", "u", ")"}], "+", 
                SuperscriptBox["x", "2"], "-", 
                SuperscriptBox["y", "2"]}], ")"}]}], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               SuperscriptBox["v", "2"]}], 
              SuperscriptBox["x", "3"]]}]},
           {
            RowBox[{"-", 
             FractionBox["1", "x"]}]},
           {
            FractionBox[
             RowBox[{"2", " ", "v"}], 
             SuperscriptBox["x", "2"]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{"x", " ", 
             RowBox[{"f", "(", "u", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"g", "(", "u", ")"}], "+", 
               RowBox[{"2", " ", "y"}]}], ")"}]}]},
           {"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[{
             RowBox[{
              RowBox[{"f", "(", "u", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"y", " ", 
                 RowBox[{"g", "(", "u", ")"}]}], "+", 
                RowBox[{"h", "(", "u", ")"}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox["x", "2"]}], "+", 
                SuperscriptBox["y", "2"]}], ")"}]}], "-", 
             FractionBox[
              SuperscriptBox["v", "2"], 
              SuperscriptBox["x", "3"]]}]},
           {
            FractionBox["1", "x"]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "v"}], 
              SuperscriptBox["x", "2"]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox["1", "x"]},
           {"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[{"2", " ", "v"}], 
              SuperscriptBox["x", "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[{
           {
            RowBox[{"x", " ", 
             RowBox[{"f", "(", "u", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"g", "(", "u", ")"}], "+", 
               RowBox[{"2", " ", "y"}]}], ")"}]}]},
           {"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", 10002.},
 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.825763287407668*^9, 3.825763336621422*^9, 
   3.825763447750216*^9},
 CellLabel->
  "Out[163]//TraditionalForm=",ExpressionUUID->"ed6124bd-2e1a-4f89-a87a-\
1da57e76e8b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, {3.825763290803269*^9, 
   3.8257632937135963`*^9}, 3.825763447750332*^9},
 CellLabel->
  "In[164]:=",ExpressionUUID->"2505a565-632e-4334-8b23-63dd0755c6f1"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763294594195*^9, 
  3.825763336635453*^9, 3.825763447750414*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"4ebd9740-ed75-465b-b263-ed96608012bc"],

Cell[BoxData["\<\"RiemannTensorWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763294594195*^9, 
  3.825763336638918*^9, 3.825763447750506*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"8f276d30-8605-4486-afda-ea7ac0b8c70a"],

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[{"2", " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", "2"}], " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"2", " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"-", "2"}], " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "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[{"-", "2"}], " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}], "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"2", " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "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", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"2", " ", "x", " ", 
            RowBox[{"f", "(", "u", ")"}]}], "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "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", 10002.},
 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.825763294594195*^9, 
  3.825763336681715*^9, 3.825763447750574*^9},
 CellLabel->
  "Out[166]//TraditionalForm=",ExpressionUUID->"fcf7ecbc-cc5f-4082-8b1e-\
5e54c1dde28a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, {3.825763298003668*^9, 
   3.825763300866432*^9}, 3.8257634477506943`*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"13d635f5-eceb-4164-bbf1-763b09e0edd5"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8257633017816277`*^9, 
  3.8257633366938143`*^9, 3.8257634477507772`*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"1fe49621-6940-4689-94fe-d346464c4b6d"],

Cell[BoxData["\<\"RicciTensorWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.8257633017816277`*^9, 
  3.8257633366967278`*^9, 3.825763447750874*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"66f18357-5c83-4d53-a0fe-03c46130494b"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"4", " ", "x", " ", 
        RowBox[{"f", "(", "u", ")"}]}], "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", 10002.},
 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.8257633017816277`*^9, 
  3.825763336698924*^9, 3.825763447750936*^9},
 CellLabel->
  "Out[169]//TraditionalForm=",ExpressionUUID->"4c0443fc-042d-4a03-9c49-\
42e8b7347834"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, {3.825763306107164*^9, 
   3.8257633095854673`*^9}, 3.825763447751054*^9},
 CellLabel->
  "In[170]:=",ExpressionUUID->"760cde97-b0b2-440e-86fb-079448173a0c"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763336719329*^9, 
  3.825763447751153*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"33f39fdb-97c3-4e82-b312-92aae75344d6"],

Cell[BoxData["\<\"RicciScalarWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763336722272*^9, 
  3.825763447751251*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"5d9c3292-5c48-4dc8-952c-0a624161f0e8"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.82576333672537*^9, 
  3.825763447751314*^9},
 CellLabel->
  "Out[172]//TraditionalForm=",ExpressionUUID->"18c109fd-9a3b-4590-8b1f-\
fe880b89dbd3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.825763310965602*^9, 
   3.82576331390888*^9}, 3.8257634477514343`*^9},
 CellLabel->
  "In[173]:=",ExpressionUUID->"bf6648ec-49ee-4664-b94f-d5476f604401"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8257633367347403`*^9, 3.82576344775152*^9},
 CellLabel->
  "Out[173]=",ExpressionUUID->"241923f2-8d66-4186-b498-cae67d92b706"],

Cell[BoxData["\<\"KretschmannScalarWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8257633367375793`*^9, 3.825763447751615*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"0bac520b-08a9-406d-8c93-949d674ca538"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82451184692048*^9, 3.824514172191423*^9, 
  3.824751170477703*^9, 3.8257633367402554`*^9, 3.825763447751676*^9},
 CellLabel->
  "Out[175]//TraditionalForm=",ExpressionUUID->"28e90185-f1dc-4f56-b795-\
42a09215b9e8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, {3.8257633159229937`*^9, 3.825763318933626*^9}, 
   3.8257634477518044`*^9},
 CellLabel->
  "In[176]:=",ExpressionUUID->"b714eecf-7cf0-4e79-9a32-01ad8022ac83"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.825763336760964*^9, 3.825763447751894*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"05013aad-b294-47b6-8376-b0e6b408be59"],

Cell[BoxData["\<\"EinsteinTensorWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.8257633367638607`*^9, 3.8257634477519913`*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"4bccd5be-ebf8-4ece-b189-daeda6084a4d"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"4", " ", "x", " ", 
        RowBox[{"f", "(", "u", ")"}]}], "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", 10002.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.825763336765937*^9, 3.82576344775205*^9},
 CellLabel->
  "Out[178]//TraditionalForm=",ExpressionUUID->"86e58160-be92-4b45-9741-\
6e77abf43c3b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763321228595*^9, 3.825763324059793*^9}, 
   3.82576344775217*^9},
 CellLabel->
  "In[179]:=",ExpressionUUID->"42c699e4-a4dd-4491-959c-52deb8b57498"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763326250819*^9, 3.8257633367776546`*^9}, 
   3.8257634477522707`*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"f565af31-d194-491d-a512-1f68445c82e3"],

Cell[BoxData["\<\"WeylTensorWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 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.825763326250819*^9, 3.825763336780159*^9}, 
   3.8257634477523613`*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"ffefa22d-ea69-47c3-86c5-86bd79ca5851"],

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", "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", "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", "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", "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", 10002.},
 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.825763326250819*^9, 3.825763336817863*^9}, 
   3.825763447752421*^9},
 CellLabel->
  "Out[181]//TraditionalForm=",ExpressionUUID->"88b3ed57-9845-4455-9fb0-\
94853cc1f95d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList8", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList8", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList8", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.825763408940113*^9, 3.825763411707242*^9}, 
   3.8257634477526007`*^9},
 CellLabel->
  "In[185]:=",ExpressionUUID->"f1ebdd25-cd57-45e0-b52c-a9416be639cc"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825763336829143*^9, 3.8257634126630087`*^9, 
  3.8257634477527437`*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"7a69e396-1835-48fe-9c19-cee96f7209ee"],

Cell[BoxData["\<\"CottonTensorWilsGeneralization\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825763336829143*^9, 3.825763412665575*^9, 
  3.825763447752884*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"bed56920-3633-4fcd-b0e8-d7508105be9a"],

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[{
           {"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", 10002.},
 CellChangeTimes->{3.825763336829143*^9, 3.825763412669298*^9, 
  3.8257634477529793`*^9},
 CellLabel->
  "Out[187]//TraditionalForm=",ExpressionUUID->"9299f6ea-a270-4447-9c2e-\
34c46de23627"]
}, Closed]]
},
WindowSize->{1279, 675},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"5a2703db-866d-40b7-b855-291df0648848"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1995, 29, 159, "Title",ExpressionUUID->"9246e116-eb80-4550-b167-540cc09b854f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2578, 53, 989, 17, 76, "Author",ExpressionUUID->"9345c94d-dbb4-4b01-9980-615b75f656c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3604, 75, 251, 4, 69, "Section",ExpressionUUID->"64526a0e-7ab9-4ce7-a996-a9b89175ba24",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[3858, 81, 459, 10, 63, "Input",ExpressionUUID->"e2ffe19c-023a-4c41-a35c-8cebdbcbaf5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[4320, 93, 1674, 26, 43, "Output",ExpressionUUID->"4a9f98cb-89bd-4f2d-b9c9-4c2d4d631c25",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6031, 124, 669, 11, 55, "Section",ExpressionUUID->"d16284cf-5ed5-47e1-9d33-8eb669b750df",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[6703, 137, 629, 11, 63, "Input",ExpressionUUID->"c42ab1c2-0e72-468e-bdaf-51e69e120991",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[7335, 150, 681, 12, 43, "Output",ExpressionUUID->"24e52d97-ab1a-431b-aa0c-b2499ae555e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8019, 164, 631, 11, 84, "Input",ExpressionUUID->"138d0e05-3fe0-4619-9546-c074e48d6383",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8653, 177, 1743, 28, 43, "Output",ExpressionUUID->"b0e0377f-3290-49bf-aee9-141786acab38",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[10433, 210, 281, 5, 55, "Section",ExpressionUUID->"ec1e9e0a-cfde-47c9-a017-3b92d891f15f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[10717, 217, 1692, 45, 189, "Input",ExpressionUUID->"bb914118-57b8-4da8-9e30-9073f77177b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[12412, 264, 1970, 32, 24, "Print",ExpressionUUID->"c478bb30-5c88-4fa2-b979-3cbf3f287b04",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[14385, 298, 1980, 32, 24, "Print",ExpressionUUID->"293ad4e9-93b4-42d0-aa1e-4c039551c5ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[16368, 332, 1843, 28, 41, "Output",ExpressionUUID->"1e9ec50b-4534-4f9b-9763-c6a2619b3029",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18214, 362, 295, 5, 41, "Input",ExpressionUUID->"cd4eccf8-7489-4f9f-9437-35aff8a0b517",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[18546, 372, 340, 6, 55, "Section",ExpressionUUID->"628578c3-f3cc-40b8-a0ff-42a9f8a347da",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[18889, 380, 5937, 131, 882, "Input",ExpressionUUID->"c7728e43-2bfc-4453-8ba6-01e67558d893",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24829, 513, 4727, 142, 699, "Output",ExpressionUUID->"8e0f055f-19b2-4928-b0b4-3d464a004891",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[29559, 657, 1022, 21, 63, "Input",ExpressionUUID->"6a04386c-bf0b-412c-8474-a56b22fc2948",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[30618, 683, 410, 6, 55, "Section",ExpressionUUID->"8938e3e1-27fc-46a6-8a70-5f590d16cf0e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31031, 691, 1706, 42, 126, "Input",ExpressionUUID->"5360a2f1-ebde-45cc-ac6e-b657e7f61583",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32740, 735, 1106, 27, 84, "Input",ExpressionUUID->"131355ae-12ef-41a9-a548-6cc7c29b4e79",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[33883, 767, 211, 4, 55, "Section",ExpressionUUID->"1db502ba-ca90-4ee4-b862-0149d6185329",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[34097, 773, 1142, 31, 192, "Input",ExpressionUUID->"32e6837f-77f1-43c3-a46c-e85fa5532e88",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[35242, 806, 1289, 39, 121, "Output",ExpressionUUID->"8b84c578-9caf-4833-a82d-a28b20992d23",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[36534, 847, 481, 8, 98, "Input",ExpressionUUID->"361d02d5-cac6-461b-955a-033761daf519",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37018, 857, 303, 6, 55, "Output",ExpressionUUID->"c1009e0b-a1dc-4c1f-8225-ccd984b7d9f3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37324, 865, 334, 6, 41, "Input",ExpressionUUID->"548a06f6-1bdd-40b6-ab64-608765b42b34",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37661, 873, 333, 7, 41, "Output",ExpressionUUID->"6017ffda-0429-468c-a8df-5aa006d3a168",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[37997, 882, 627, 13, 105, "Input",ExpressionUUID->"34cb3eac-2c31-4c86-bf21-bfbbabdd3957",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[38627, 897, 1160, 35, 107, "Output",ExpressionUUID->"fe457b4c-7418-4a55-ae56-2662d6a1a24d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[39790, 934, 1306, 36, 172, "Input",ExpressionUUID->"003530ff-bc24-45d5-a58b-f0eb093e3205",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[41099, 972, 1390, 43, 107, "Output",ExpressionUUID->"532e2ddd-e64a-4d6c-9edf-6c00e7ce0efe",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[42492, 1017, 1252, 31, 167, "Input",ExpressionUUID->"63ca30d0-9835-4e32-9ec1-cda59b1a008b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[43747, 1050, 1309, 39, 103, "Output",ExpressionUUID->"e082b93c-6926-43a1-91a6-58c27f05eef0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[45059, 1091, 1421, 36, 107, "Input",ExpressionUUID->"0377073f-4257-48cd-a4e7-3959d6824fe0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[46483, 1129, 1062, 30, 44, "Output",ExpressionUUID->"31752405-96b9-41cd-88b3-2bd7ee00a4b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[47548, 1161, 643, 13, 105, "Input",ExpressionUUID->"1c5b1bea-53cc-48d4-be13-09c969c4197c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[48194, 1176, 2011, 60, 109, "Output",ExpressionUUID->"9c44e473-48b5-4e58-971d-df166268c730",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[50242, 1241, 338, 8, 55, "Section",ExpressionUUID->"d70a53ba-cb32-475e-bc41-b13531d903cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[50583, 1251, 5718, 130, 714, "Input",ExpressionUUID->"634967ae-0aed-4889-bda7-5c035bf63174",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[56304, 1383, 1040, 21, 65, "Input",ExpressionUUID->"e15d77a3-a2b9-4dcc-a892-cf07a18ee6be",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57347, 1406, 331, 6, 41, "Output",ExpressionUUID->"149b4dfa-6d55-4301-b2d5-2e6b64629d79",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57681, 1414, 264, 4, 41, "Input",ExpressionUUID->"31ba087b-7643-4a6c-a125-02323ade62b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[57948, 1420, 1113, 34, 45, "Output",ExpressionUUID->"05a2cdbf-f243-419d-a2dc-74621d00d9b3",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[59064, 1456, 810, 18, 84, "Input",ExpressionUUID->"469930aa-0b7a-41c2-ad54-ea5706b8ef0d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[59877, 1476, 594, 12, 45, "Output",ExpressionUUID->"f3105aca-f34a-4675-b9f9-fe14457e9133",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[60474, 1490, 506, 8, 41, "Output",ExpressionUUID->"44bd23e3-5484-474f-9e6f-4f4e25a42836",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[60983, 1500, 2341, 65, 106, "Output",ExpressionUUID->"2673395a-f324-44fc-a9f8-8475eb41a9ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[63327, 1567, 813, 18, 84, "Input",ExpressionUUID->"757de3a7-29f4-4f8f-8cf5-c6da930ac26f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[64143, 1587, 705, 14, 45, "Output",ExpressionUUID->"03a625c0-cfda-495a-97e2-6a89ab386750",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[64851, 1603, 599, 9, 41, "Output",ExpressionUUID->"f86ceff0-1489-4819-9ed5-1735f17ed338",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[65453, 1614, 24115, 643, 410, "Output",ExpressionUUID->"435933f5-b7d0-4a79-9839-cd230fee5006",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[89571, 2259, 814, 19, 84, "Input",ExpressionUUID->"34b6d982-72af-4465-afe8-f3198e50dc1e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[90388, 2280, 586, 12, 45, "Output",ExpressionUUID->"f2399780-ea38-4425-87cc-bb0853c78271",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[90977, 2294, 525, 9, 41, "Output",ExpressionUUID->"99473778-57ee-45fe-8140-81312fdd1747",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[91505, 2305, 11887, 312, 308, "Output",ExpressionUUID->"78476291-e29b-454b-80a6-4d0c7d77236a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[103395, 2619, 814, 19, 84, "Input",ExpressionUUID->"61d74f32-1c98-4147-82b2-1c1b5357d2bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[104212, 2640, 568, 12, 45, "Output",ExpressionUUID->"6eb98388-98a6-433d-8d5e-d01420628433",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[104783, 2654, 520, 9, 41, "Output",ExpressionUUID->"fddb22a5-a05d-4b29-8c98-9e2cf8d69a02",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[105306, 2665, 1327, 35, 100, "Output",ExpressionUUID->"2d3e4730-6bf6-4c65-ba22-f8466e2f52a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[106636, 2702, 814, 19, 84, "Input",ExpressionUUID->"2ec81967-8208-4938-9cc0-3d141b76ada7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[107453, 2723, 532, 11, 41, "Output",ExpressionUUID->"61e23224-b595-4968-a211-ee7305a96e4c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[107988, 2736, 521, 9, 41, "Output",ExpressionUUID->"1d677d3c-c8b3-42f4-94aa-c371b9b60e9a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[108512, 2747, 610, 14, 48, "Output",ExpressionUUID->"d4d4352f-7526-407d-b2bd-46f86ffb3e38",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[109125, 2763, 743, 18, 84, "Input",ExpressionUUID->"8e792988-9e88-4858-b8f5-cb96a7d767ed",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[109871, 2783, 361, 8, 41, "Output",ExpressionUUID->"e86b5347-c9d7-4f66-9461-fb326de7daec",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[110235, 2793, 356, 6, 41, "Output",ExpressionUUID->"b09185e3-d785-43bc-b1c1-2c5e7a67b47a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[110594, 2801, 438, 11, 48, "Output",ExpressionUUID->"fb97132e-fe7b-4593-b351-d5f1410cab21",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[111035, 2814, 798, 19, 84, "Input",ExpressionUUID->"7f44ac5b-7ede-4cdb-9333-0ffb4b072474",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[111836, 2835, 500, 11, 45, "Output",ExpressionUUID->"84a7b8b3-26cb-468b-94d4-3d233770a210",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[112339, 2848, 455, 8, 41, "Output",ExpressionUUID->"d652bb2e-dd76-4341-927f-896420ac6a19",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[112797, 2858, 1259, 34, 100, "Output",ExpressionUUID->"d1d7cf6a-6823-4fab-8f7e-89b72acf22ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[114059, 2894, 863, 20, 84, "Input",ExpressionUUID->"e3e5f20f-21c1-4533-b6a3-816f6de195fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[114925, 2916, 585, 12, 45, "Output",ExpressionUUID->"34d23b22-c79e-4535-9f97-3b3817572253",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[115513, 2930, 520, 9, 41, "Output",ExpressionUUID->"9c424ca8-5d70-4623-af89-3a4041a58879",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[116036, 2941, 9665, 252, 308, "Output",ExpressionUUID->"6dd1f4ed-e1cf-4dde-a1ef-3d7544074b91",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[125704, 3195, 721, 18, 84, "Input",ExpressionUUID->"ed7a04fc-79bd-4e7b-af48-6f75fed5f955",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[126428, 3215, 336, 8, 45, "Output",ExpressionUUID->"577b2201-f77a-4209-b0e2-ff20977375cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[126767, 3225, 281, 5, 41, "Output",ExpressionUUID->"1e582cf2-0ef3-46f8-9a73-9c1828769ad1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[127051, 3232, 9636, 296, 308, "Output",ExpressionUUID->"d2a3ed39-4204-4814-becf-173f348bf9a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[136724, 3533, 949, 23, 180, "Input",ExpressionUUID->"199366e4-fa78-4b70-87af-d5fa28500f0d"],
Cell[137676, 3558, 1006, 32, 79, "Output",ExpressionUUID->"5fcd5135-fbdf-47fe-86fe-367c338464bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138719, 3595, 517, 12, 41, "Input",ExpressionUUID->"8d3b83c8-e0d6-4b00-a2ab-7b3eba80a5f9"],
Cell[139239, 3609, 3973, 114, 119, "Output",ExpressionUUID->"381c3a5b-d91c-48b0-97ab-241cef0068ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143249, 3728, 208, 4, 69, "Section",ExpressionUUID->"93a1d70d-c0f1-4cd2-8334-a126f50e728f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[143460, 3734, 1355, 35, 192, "Input",ExpressionUUID->"d94feaea-1a6e-4b71-84d6-e80aa6881514",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[144818, 3771, 1391, 42, 121, "Output",ExpressionUUID->"7668f7b1-699c-44c2-8fcf-9797ca42ae1f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[146246, 3818, 233, 4, 55, "Section",ExpressionUUID->"ab8a644c-e78c-44d6-9722-940367f954f5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[146482, 3824, 5824, 133, 714, "Input",ExpressionUUID->"db15524b-00f1-400e-804e-d4874b055d70",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[152309, 3959, 852, 20, 63, "Input",ExpressionUUID->"0aad7459-bb15-4146-99c9-f1eb5ed42c48",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[153164, 3981, 336, 7, 41, "Output",ExpressionUUID->"5594fcc5-3e2a-4d0c-8718-9125954bbff8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[153503, 3990, 267, 5, 41, "Input",ExpressionUUID->"495822bf-fa22-43d2-8871-1c96c4bbc51a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[153773, 3997, 1088, 34, 45, "Output",ExpressionUUID->"5ceb93c3-3b16-4402-a312-f9a2111fe047",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[154864, 4033, 868, 20, 84, "Input",ExpressionUUID->"9c4ae4ba-c097-49f6-8821-daa5b78c8fcb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[155735, 4055, 560, 11, 45, "Output",ExpressionUUID->"4606258e-15cc-4c27-a485-d5af880afc09",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[156298, 4068, 517, 8, 41, "Output",ExpressionUUID->"3d2c2f3d-8bb5-40d6-826a-914b71eaaa0d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[156818, 4078, 1695, 46, 124, "Output",ExpressionUUID->"3ada1132-ebac-4c46-b816-fa4b1a243f1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[158516, 4126, 872, 20, 84, "Input",ExpressionUUID->"b38a3ddc-1dcf-40c7-86ef-2630cd7a2793",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[159391, 4148, 707, 15, 45, "Output",ExpressionUUID->"b46e3107-5fcd-4cad-b2dd-4013e72b2d6a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[160101, 4165, 615, 10, 41, "Output",ExpressionUUID->"f8765d40-0c6b-4bbd-8aa9-fc2a5a030225",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[160719, 4177, 14450, 421, 398, "Output",ExpressionUUID->"ed6124bd-2e1a-4f89-a87a-1da57e76e8b7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[175172, 4600, 869, 20, 84, "Input",ExpressionUUID->"2505a565-632e-4334-8b23-63dd0755c6f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[176044, 4622, 576, 11, 45, "Output",ExpressionUUID->"4ebd9740-ed75-465b-b263-ed96608012bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[176623, 4635, 528, 8, 41, "Output",ExpressionUUID->"8f276d30-8605-4486-afda-ea7ac0b8c70a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[177154, 4645, 10410, 271, 308, "Output",ExpressionUUID->"fcf7ecbc-cc5f-4082-8b1e-5e54c1dde28a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[187567, 4918, 867, 20, 84, "Input",ExpressionUUID->"13d635f5-eceb-4164-bbf1-763b09e0edd5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[188437, 4940, 565, 11, 45, "Output",ExpressionUUID->"1fe49621-6940-4689-94fe-d346464c4b6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[189005, 4953, 529, 8, 41, "Output",ExpressionUUID->"66f18357-5c83-4d53-a0fe-03c46130494b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[189537, 4963, 1155, 29, 100, "Output",ExpressionUUID->"4c0443fc-042d-4a03-9c49-42e8b7347834",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[190695, 4994, 869, 20, 84, "Input",ExpressionUUID->"760cde97-b0b2-440e-86fb-079448173a0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[191567, 5016, 502, 10, 41, "Output",ExpressionUUID->"33f39fdb-97c3-4e82-b312-92aae75344d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[192072, 5028, 505, 8, 41, "Output",ExpressionUUID->"5d9c3292-5c48-4dc8-952c-0a624161f0e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[192580, 5038, 580, 13, 48, "Output",ExpressionUUID->"18c109fd-9a3b-4590-8b1f-fe880b89dbd3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[193163, 5053, 799, 19, 84, "Input",ExpressionUUID->"bf6648ec-49ee-4664-b94f-d5476f604401",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[193965, 5074, 332, 7, 41, "Output",ExpressionUUID->"241923f2-8d66-4186-b498-cae67d92b706",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[194300, 5083, 342, 5, 41, "Output",ExpressionUUID->"0bac520b-08a9-406d-8c93-949d674ca538",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[194645, 5090, 412, 10, 48, "Output",ExpressionUUID->"28e90185-f1dc-4f56-b795-42a09215b9e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[195060, 5102, 853, 20, 84, "Input",ExpressionUUID->"b714eecf-7cf0-4e79-9a32-01ad8022ac83",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[195916, 5124, 470, 10, 45, "Output",ExpressionUUID->"05013aad-b294-47b6-8376-b0e6b408be59",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[196389, 5136, 443, 7, 41, "Output",ExpressionUUID->"4bccd5be-ebf8-4ece-b189-daeda6084a4d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[196835, 5145, 1063, 28, 100, "Output",ExpressionUUID->"86e58160-be92-4b45-9741-6e77abf43c3b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[197901, 5175, 913, 21, 84, "Input",ExpressionUUID->"42c699e4-a4dd-4491-959c-52deb8b57498",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[198817, 5198, 587, 12, 45, "Output",ExpressionUUID->"f565af31-d194-491d-a512-1f68445c82e3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[199407, 5212, 534, 9, 41, "Output",ExpressionUUID->"ffefa22d-ea69-47c3-86c5-86bd79ca5851",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[199944, 5223, 9665, 252, 308, "Output",ExpressionUUID->"88b3ed57-9845-4455-9fb0-94853cc1f95d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[209612, 5477, 776, 19, 84, "Input",ExpressionUUID->"f1ebdd25-cd57-45e0-b52c-a9416be639cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[210391, 5498, 337, 8, 45, "Output",ExpressionUUID->"7a69e396-1835-48fe-9c19-cee96f7209ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[210731, 5508, 292, 5, 41, "Output",ExpressionUUID->"bed56920-3633-4fcd-b0e8-d7508105be9a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[211026, 5515, 9633, 296, 308, "Output",ExpressionUUID->"9299f6ea-a270-4447-9c2e-34c46de23627",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]]
}
]
*)