Collision of Strong Gravitational EM Waves Expanding Universe Alekseev.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[     43784,       1074]
NotebookOptionsPosition[     37430,        966]
NotebookOutlinePosition[     37898,        983]
CellTagsIndexPosition[     37855,        980]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Collision of Strong Gravitational and Electromagnetic Waves In An Expanding \
Universe by Alekseev\
\>", "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.824884488224324*^9, 3.824884514663184*^9}, {3.855489048451209*^9, 
   3.855489062163109*^9}},
 TextAlignment->Center,ExpressionUUID->"4e54a26c-391a-46f1-95b4-978e53817977"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
March 10, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9, {3.855407872416093*^9, 3.855407879483934*^9}, {
   3.855481937058525*^9, 3.855481946768751*^9}, {3.855488219419341*^9, 
   3.855488219973155*^9}, 3.8554890621632*^9},
 TextAlignment->Center,ExpressionUUID->"c490f8b2-5a0b-46f4-afd8-61dd7db6f252"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"05a14516-dd7b-410e-accf-\
6407bffec2b2"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"97814ebd-4226-4f82-8836-7190500f60bf"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.824725754491201*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"f34af2de-866b-4b86-af29-9fae4eb00ee6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 
   3.855489081346815*^9},ExpressionUUID->"55debb5a-5052-4560-bd6d-\
fb829b68e843"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Collision of strong gravitational and electromagnetic waves in the \
expanding universe by Alekseev\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/1511.03335\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8218867746254797`*^9, 3.821886810805148*^9}, 
   3.823176507207197*^9, {3.823472730005904*^9, 3.823472744739744*^9}, {
   3.823597507106205*^9, 3.823597507709626*^9}, {3.824747113877893*^9, 
   3.8247471253232603`*^9}, {3.8262145734356947`*^9, 3.826214591018752*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"ee7e8d7c-76fb-40cc-8b8f-d3021fcc7266"],

Cell[BoxData[
 TemplateBox[{
  "\"Collision of strong gravitational and electromagnetic waves in the \
expanding universe by Alekseev\"", "https://arxiv.org/abs/1511.03335"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.821886813557355*^9, 3.8231765072073307`*^9, 3.823359428608782*^9, 
   3.8233607804338617`*^9, 3.823360880363216*^9, 3.823361224626254*^9, 
   3.823362098931829*^9, 3.823364030688095*^9, 3.823472745219315*^9, {
   3.8235975109202147`*^9, 3.823597528650549*^9}, 3.823618495400096*^9, 
   3.823683413880138*^9, 3.823683841884781*^9, 3.823684775280538*^9, 
   3.823688794413259*^9, 3.8236907771492443`*^9, 3.823704572455369*^9, 
   3.824725754511386*^9, 3.824747127315691*^9, 3.8262145925023613`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"5b933cb7-a4af-4cab-91bd-c9e405646552"],

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

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823597528661324*^9, 3.823618495426402*^9, 
   3.8236834139074087`*^9, 3.82368384189923*^9, 3.8236847753002243`*^9, 
   3.823688794441139*^9, 3.823690777159783*^9, 3.823704572476899*^9, 
   3.824725754534666*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"c0e0b2bd-ab15-454d-a38d-aaf128ba4a7d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"16adfb14-85bf-44e2-be63-\
c8ee0bc73ee0"],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.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.824725754594036*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"6d1d585b-15d5-4e92-8754-f46439ec1633"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"8 Kb\"\>"}],
  SequenceForm["  (CleanSlate) Approximate kernel memory recovered: ", "8 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.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.824725754597064*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"8dde5ad1-8937-416a-a85e-83e23483e288"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.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.824725754598502*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"6bffbb33-30ea-41d2-bc42-0eb35d52abd5"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"6d3c7914-6982-4a13-b668-39ae638471a0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"61a141f1-e521-41ad-93c2-\
698bbd061bc6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[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", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
  3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
  3.8237047861092253`*^9, 3.823704790612156*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"5e4baf18-10a8-4838-a62d-05a6b0c78c84"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[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", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.823598254375844*^9, 3.823598877146447*^9, 
  3.823598911379983*^9, 3.823618495599228*^9, 3.823683414107848*^9, 
  3.823683842051852*^9, 3.823684775483016*^9, 3.82368879462633*^9, 
  3.823690777330206*^9, 3.823691323069952*^9, 3.823704572638439*^9, 
  3.823704791783836*^9, 3.8247257546638412`*^9, 3.8247287668446617`*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"4be1f192-1338-4f8d-a8e0-574d81637a3d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.824728766844865*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"b5a97432-4bcd-4966-99dd-8b8448fd0a99"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"a5c564f4-aad5-4836-92df-\
f1c8b180fa2a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"914697e8-02af-4f38-a7f8-3c8efd8b682b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"827b1e07-b0d0-4f6c-af57-6e2d06c09147"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8554891259795856`*^9, 
  3.855489142402775*^9}},ExpressionUUID->"fdfde094-509f-42a5-8243-\
0ba665475b92"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", "1"}], 
      SqrtBox["2"]], ")"}], "du", " ", "dv"}], " ", "+", " ", 
   RowBox[{"t", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["dx", "2"], "+", 
      SuperscriptBox["dy", "2"]}], " ", ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8554891328481913`*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"e65ca8ab-844f-4f9b-b0b2-81282de282ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"du", " ", "dv"}], 
    SqrtBox["2"]]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"]}], ")"}], " ", "t"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8554891328484364`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"660b6fc9-f112-4c2b-99f2-fb84211d72a5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineTometric", "[", " ", 
    RowBox[{"eq2", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric2", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.855489132848631*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"10261612-36b9-407d-812f-fbfb0e48549d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]]}], "0", "0"},
     {
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]]}], "0", "0", "0"},
     {"0", "0", "t", "0"},
     {"0", "0", "0", "t"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.855489132848826*^9},
 CellLabel->
  "Out[10]//MatrixForm=",ExpressionUUID->"dbb3ac98-77e4-4600-8c86-\
b396ea46beaf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 3", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.855489145355839*^9, 
  3.855489161794395*^9}},ExpressionUUID->"151aa0ba-c7a1-4621-b556-\
8ccdb804386a"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        FractionBox[
         RowBox[{"-", "1"}], 
         SqrtBox["2"]], ")"}], 
       RowBox[{"Exp", "[", 
        RowBox[{"4", " ", 
         RowBox[{"\[ScriptCapitalB]", "[", "u", "]"}]}], "]"}], "du", " ", 
       "dv"}], " ", "+", " ", 
      RowBox[{"t", " ", 
       RowBox[{"(", " ", 
        RowBox[{
         SuperscriptBox["dx", "2"], "+", 
         SuperscriptBox["dy", "2"]}], " ", ")"}]}]}], "  ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"A", "\[Equal]", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"\[Phi]", "[", "u", "]"}], " ", ",", " ", "0"}], " ", "}"}]}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"B", " ", "\[Equal]", " ", 
      RowBox[{"Inactive", "[", " ", 
       RowBox[{"Integrate", "[", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{
           RowBox[{"\[Phi]", "'"}], "[", "u", "]"}], "2"], " ", ",", " ", 
         "u"}], " ", "]"}], " ", "]"}]}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.855489152692808*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"d7277b6b-a273-4faf-b07a-d71c7ee90467"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"du", " ", "dv", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"4", " ", 
            RowBox[{"\[ScriptCapitalB]", "[", "u", "]"}]}]]}], 
         SqrtBox["2"]]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["dx", "2"], "+", 
          SuperscriptBox["dy", "2"]}], ")"}], " ", "t"}]}]},
     {
      RowBox[{"A", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"\[Phi]", "[", "u", "]"}], ",", "0"}], "}"}]}]},
     {
      RowBox[{"B", "\[Equal]", 
       RowBox[{"Inactive", "[", 
        RowBox[{"\[Integral]", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "u", "]"}], "2"], 
          RowBox[{"\[DifferentialD]", "u"}]}]}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.855489152693018*^9},
 CellLabel->
  "Out[13]//TableForm=",ExpressionUUID->"d1e8ccd3-470c-4e8c-a2f8-\
0dec73261ccb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineTometric", "[", 
    RowBox[{
     RowBox[{"eq3", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.855489152693162*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"72a03664-d7bc-4d75-b0ed-ea7ba81476fb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"4", " ", 
          RowBox[{"\[ScriptCapitalB]", "[", "u", "]"}]}]], 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]]}], "0", "0"},
     {
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"4", " ", 
          RowBox[{"\[ScriptCapitalB]", "[", "u", "]"}]}]], 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]]}], "0", "0", "0"},
     {"0", "0", "t", "0"},
     {"0", "0", "0", "t"}
    },
    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.855489152693336*^9},
 CellLabel->
  "Out[30]//MatrixForm=",ExpressionUUID->"ca41c0aa-eaf8-4259-a925-\
ceeecc5047f3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 4", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.855489171795479*^9, 
  3.8554891858988247`*^9}},ExpressionUUID->"a068cb69-0ec6-4a25-91dd-\
a8770bd71ad1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "=", " ", 
  RowBox[{"{", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "f"}], " ", "du", " ", "dv"}], " ", "+", " ", 
     RowBox[{"t", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"hyy", " ", 
         SuperscriptBox["dy", "2"]}], " ", "+", " ", 
        RowBox[{"2", " ", "hyz", " ", "dy", " ", "dz"}], " ", "+", " ", 
        RowBox[{"hzz", " ", 
         SuperscriptBox["dz", "2"]}]}], ")"}]}]}], " ", ",", "  ", 
    "\[IndentingNewLine]", 
    RowBox[{"A", " ", "\[Equal]", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "Ay", ",", " ", "Az"}], " ", "}"}]}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.85548917720685*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"45eef0b2-7ad0-4579-9fcc-a78c5eaf46ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "du"}], " ", "dv", " ", "f"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["dy", "2"], " ", "hyy"}], "+", 
       RowBox[{"2", " ", "dy", " ", "dz", " ", "hyz"}], "+", 
       RowBox[{
        SuperscriptBox["dz", "2"], " ", "hzz"}]}], ")"}], " ", "t"}]}], ",", 
   RowBox[{"A", "\[Equal]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "Ay", ",", "Az"}], "}"}]}]}], 
  "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.855489177207073*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"eaa720a9-3283-4265-ad9d-bf422156b6cd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "metric4", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"f", " ", "and", " ", 
    RowBox[{"h", "'"}], "s", " ", "are", " ", "functions", " ", 
    RowBox[{"of", "?"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineTometric", "[", " ", 
    RowBox[{
     RowBox[{"eq4", " ", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dy", ",", "dz"}], "}"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric4", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.855489177207234*^9},ExpressionUUID->"162781f4-62d2-465d-bfc0-\
32b6869257f6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       FractionBox["f", "2"]}], "0", "0"},
     {
      RowBox[{"-", 
       FractionBox["f", "2"]}], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"hyy", " ", "t"}], 
      RowBox[{"hyz", " ", "t"}]},
     {"0", "0", 
      RowBox[{"hyz", " ", "t"}], 
      RowBox[{"hzz", " ", "t"}]}
    },
    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", 10006.},
 CellChangeTimes->{3.855489177207427*^9},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"854d7ead-0d89-41e4-ac7e-\
30efcfbd9ea3"]
}, Closed]]
},
WindowSize->{1280, 741},
WindowMargins->{{0, Automatic}, {Automatic, -66}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"0804517a-1de7-4012-8fa3-2c14eed7e621"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1190, 19, 221, "Title",ExpressionUUID->"4e54a26c-391a-46f1-95b4-978e53817977",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1773, 43, 1300, 22, 94, "Author",ExpressionUUID->"c490f8b2-5a0b-46f4-afd8-61dd7db6f252",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3110, 70, 228, 4, 69, "Section",ExpressionUUID->"05a14516-dd7b-410e-accf-6407bffec2b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3341, 76, 433, 9, 63, "Input",ExpressionUUID->"97814ebd-4226-4f82-8836-7190500f60bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3777, 87, 1059, 17, 43, "Output",ExpressionUUID->"f34af2de-866b-4b86-af29-9fae4eb00ee6",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4873, 109, 545, 9, 55, "Section",ExpressionUUID->"55debb5a-5052-4560-bd6d-fb829b68e843",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5421, 120, 684, 11, 63, "Input",ExpressionUUID->"ee7e8d7c-76fb-40cc-8b8f-d3021fcc7266",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6108, 133, 859, 14, 43, "Output",ExpressionUUID->"5b933cb7-a4af-4cab-91bd-c9e405646552",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6970, 149, 583, 10, 84, "Input",ExpressionUUID->"8a34282f-6a2a-4404-8719-caeb983f54c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7556, 161, 1103, 19, 43, "Output",ExpressionUUID->"c0e0b2bd-ab15-454d-a38d-aaf128ba4a7d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[8696, 185, 228, 4, 55, "Section",ExpressionUUID->"16adfb14-85bf-44e2-be63-c8ee0bc73ee0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8927, 191, 1640, 44, 189, "Input",ExpressionUUID->"374b3b4f-ab06-4024-b6bf-29ea8fd96f1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10570, 237, 1309, 23, 24, "Print",ExpressionUUID->"6d1d585b-15d5-4e92-8754-f46439ec1633",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11882, 262, 1321, 23, 24, "Print",ExpressionUUID->"8dde5ad1-8937-416a-a85e-83e23483e288",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[13206, 287, 1183, 19, 41, "Output",ExpressionUUID->"6bffbb33-30ea-41d2-bc42-0eb35d52abd5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14392, 308, 246, 4, 41, "Input",ExpressionUUID->"6d3c7914-6982-4a13-b668-39ae638471a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14675, 317, 240, 4, 55, "Section",ExpressionUUID->"61a141f1-e521-41ad-93c2-698bbd061bc6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14918, 323, 3840, 88, 630, "Input",ExpressionUUID->"5e4baf18-10a8-4838-a62d-05a6b0c78c84",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[18761, 413, 3109, 98, 483, "Output",ExpressionUUID->"4be1f192-1338-4f8d-a8e0-574d81637a3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[21873, 513, 675, 16, 63, "Input",ExpressionUUID->"b5a97432-4bcd-4966-99dd-8b8448fd0a99",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[22585, 534, 362, 6, 55, "Section",ExpressionUUID->"a5c564f4-aad5-4836-92df-f1c8b180fa2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[22950, 542, 1659, 41, 126, "Input",ExpressionUUID->"914697e8-02af-4f38-a7f8-3c8efd8b682b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24612, 585, 1056, 26, 84, "Input",ExpressionUUID->"827b1e07-b0d0-4f6c-af57-6e2d06c09147",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25705, 616, 227, 4, 55, "Section",ExpressionUUID->"fdfde094-509f-42a5-8243-0ba665475b92",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25935, 622, 623, 16, 114, "Input",ExpressionUUID->"e65ca8ab-844f-4f9b-b0b2-81282de282ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26561, 640, 436, 13, 62, "Output",ExpressionUUID->"660b6fc9-f112-4c2b-99f2-fb84211d72a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27000, 655, 591, 12, 105, "Input",ExpressionUUID->"10261612-36b9-407d-812f-fbfb0e48549d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27594, 669, 941, 30, 121, "Output",ExpressionUUID->"dbb3ac98-77e4-4600-8c86-b396ea46beaf",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28572, 704, 225, 4, 55, "Section",ExpressionUUID->"151aa0ba-c7a1-4621-b556-8ccdb804386a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[28800, 710, 1501, 39, 218, "Input",ExpressionUUID->"d7277b6b-a273-4faf-b07a-d71c7ee90467",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[30304, 751, 1560, 48, 105, "Output",ExpressionUUID->"d1e8ccd3-470c-4e8c-a2f8-0dec73261ccb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[31867, 801, 636, 14, 105, "Input",ExpressionUUID->"72a03664-d7bc-4d75-b0ed-ea7ba81476fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[32506, 817, 1193, 36, 129, "Output",ExpressionUUID->"ca41c0aa-eaf8-4259-a925-ceeecc5047f3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[33736, 858, 227, 4, 55, "Section",ExpressionUUID->"a068cb69-0ec6-4a25-91dd-a8770bd71ad1",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[33966, 864, 957, 23, 132, "Input",ExpressionUUID->"45eef0b2-7ad0-4579-9fcc-a78c5eaf46ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[34926, 889, 700, 20, 44, "Output",ExpressionUUID->"eaa720a9-3283-4265-ad9d-bf422156b6cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[35629, 911, 821, 20, 105, "Input",ExpressionUUID->"162781f4-62d2-465d-bfc0-32b6869257f6",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[36453, 933, 961, 30, 121, "Output",ExpressionUUID->"854d7ead-0d89-41e4-ac7e-30efcfbd9ea3",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]]
}
]
*)