Colliding Impulsive Gravitational Waves by Nutku & Halil.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[    104282,       2705]
NotebookOptionsPosition[     95620,       2555]
NotebookOutlinePosition[     96086,       2572]
CellTagsIndexPosition[     96043,       2569]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Colliding Impulsive Gravitational Waves by Nutku & Halil\
\>", "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.855396647736411*^9, 3.855396664014642*^9}},
 TextAlignment->Center,ExpressionUUID->"83e7e5b3-c908-4ab8-a030-4eada512ad44"],

Cell["\<\
Geoff Cope
University of Utah
                                                                              \
                               \|01040f\|01042d\|01044c\|010432\|010442\
\|010432\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\
\|01042d\|01043b\|01042b
March 24, 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.825859229609981*^9, 3.825859230168909*^9}, {
   3.850737092718917*^9, 3.850737113741796*^9}, 3.8521317157482023`*^9, {
   3.852133617349394*^9, 3.852133621456737*^9}, 3.852135095983374*^9, {
   3.855278199136589*^9, 3.855278202761684*^9}, {3.85530587854508*^9, 
   3.8553058892272778`*^9}, {3.8553121648813953`*^9, 3.85531217383519*^9}, {
   3.855335650055236*^9, 3.8553356542498093`*^9}, {3.855394144328237*^9, 
   3.8553941445284863`*^9}, {3.855395278880085*^9, 3.855395287327427*^9}, {
   3.8553966640147123`*^9, 3.855396668768675*^9}},
 TextAlignment->Center,ExpressionUUID->"d9e17dcf-4d23-442a-984a-0fa42e0ce9f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"4dfed11b-bcf6-426e-b9fb-\
36effac59bb1"],

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[14]:=",ExpressionUUID->"4edbed52-7686-4cc6-b4ee-c01512540c81"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9, 
   3.824644896879627*^9, 3.824646374047151*^9, 3.824647481799861*^9, 
   3.824807973110347*^9, 3.8248083404553423`*^9, 3.824809928548235*^9, 
   3.824815880975711*^9, 3.824827727169653*^9, 3.824828710755515*^9, 
   3.824830829998102*^9, 3.82484124110428*^9, 3.8255736415445013`*^9, 
   3.825574559783659*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"145046cf-260e-43e4-9149-b985955c35bd"]
}, 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.824848087882504*^9, {
   3.825573628016843*^9, 3.8255736317446117`*^9}, 
   3.8430883479055233`*^9},ExpressionUUID->"eae53019-1aa4-4571-847c-\
a7cb3a035fa2"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding Impulsive Gravitational Waves by Nutku & Halil\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prl/abstract/10.1103/PhysRevLett.39.1379\>\"\
"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824842475274252*^9, 3.8248425362330837`*^9}, {
  3.8248480830757236`*^9, 3.824848085262281*^9}, {3.825573613001954*^9, 
  3.825573624800455*^9}, {3.8262115978084507`*^9, 3.826211599086651*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"a80ff5c1-dce4-436e-b648-a5de4ff82bd4"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Impulsive Gravitational Waves by Nutku & Halil\"", 
   "https://journals.aps.org/prl/abstract/10.1103/PhysRevLett.39.1379"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.824842499804991*^9, 3.8248425362333384`*^9, 
  3.825573641640646*^9, 3.825574559863014*^9, 3.826211600516666*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"898b9115-bc43-454b-a212-a300edff10db"],

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[16]:=",ExpressionUUID->"a8c4a079-fdff-441c-abbd-01d15950a220"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823597528661324*^9, 3.823618495426402*^9, 
   3.8236834139074087`*^9, 3.82368384189923*^9, 3.8236847753002243`*^9, 
   3.823688794441139*^9, 3.823690777159783*^9, 3.823704572476899*^9, 
   3.8239670361242037`*^9, 3.82396751791289*^9, 3.823970038722382*^9, 
   3.8240256821512117`*^9, 3.824032150379888*^9, 3.824644897011421*^9, 
   3.824646374096487*^9, 3.824647481983837*^9, 3.824807973283132*^9, 
   3.824808340506288*^9, 3.824809928592203*^9, 3.824815881176374*^9, 
   3.824827727257903*^9, 3.824828710811818*^9, 3.824830830173237*^9, 
   3.8248412412806*^9, 3.825573641656117*^9, 3.825574559875574*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"102c7f97-f730-456a-821b-18ca8fafeefe"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"f545753e-bef5-4b56-ae2f-\
896ab35aff69"],

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[17]:=",ExpressionUUID->"54d5aa92-ac47-4d85-9367-92663884fafa"],

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.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},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"5c4dac09-6762-4cd7-a664-a947f4386000"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"74 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "74 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.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.8255745600252533`*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"5ac062c9-31d9-418b-969e-0b24e9d08399"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", ",", "\<\"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.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},
 CellLabel->"Out[0]=",ExpressionUUID->"341e5f05-9a2d-4a0e-949b-a8b42c20475a"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"e7fa7702-3a87-41bf-a63a-9ff5072a2eb7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 3.824807751287888*^9, 
   3.8248156967874126`*^9},ExpressionUUID->"e3bcb345-a1be-4ff2-969c-\
3ea0a1756b8c"],

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", "[", "\[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", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, {3.824032529537923*^9, 
   3.8240325755969877`*^9}, 3.824807751288042*^9, {3.824809025073007*^9, 
   3.824809029711959*^9}, {3.824809216502654*^9, 3.8248092321019506`*^9}, {
   3.8248092640072527`*^9, 3.824809268046013*^9}, 3.824815696787575*^9, {
   3.824828005781843*^9, 3.824828009603393*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"806f42d7-2c07-4dd9-aa96-14426b45f0ce"],

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", "[", "\[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", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.82403258232056*^9, 3.824644897158078*^9, 
  3.824646374242673*^9, 3.824647482166779*^9, 3.824807751288147*^9, 
  3.8248079734933023`*^9, 3.8248083406807423`*^9, 3.824809030387142*^9, 
  3.824809232576869*^9, 3.824809268459838*^9, 3.8248099287703533`*^9, 
  3.824815696787702*^9, 3.82481588131142*^9, 3.824827727436406*^9, 
  3.824828009972035*^9, 3.8248287109950323`*^9, 3.824830830296404*^9, 
  3.8248412414455757`*^9, 3.825573641831684*^9, 3.825574396350459*^9, 
  3.825574560058366*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"2135031a-a532-4200-a45f-7584df64384a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "/:", 
    RowBox[{"Dt", "[", "\[Alpha]", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.824807751288227*^9, 3.824815696787796*^9, {3.824827901084373*^9, 
   3.824827909499028*^9}, {3.8248413499213877`*^9, 3.824841360168249*^9}, {
   3.8248417593019543`*^9, 3.824841768196869*^9}, {3.825574195472499*^9, 
   3.82557420335996*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"09da3d4d-7621-4d06-b97a-eb1cd24d2484"]
}, 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->"dcb6fb3e-df0b-44e0-90fd-\
3d7ee59b97b2"],

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[7]:=",ExpressionUUID->"0cf982af-26a6-4bd3-8cf0-228ab1dc3fe3"],

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[9]:=",ExpressionUUID->"4f5583d1-f0d4-48a1-927d-b11ce977d13f"]
}, Closed]],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[Theta]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "[", "u_", "]"}], ":=", " ", 
  RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8255736786480494`*^9, 3.825573693758993*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"0627c565-8b4a-4016-9ac1-75fcbbb327d5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[Delta]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "[", "u_", "]"}], ":=", " ", 
  RowBox[{"DiracDelta", "[", "u", "]"}]}]}], "Input",
 CellChangeTimes->{{3.825573696143176*^9, 3.8255737128629627`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"5179fa70-796d-4108-b34f-00f2443368e2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq1", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Must", " ", "be", " ", "a", " ", "misprint", " ", "in", " ", "original", 
    " ", 
    RowBox[{"paper", ":", " ", 
     RowBox[{"need", " ", "last", " ", "term", " ", "to", " ", "be", " ", 
      SuperscriptBox["d\[ScriptU]", "2"], " ", "to", " ", "give", " ", "unit",
       " ", "of", " ", "square", " ", "length"}]}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], " ", "-", " ", 
   SuperscriptBox["d\[ScriptX]", "2"], "-", " ", 
   SuperscriptBox["d\[ScriptY]", "2"], " ", "-", " ", 
   RowBox[{"2", " ", 
    RowBox[{"H", "[", 
     RowBox[{"\[ScriptX]", ",", "\[ScriptY]"}], "]"}], " ", 
    RowBox[{"\[Delta]", "[", "\[ScriptU]", "]"}], " ", 
    SuperscriptBox["d\[ScriptU]", "2"]}]}]}]}], "Input",
 CellChangeTimes->{{3.825573728958892*^9, 3.825573782142501*^9}, 
   3.825573904918963*^9, {3.8255742602170477`*^9, 3.825574268878537*^9}, {
   3.825574501418068*^9, 3.825574540025338*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"af40e7be-bb02-40b0-8b9b-738352aeaab8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "-", 
  SuperscriptBox["d\[ScriptX]", "2"], "-", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", 
   RowBox[{"DiracDelta", "[", "\[ScriptU]", "]"}], " ", 
   RowBox[{"H", "[", 
    RowBox[{"\[ScriptX]", ",", "\[ScriptY]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.825573783279991*^9, 3.825573875104168*^9, 
  3.825573905688088*^9, 3.825574269384089*^9, 3.8255745601205463`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"1c8321d8-c9d1-4086-b7ec-ee72a76a5711"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq1", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "d\[ScriptU]", ",", "d\[ScriptV]", ",", "d\[ScriptX]", ",", 
      "d\[ScriptY]"}], "}"}]}], "]"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.825573786670485*^9, 3.8255738390438843`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"c697e2d9-25d4-498f-9fe7-fbf050937bc2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"DiracDelta", "[", "\[ScriptU]", "]"}], " ", 
       RowBox[{"H", "[", 
        RowBox[{"\[ScriptX]", ",", "\[ScriptY]"}], "]"}]}], "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", "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.825573806561844*^9, 3.8255738395213013`*^9, 
  3.825573914638332*^9, 3.825574278028955*^9, 3.825574490944993*^9, 
  3.825574560129242*^9},
 CellLabel->
  "Out[17]//MatrixForm=",ExpressionUUID->"c5e90760-f82d-4a50-9ef3-\
266ca9780c01"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"H", "[", 
    RowBox[{"\[ScriptX]", ",", "\[ScriptY]"}], "]"}], "\[Rule]", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ScriptX]", "2"], "-", 
       SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
     RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", "+", " ", 
    RowBox[{"\[ScriptX]", " ", "\[ScriptY]", " ", 
     RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}]}]}], "Input",
 CellChangeTimes->{{3.825574577459491*^9, 3.8255746218506823`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"723a5a4b-5a42-49ac-bd31-5537fb4b72e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"H", "[", 
   RowBox[{"\[ScriptX]", ",", "\[ScriptY]"}], "]"}], "\[Rule]", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ScriptX]", "2"], "-", 
      SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
    RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
   RowBox[{"\[ScriptX]", " ", "\[ScriptY]", " ", 
    RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.8255746234043303`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"2eabab8e-a634-4906-a1b4-31e62f05bc71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq1", " ", "/.", " ", "eq2", " "}]], "Input",
 CellChangeTimes->{{3.825574650051731*^9, 3.825574653609844*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"b0556f2c-5252-44f1-94f5-49f62a1d6839"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "-", 
  SuperscriptBox["d\[ScriptX]", "2"], "-", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", 
   RowBox[{"DiracDelta", "[", "\[ScriptU]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ScriptX]", "2"], "-", 
        SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
      RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
     RowBox[{"\[ScriptX]", " ", "\[ScriptY]", " ", 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.825574654076849*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"1a5a7b59-5998-4dca-98bb-782993c24271"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq1", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{
       "d\[ScriptU]", ",", "d\[ScriptV]", ",", "d\[ScriptX]", ",", 
        "d\[ScriptY]"}], "}"}]}], "]"}], "  ", "/.", " ", "eq2"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1", " ", "//", "  ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.825574641033865*^9, 3.825574644322053*^9}, {
  3.8255750877962313`*^9, 3.825575105006543*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"cff89af3-f139-44a8-8f02-0fb0fb4da1e1"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"DiracDelta", "[", "\[ScriptU]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ScriptX]", "2"], "-", 
            SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
         RowBox[{"\[ScriptX]", " ", "\[ScriptY]", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", "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.825575105599921*^9},
 CellLabel->
  "Out[65]//MatrixForm=",ExpressionUUID->"fc55ba6c-f64e-4bc7-9a69-\
947a08330fa8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", "M"}], "]"}], "  ", "du", " ", "dv"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"-", "U"}], "]"}], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", "V", "]"}], " ", 
       RowBox[{"Cosh", "[", "W", "]"}], " ", 
       SuperscriptBox["dx", "2"]}], "-", " ", 
      RowBox[{"2", " ", 
       RowBox[{"Sinh", "[", "W", "]"}], " ", "dx", " ", "dy"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"-", "V"}], "]"}], " ", 
       RowBox[{"Cosh", "[", "W", "]"}], " ", 
       SuperscriptBox["dy", "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellChangeTimes->{{3.82432269302442*^9, 3.8243227649143972`*^9}, {
   3.824322921684033*^9, 3.824322926461707*^9}, 3.824381992524996*^9, {
   3.82557502442854*^9, 3.825575030851207*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"2d6f5903-0331-4dcb-9a25-7be7c8e349f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "M"}]]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "U"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["dy", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "V"}]], " ", 
      RowBox[{"Cosh", "[", "W", "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", "V"], " ", 
      RowBox[{"Cosh", "[", "W", "]"}]}], "-", 
     RowBox[{"2", " ", "dx", " ", "dy", " ", 
      RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.825575050257531*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"2008ab47-6dbe-499e-8180-57b897958a6b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq3", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.82557505278891*^9, 3.8255750809795313`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"a24c05c0-00d7-423b-94f5-292e38f9ac79"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "M"}]], "0", "0"},
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "M"}]], "0", "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "U"}], "+", "V"}]]}], " ", 
       RowBox[{"Cosh", "[", "W", "]"}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "U"}]], " ", 
       RowBox[{"Sinh", "[", "W", "]"}]}]},
     {"0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "U"}]], " ", 
       RowBox[{"Sinh", "[", "W", "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "U"}], "-", "V"}]]}], " ", 
       RowBox[{"Cosh", "[", "W", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.825575060297083*^9, 3.825575081399845*^9}},
 CellLabel->
  "Out[61]//MatrixForm=",ExpressionUUID->"86f4f919-150b-452e-85f6-\
abfe443080f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4", " ", "=", " ", 
   RowBox[{"{", "\n", "       ", 
    RowBox[{
     RowBox[{"\[ScriptX]", " ", "\[Equal]", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"u", " ", 
           RowBox[{"\[Theta]", "[", "u", "]"}], " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], " ", ")"}], " ", "x"}], 
       " ", "+", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{"u", " ", 
          RowBox[{"\[Theta]", "[", "u", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ")"}], "y"}]}]}], " ", ",",
      " ", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptY]", " ", "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"u", " ", 
           RowBox[{"\[Theta]", "[", "u", "]"}], " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], ")"}], "y"}], " ", "+", 
       
       RowBox[{
        RowBox[{"(", 
         RowBox[{"u", " ", 
          RowBox[{"\[Theta]", "[", "u", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ")"}], "x"}]}]}], " ", ",",
      " ", "\[IndentingNewLine]", 
     RowBox[{"\[ScriptU]", " ", "\[Equal]", " ", "u"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[ScriptV]", " ", "\[Equal]", " ", 
      RowBox[{"v", " ", "+", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{
           FractionBox["1", "2"], 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}], 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["x", "2"], "-", 
             SuperscriptBox["y", "2"]}], ")"}]}], " ", "+", " ", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Alpha]", "]"}], "x", " ", "y"}]}], " ", 
         ")"}], " ", 
        RowBox[{"\[Theta]", "[", "u", "]"}]}], " ", "+", " ", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], ")"}], "u", " ", 
        RowBox[{"\[Theta]", "[", "u", "]"}]}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq4", "  ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], "//", " ", 
  "TableForm"}]}], "Input",
 CellChangeTimes->{{3.825573859872994*^9, 3.8255738621615133`*^9}, {
  3.825573934390128*^9, 3.825573940486195*^9}, {3.82557398904326*^9, 
  3.825574158301465*^9}, {3.825574690845036*^9, 3.82557471513025*^9}, {
  3.825574747450296*^9, 3.825574763305386*^9}, {3.8255751828560343`*^9, 
  3.825575190839176*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"ae1e4e95-c279-41df-8234-6e91e7cafc21"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[ScriptX]", "\[Rule]", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"u", " ", "y", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}]},
     {
      RowBox[{"\[ScriptY]", "\[Rule]", 
       RowBox[{
        RowBox[{"y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"u", " ", "x", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}]},
     {
      RowBox[{"\[ScriptU]", "\[Rule]", "u"}]},
     {
      RowBox[{"\[ScriptV]", "\[Rule]", 
       RowBox[{"v", "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "u", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}], " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
        RowBox[{
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["x", "2"], "-", 
              SuperscriptBox["y", "2"]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
           RowBox[{"x", " ", "y", " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]}]}]}
    },
    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.825574152855832*^9, 3.825574560157748*^9, {3.825574756311799*^9, 
   3.825574763806592*^9}, 3.825575207851431*^9},
 CellLabel->
  "Out[68]//TableForm=",ExpressionUUID->"d217ee5b-6723-4852-9d26-\
957f56f1c87c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", 
    RowBox[{"(", " ", 
     RowBox[{"eq4", "  ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], "]"}], " ", "/.",
    " ", "dtReplace"}], "  ", "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.8255741700939703`*^9, 3.825574181789132*^9}, {
  3.825574816963244*^9, 3.825574817349597*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"30201205-73e9-4d2b-89d2-a68e61de2173"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"d\[ScriptX]", "\[Rule]", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"du", " ", "u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"DiracDelta", "[", "u", "]"}]}], "+", 
           RowBox[{"du", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"dx", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"du", " ", "u", " ", "y", " ", 
         RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"dy", " ", "u", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"du", " ", "y", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}]},
     {
      RowBox[{"d\[ScriptY]", "\[Rule]", 
       RowBox[{
        RowBox[{"y", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "du"}], " ", "u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"DiracDelta", "[", "u", "]"}]}], "-", 
           RowBox[{"du", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"dy", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"du", " ", "u", " ", "x", " ", 
         RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"dx", " ", "u", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"du", " ", "x", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}]},
     {
      RowBox[{"d\[ScriptU]", "\[Rule]", "du"}]},
     {
      RowBox[{"d\[ScriptV]", "\[Rule]", 
       RowBox[{"dv", "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "du", " ", "u", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}], " ", 
         RowBox[{"DiracDelta", "[", "u", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "u", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "dx", " ", "x"}], "+", 
           RowBox[{"2", " ", "dy", " ", "y"}]}], ")"}], " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "du", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}], " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
        RowBox[{
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "dx", " ", "x"}], "-", 
              RowBox[{"2", " ", "dy", " ", "y"}]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
           RowBox[{"dy", " ", "x", " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
           RowBox[{"dx", " ", "y", " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"du", " ", 
         RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["x", "2"], "-", 
              SuperscriptBox["y", "2"]}], ")"}], " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
           RowBox[{"x", " ", "y", " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]}]}]}
    },
    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.825574175892308*^9, 3.8255741823357973`*^9}, 
   3.8255742311763268`*^9, 3.8255745601706877`*^9, 3.8255748182480583`*^9, 
   3.825575210626926*^9},
 CellLabel->
  "Out[69]//TableForm=",ExpressionUUID->"93e348bb-95ce-4665-ac46-\
14c026fc354c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"eq1", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1", " ", "/.", " ", "eq2"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq1", " ", "/.", " ", "eq2"}], " ", "/.", "  ", 
   RowBox[{"(", " ", 
    RowBox[{"eq4", "  ", "/.", " ", 
     RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq3a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq1", " ", "/.", " ", "eq2"}], " ", "/.", "  ", 
    RowBox[{"(", " ", 
     RowBox[{"eq4", "  ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "/.", 
   " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"Dt", "[", 
      RowBox[{"(", " ", 
       RowBox[{"eq4", "  ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], "]"}], " ", "/.",
      " ", "dtReplace"}], " ", ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.8255747747544003`*^9, 3.825574877641636*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"d962b9a6-23a7-4d31-8351-e3114337e02b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "-", 
  SuperscriptBox["d\[ScriptX]", "2"], "-", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", 
   RowBox[{"DiracDelta", "[", "\[ScriptU]", "]"}], " ", 
   RowBox[{"H", "[", 
    RowBox[{"\[ScriptX]", ",", "\[ScriptY]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.825574776026165*^9, 3.8255748456311903`*^9}, 
   3.825574878512425*^9, 3.825575215391045*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"8ff2733a-afef-4429-87a9-f59bb834de42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "-", 
  SuperscriptBox["d\[ScriptX]", "2"], "-", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", 
   RowBox[{"DiracDelta", "[", "\[ScriptU]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ScriptX]", "2"], "-", 
        SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
      RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
     RowBox[{"\[ScriptX]", " ", "\[ScriptY]", " ", 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.825574776026165*^9, 3.8255748456311903`*^9}, 
   3.825574878512425*^9, 3.825575215394044*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"63ed46dc-73dc-443a-9ca5-f1c362e7acf5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "-", 
  SuperscriptBox["d\[ScriptX]", "2"], "-", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", 
   RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"u", " ", "x", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"u", " ", "y", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"u", " ", 
                RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
            RowBox[{"u", " ", "x", " ", 
             RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
             RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"u", " ", 
               RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
               RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
           RowBox[{"u", " ", "y", " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], "2"]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.825574776026165*^9, 3.8255748456311903`*^9}, 
   3.825574878512425*^9, 3.8255752153973017`*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"febfad6f-ae0e-47c3-ab6c-b076c8ece6a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"y", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "du"}], " ", "u", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
          RowBox[{"DiracDelta", "[", "u", "]"}]}], "-", 
         RowBox[{"du", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
          RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
      RowBox[{"dy", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"u", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
          RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
      RowBox[{"du", " ", "u", " ", "x", " ", 
       RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
      RowBox[{"dx", " ", "u", " ", 
       RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
      RowBox[{"du", " ", "x", " ", 
       RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], "2"]}], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"du", " ", "u", " ", 
         RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
         RowBox[{"DiracDelta", "[", "u", "]"}]}], "+", 
        RowBox[{"du", " ", 
         RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
     RowBox[{"dx", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"u", " ", 
         RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
     RowBox[{"du", " ", "u", " ", "y", " ", 
      RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
     RowBox[{"dy", " ", "u", " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
     RowBox[{"du", " ", "y", " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], "2"], "+", 
  RowBox[{"2", " ", "du", " ", 
   RowBox[{"(", 
    RowBox[{"dv", "+", 
     RowBox[{
      FractionBox["1", "2"], " ", "du", " ", "u", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "2"], "+", 
        SuperscriptBox["y", "2"]}], ")"}], " ", 
      RowBox[{"DiracDelta", "[", "u", "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", "u", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "dx", " ", "x"}], "+", 
        RowBox[{"2", " ", "dy", " ", "y"}]}], ")"}], " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", "du", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "2"], "+", 
        SuperscriptBox["y", "2"]}], ")"}], " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
     RowBox[{
      RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "dx", " ", "x"}], "-", 
           RowBox[{"2", " ", "dy", " ", "y"}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"dy", " ", "x", " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"dx", " ", "y", " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "+", 
     RowBox[{"du", " ", 
      RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "-", 
           SuperscriptBox["y", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
        RowBox[{"x", " ", "y", " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]}], ")"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["du", "2"], " ", 
   RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"y", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"u", " ", "x", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
        RowBox[{"u", " ", "y", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"y", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"u", " ", 
                RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
                RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
            RowBox[{"u", " ", "x", " ", 
             RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
             RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"u", " ", 
               RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", 
               RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}]}], "+", 
           RowBox[{"u", " ", "y", " ", 
            RowBox[{"HeavisideTheta", "[", "u", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}], "2"]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.825574776026165*^9, 3.8255748456311903`*^9}, 
   3.825574878512425*^9, 3.8255752154020977`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"21371686-93e9-4fc8-848d-6a9e335fbe2a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric3Transformation4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3Transformation4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"lineToMetric", "[", " ", 
        RowBox[{"eq3a", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], 
       "   ", "/.", " ", 
       RowBox[{
        RowBox[{"\[Delta]", "[", "u", "]"}], "\[Rule]", " ", "1"}]}], " ", "/.",
       " ", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "u", "]"}], "\[Rule]", " ", "1"}]}], " ", "//",
      " ", "Expand"}], " ", "//", " ", "FullSimplify"}]}], "    ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3Transformation4", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.82557488210639*^9, 3.825574917306995*^9}, {
  3.825575246779972*^9, 3.8255752968181*^9}, {3.82557594751611*^9, 
  3.825575988087462*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"89393ca6-a081-4793-a01b-07cec2737544"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", "+", "u"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}]}], "+", 
         RowBox[{"u", " ", 
          RowBox[{"(", 
           RowBox[{"x", "-", "y"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"x", "+", "y"}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
         RowBox[{"2", " ", "u", " ", "x", " ", "y", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "1", 
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", " ", 
          RowBox[{"(", 
           RowBox[{"u", "+", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ")"}]}], "+", 
         RowBox[{"y", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"u", " ", "y"}], "-", 
         RowBox[{"y", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
         RowBox[{"x", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]},
     {"1", "0", "0", "0"},
     {
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", " ", 
          RowBox[{"(", 
           RowBox[{"u", "+", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ")"}]}], "+", 
         RowBox[{"y", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "0", 
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       SuperscriptBox["u", "2"], "-", 
       RowBox[{"2", " ", "u", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", "2"}], " ", "u", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", "u"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"u", " ", "y"}], "-", 
         RowBox[{"y", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
         RowBox[{"x", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "0", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "u", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "-", 
       SuperscriptBox["u", "2"], "+", 
       RowBox[{"2", " ", "u", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]}
    },
    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.82557492025727*^9, 3.8255752199435883`*^9, {3.825575255048326*^9, 
   3.825575297637581*^9}, 3.825575990390739*^9},
 CellLabel->
  "Out[108]//MatrixForm=",ExpressionUUID->"f6dae5f5-3690-43fb-af3c-\
c94667a43656"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"-", "U"}], "]"}], " ", "\[Equal]", " ", 
      RowBox[{"1", "-", 
       SuperscriptBox["p", "2"]}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"2", " ", "V"}], "]"}], " ", "\[Equal]", " ", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
         SuperscriptBox["p", "2"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
         SuperscriptBox["p", "2"]}], ")"}]]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Sinh", "[", "W", "]"}], " ", "\[Equal]", " ", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "2"}], "p", " ", 
        RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["p", "2"]}], ")"}]]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"M", " ", "\[Equal]", " ", "0"}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8255753119398613`*^9, 3.8255754323384438`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"8bc866c5-d601-4978-8c9e-15f0a6354630"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "U"}]], "\[Equal]", 
       RowBox[{"1", "-", 
        SuperscriptBox["p", "2"]}]}]},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "V"}]], "\[Equal]", 
       FractionBox[
        RowBox[{"1", "+", 
         SuperscriptBox["p", "2"], "+", 
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["p", "2"], "-", 
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]}]},
     {
      RowBox[{
       RowBox[{"Sinh", "[", "W", "]"}], "\[Equal]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
         RowBox[{"1", "-", 
          SuperscriptBox["p", "2"]}]]}]}]},
     {
      RowBox[{"M", "\[Equal]", "0"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.825575432911593*^9},
 CellLabel->
  "Out[84]//TableForm=",ExpressionUUID->"01126741-8ffc-453d-97b4-\
285e26b0f2d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"eq5", " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"U", ",", "V", ",", "M", ",", "W"}], "}"}]}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{
      RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.", " ", 
    
    RowBox[{
     RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.", " ", 
   RowBox[{
    RowBox[{"C", "[", "3", "]"}], "\[Rule]", " ", "0"}]}], "  ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.8255754537233133`*^9, 3.825575512330057*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"8919fd01-c50e-40a0-9f30-fab1abd96755"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"M", "\[Rule]", "0"}]},
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"Log", "[", 
         RowBox[{"1", "-", 
          SuperscriptBox["p", "2"]}], "]"}]}]}]},
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          RowBox[{"1", "+", 
           SuperscriptBox["p", "2"], "+", 
           RowBox[{"2", " ", "p", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
          RowBox[{"1", "+", 
           SuperscriptBox["p", "2"], "-", 
           RowBox[{"2", " ", "p", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]], "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"ArcSinh", "[", 
        FractionBox[
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["p", "2"]}]], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.825575463847186*^9, 3.825575512739504*^9}},
 CellLabel->
  "Out[92]//TableForm=",ExpressionUUID->"74eb46d2-608b-4219-8bb3-\
1646a41198df"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"p", " ", "\[Equal]", " ", 
    RowBox[{"u", " ", 
     RowBox[{"\[Theta]", "[", "u", "]"}]}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq6", " ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}], " "}]}], "Input",\

 CellChangeTimes->{{3.82557543605208*^9, 3.825575449610306*^9}, {
  3.825575756698674*^9, 3.825575772249086*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"d7779566-bb24-4732-b00c-02f39a03f93c"],

Cell[BoxData[
 RowBox[{"p", "\[Rule]", 
  RowBox[{"u", " ", 
   RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.8255754504778852`*^9, {3.825575766560542*^9, 3.82557577269917*^9}},
 CellLabel->
  "Out[103]=",ExpressionUUID->"8ffb9905-13b4-4390-9e23-4d17ec3cd6bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"eq3", " "}], "\[IndentingNewLine]", 
 RowBox[{"eq3", "  ", "/.", " ", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{"eq5", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"U", ",", "V", ",", "M", ",", "W"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{
       RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.", " ", 
     RowBox[{
      RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.", " ", 
    
    RowBox[{
     RowBox[{"C", "[", "3", "]"}], "\[Rule]", " ", "0"}]}], "  ", 
   ")"}]}]}], "Input",
 CellChangeTimes->{{3.8255755454940968`*^9, 3.825575580108734*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"4223ecbe-d6e1-404f-ab4f-419ac59621b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "M"}]]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "U"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["dy", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "V"}]], " ", 
      RowBox[{"Cosh", "[", "W", "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", "V"], " ", 
      RowBox[{"Cosh", "[", "W", "]"}]}], "-", 
     RowBox[{"2", " ", "dx", " ", "dy", " ", 
      RowBox[{"Sinh", "[", "W", "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.825575546544608*^9, 3.8255755805643387`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"4a827800-b0b3-4453-bcf3-6e68867b7916"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["p", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"4", " ", "dx", " ", "dy", " ", "p", " ", 
        RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["p", "2"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["dy", "2"], " ", 
       SqrtBox[
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["p", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}], "2"]]}]]}], 
      SqrtBox[
       FractionBox[
        RowBox[{"1", "+", 
         SuperscriptBox["p", "2"], "+", 
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["p", "2"], "-", 
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]]], "+", 
     RowBox[{
      SuperscriptBox["dx", "2"], " ", 
      SqrtBox[
       FractionBox[
        RowBox[{"1", "+", 
         SuperscriptBox["p", "2"], "+", 
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["p", "2"], "-", 
         RowBox[{"2", " ", "p", " ", 
          RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]], " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"4", " ", 
          SuperscriptBox["p", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["p", "2"]}], ")"}], "2"]]}]]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.825575546544608*^9, 3.82557558056866*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"aa1a9779-038b-4ebd-a735-403c08c229ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"eq3", "  ", "/.", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{"eq5", " ", ",", " ", 
               RowBox[{"{", 
                RowBox[{"U", ",", "V", ",", "M", ",", "W"}], "}"}]}], "]"}], 
             "[", 
             RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
            RowBox[{
             RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.",
            " ", 
           RowBox[{
            RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.",
           " ", 
          RowBox[{
           RowBox[{"C", "[", "3", "]"}], "\[Rule]", " ", "0"}]}], "  ", 
         ")"}]}], ")"}], ",", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], " ", "//",
     " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.825575630984569*^9, 3.8255756615638723`*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"eca6cef1-5bc4-4960-b214-5ed28bb3dfe9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["p", "2"]}], ")"}], " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "+", 
          SuperscriptBox["p", "2"], "+", 
          RowBox[{"2", " ", "p", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["p", "2"], "-", 
          RowBox[{"2", " ", "p", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]], " ", 
       SqrtBox[
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["p", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}], "2"]]}]]}], 
      RowBox[{
       RowBox[{"-", "2"}], " ", "p", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "p", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["p", "2"]}], ")"}], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{"1", "+", 
           SuperscriptBox["p", "4"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["p", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}], "2"]]]}], 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "+", 
          SuperscriptBox["p", "2"], "+", 
          RowBox[{"2", " ", "p", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["p", "2"], "-", 
          RowBox[{"2", " ", "p", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]]]}
    },
    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.825575649205665*^9, 3.825575662862072*^9}},
 CellLabel->
  "Out[97]//MatrixForm=",ExpressionUUID->"a795e9df-b5dc-4d13-abcb-\
1f5548d5740a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric3Transformation5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric3Transformation5", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"eq3", "  ", "/.", " ", 
           RowBox[{"(", " ", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{"eq5", " ", ",", " ", 
                  RowBox[{"{", 
                   RowBox[{"U", ",", "V", ",", "M", ",", "W"}], "}"}]}], 
                 "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
               RowBox[{
                RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.",
               " ", 
              RowBox[{
               RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", "0"}]}], "  ", "/.",
              " ", 
             RowBox[{
              RowBox[{"C", "[", "3", "]"}], "\[Rule]", " ", "0"}]}], "  ", 
            ")"}]}], "/.", " ", 
          RowBox[{"(", " ", 
           RowBox[{"eq6", " ", "/.", " ", 
            RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "/.", 
         " ", 
         RowBox[{
          RowBox[{"\[Theta]", "[", "u", "]"}], "\[Rule]", " ", "1"}]}], "  ", 
        ")"}], ",", 
       RowBox[{"{", 
        RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], " ", 
     "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric3Transformation5", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.825575812055532*^9, 3.8255758360309067`*^9}, {
  3.825576007399993*^9, 3.825576024212327*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"dca4c245-b967-45a6-8b6e-64a7e6758265"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["u", "2"]}], ")"}], " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "+", 
          SuperscriptBox["u", "2"], "+", 
          RowBox[{"2", " ", "u", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["u", "2"], "-", 
          RowBox[{"2", " ", "u", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]], " ", 
       SqrtBox[
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Alpha]", "]"}], "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["u", "2"]}], ")"}], "2"]]}]]}], 
      RowBox[{
       RowBox[{"-", "2"}], " ", "u", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "u", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["u", "2"]}], ")"}], " ", 
        SqrtBox[
         FractionBox[
          RowBox[{"1", "+", 
           SuperscriptBox["u", "4"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["u", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             SuperscriptBox["u", "2"]}], ")"}], "2"]]]}], 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "+", 
          SuperscriptBox["u", "2"], "+", 
          RowBox[{"2", " ", "u", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["u", "2"], "-", 
          RowBox[{"2", " ", "u", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]]]}
    },
    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.825575816914468*^9, 3.825575837786854*^9}, 
   3.8255760254298887`*^9},
 CellLabel->
  "Out[111]//MatrixForm=",ExpressionUUID->"d4962b97-b7c4-47c6-a98a-\
b6ae14928b7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", "metric3Transformation4", "]"}], "==", 
       RowBox[{"Flatten", "[", "metric3Transformation5", " ", "]"}]}], "]"}], 
     "  ", "//", " ", "Expand"}], " ", "//", "PowerExpand"}], " ", "//", " ", 
   "Simplify"}], " ", "//", " ", "TableForm", " "}]], "Input",
 CellChangeTimes->{{3.82557608758482*^9, 3.825576173611782*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"85ae94b7-1226-4284-9ad3-33f88218096b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"3", "+", "u"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["x", "2"], "+", 
             SuperscriptBox["y", "2"]}], ")"}]}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["x", "2"], "-", 
             SuperscriptBox["y", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
          RowBox[{"2", " ", "u", " ", "x", " ", "y", " ", 
           RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "\[Equal]", 
       "0"}]},
     {"True"},
     {
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", " ", "x"}], "+", 
          RowBox[{"x", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
          RowBox[{"y", " ", 
           RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "\[Equal]", 
       "0"}]},
     {
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", " ", "y"}], "+", 
          RowBox[{"x", " ", 
           RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "\[Equal]", 
       RowBox[{"u", " ", "y", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", " ", "x"}], "+", 
          RowBox[{"x", " ", 
           RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
          RowBox[{"y", " ", 
           RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "\[Equal]", 
       "0"}]},
     {"True"},
     {
      RowBox[{
       RowBox[{"1", "+", 
        SuperscriptBox["u", "2"], "+", 
        RowBox[{"2", " ", "u", " ", 
         RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["u", "2"]}], ")"}], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            SuperscriptBox["u", "2"], "+", 
            RowBox[{"2", " ", "u", " ", 
             RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]], " ", 
          SqrtBox[
           FractionBox[
            RowBox[{"1", "+", 
             SuperscriptBox["u", "4"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["u", "2"], " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["u", "2"]}], ")"}], "2"]]]}], 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["u", "2"], "-", 
           RowBox[{"2", " ", "u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]]}], "\[Equal]", 
       "0"}]},
     {"True"},
     {
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", " ", "y"}], "+", 
          RowBox[{"x", " ", 
           RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}], "\[Equal]", 
       RowBox[{"u", " ", "y", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]},
     {"True"},
     {"True"},
     {
      RowBox[{
       RowBox[{"1", "+", 
        SuperscriptBox["u", "2"], "+", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{"1", "+", 
            SuperscriptBox["u", "2"], "-", 
            RowBox[{"2", " ", "u", " ", 
             RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]], " ", 
          SqrtBox[
           RowBox[{"1", "+", 
            SuperscriptBox["u", "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["u", "2"], " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", "\[Alpha]"}], "]"}]}]}]]}], 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["u", "2"], "+", 
           RowBox[{"2", " ", "u", " ", 
            RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]]]}], "\[Equal]", 
       RowBox[{"2", " ", "u", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]}
    },
    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.825576091917873*^9, 3.825576175131072*^9}},
 CellLabel->
  "Out[119]//TableForm=",ExpressionUUID->"bf174189-dd86-4dcb-b310-\
edd3ce4b71eb"]
}, Open  ]]
},
WindowSize->{1258, 668},
WindowMargins->{{7, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"8390a308-ef53-44e2-9781-91540a405a64"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1693, 25, 159, "Title",ExpressionUUID->"83e7e5b3-c908-4ab8-a030-4eada512ad44",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2276, 49, 1542, 25, 94, "Author",ExpressionUUID->"d9e17dcf-4d23-442a-984a-0fa42e0ce9f7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3855, 79, 228, 4, 69, "Section",ExpressionUUID->"4dfed11b-bcf6-426e-b9fb-36effac59bb1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4086, 85, 434, 9, 63, "Input",ExpressionUUID->"4edbed52-7686-4cc6-b4ee-c01512540c81",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4523, 96, 1461, 23, 43, "Output",ExpressionUUID->"145046cf-260e-43e4-9149-b985955c35bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6021, 124, 621, 10, 55, "Section",ExpressionUUID->"eae53019-1aa4-4571-847c-a7cb3a035fa2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6645, 136, 606, 11, 63, "Input",ExpressionUUID->"a80ff5c1-dce4-436e-b648-a5de4ff82bd4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7254, 149, 467, 8, 43, "Output",ExpressionUUID->"898b9115-bc43-454b-a212-a300edff10db",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7724, 159, 584, 10, 84, "Input",ExpressionUUID->"a8c4a079-fdff-441c-abbd-01d15950a220",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8311, 171, 1499, 24, 43, "Output",ExpressionUUID->"102c7f97-f730-456a-821b-18ca8fafeefe",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[9847, 200, 228, 4, 55, "Section",ExpressionUUID->"f545753e-bef5-4b56-ae2f-896ab35aff69",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10078, 206, 1641, 44, 189, "Input",ExpressionUUID->"54d5aa92-ac47-4d85-9367-92663884fafa",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11722, 252, 1735, 29, 24, "Print",ExpressionUUID->"5c4dac09-6762-4cd7-a664-a947f4386000",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[13460, 283, 1754, 30, 24, "Print",ExpressionUUID->"5ac062c9-31d9-418b-969e-0b24e9d08399",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[15217, 315, 1961, 31, 63, "Output",ExpressionUUID->"341e5f05-9a2d-4a0e-949b-a8b42c20475a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[17181, 348, 246, 4, 41, "Input",ExpressionUUID->"e7fa7702-3a87-41bf-a63a-9ff5072a2eb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[17464, 357, 290, 5, 55, "Section",ExpressionUUID->"e3bcb345-a1be-4ff2-969c-3ea0a1756b8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[17757, 364, 5359, 119, 819, "Input",ExpressionUUID->"806f42d7-2c07-4dd9-aa96-14426b45f0ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23119, 485, 4157, 129, 645, "Output",ExpressionUUID->"2135031a-a532-4200-a45f-7584df64384a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[27279, 616, 750, 14, 41, "Input",ExpressionUUID->"09da3d4d-7621-4d06-b97a-eb1cd24d2484",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28066, 635, 362, 6, 55, "Section",ExpressionUUID->"dcb6fb3e-df0b-44e0-90fd-3d7ee59b97b2",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[28431, 643, 1659, 41, 126, "Input",ExpressionUUID->"0cf982af-26a6-4bd3-8cf0-228ab1dc3fe3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[30093, 686, 1055, 26, 84, "Input",ExpressionUUID->"4f5583d1-f0d4-48a1-927d-b11ce977d13f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[31163, 715, 347, 6, 60, "Input",ExpressionUUID->"0627c565-8b4a-4016-9ac1-75fcbbb327d5"],
Cell[31513, 723, 343, 6, 63, "Input",ExpressionUUID->"5179fa70-796d-4108-b34f-00f2443368e2"],
Cell[CellGroupData[{
Cell[31881, 733, 1210, 25, 84, "Input",ExpressionUUID->"af40e7be-bb02-40b0-8b9b-738352aeaab8"],
Cell[33094, 760, 602, 12, 41, "Output",ExpressionUUID->"1c8321d8-c9d1-4086-b7ec-ee72a76a5711"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33733, 777, 423, 10, 41, "Input",ExpressionUUID->"c697e2d9-25d4-498f-9fe7-fbf050937bc2"],
Cell[34159, 789, 1047, 30, 101, "Output",ExpressionUUID->"c5e90760-f82d-4a50-9ef3-266ca9780c01"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35243, 824, 750, 17, 102, "Input",ExpressionUUID->"723a5a4b-5a42-49ac-bd31-5537fb4b72e7"],
Cell[35996, 843, 584, 15, 56, "Output",ExpressionUUID->"2eabab8e-a634-4906-a1b4-31e62f05bc71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36617, 863, 214, 3, 41, "Input",ExpressionUUID->"b0556f2c-5252-44f1-94f5-49f62a1d6839"],
Cell[36834, 868, 816, 20, 56, "Output",ExpressionUUID->"1a5a7b59-5998-4dca-98bb-782993c24271"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37687, 893, 709, 15, 105, "Input",ExpressionUUID->"cff89af3-f139-44a8-8f02-0fb0fb4da1e1"],
Cell[38399, 910, 1272, 37, 111, "Output",ExpressionUUID->"fc55ba6c-f64e-4bc7-9a69-947a08330fa8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39708, 952, 1095, 26, 86, "Input",ExpressionUUID->"2d6f5903-0331-4dcb-9a25-7be7c8e349f5"],
Cell[40806, 980, 806, 22, 44, "Output",ExpressionUUID->"2008ab47-6dbe-499e-8180-57b897958a6b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41649, 1007, 563, 11, 105, "Input",ExpressionUUID->"a24c05c0-00d7-423b-94f5-292e38f9ac79"],
Cell[42215, 1020, 1480, 45, 113, "Output",ExpressionUUID->"86f4f919-150b-452e-85f6-abfe443080f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43732, 1070, 2810, 72, 222, "Input",ExpressionUUID->"ae1e4e95-c279-41df-8234-6e91e7cafc21"],
Cell[46545, 1144, 2455, 69, 113, "Output",ExpressionUUID->"d217ee5b-6723-4852-9d26-957f56f1c87c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49037, 1218, 461, 10, 41, "Input",ExpressionUUID->"30201205-73e9-4d2b-89d2-a68e61de2173"],
Cell[49501, 1230, 5096, 129, 115, "Output",ExpressionUUID->"93e348bb-95ce-4665-ac46-14c026fc354c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54634, 1364, 1142, 27, 168, "Input",ExpressionUUID->"d962b9a6-23a7-4d31-8351-e3114337e02b"],
Cell[55779, 1393, 583, 12, 41, "Output",ExpressionUUID->"8ff2733a-afef-4429-87a9-f59bb834de42"],
Cell[56365, 1407, 890, 21, 56, "Output",ExpressionUUID->"63ed46dc-73dc-443a-9ca5-f1c362e7acf5"],
Cell[57258, 1430, 2661, 67, 115, "Output",ExpressionUUID->"febfad6f-ae0e-47c3-ab6c-b076c8ece6a0"],
Cell[59922, 1499, 6607, 172, 254, "Output",ExpressionUUID->"21371686-93e9-4fc8-848d-6a9e335fbe2a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66566, 1676, 1062, 25, 105, "Input",ExpressionUUID->"89393ca6-a081-4793-a01b-07cec2737544"],
Cell[67631, 1703, 3242, 96, 113, "Output",ExpressionUUID->"f6dae5f5-3690-43fb-af3c-c94667a43656"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70910, 1804, 1585, 40, 267, "Input",ExpressionUUID->"8bc866c5-d601-4978-8c9e-15f0a6354630"],
Cell[72498, 1846, 1518, 48, 133, "Output",ExpressionUUID->"01126741-8ffc-453d-97b4-285e26b0f2d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74053, 1899, 745, 20, 41, "Input",ExpressionUUID->"8919fd01-c50e-40a0-9f30-fab1abd96755"],
Cell[74801, 1921, 1577, 49, 135, "Output",ExpressionUUID->"74eb46d2-608b-4219-8bb3-1646a41198df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76415, 1975, 634, 16, 105, "Input",ExpressionUUID->"d7779566-bb24-4732-b00c-02f39a03f93c"],
Cell[77052, 1993, 296, 7, 41, "Output",ExpressionUUID->"8ffb9905-13b4-4390-9e23-4d17ec3cd6bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77385, 2005, 838, 22, 63, "Input",ExpressionUUID->"4223ecbe-d6e1-404f-ab4f-419ac59621b8"],
Cell[78226, 2029, 830, 22, 44, "Output",ExpressionUUID->"4a827800-b0b3-4453-bcf3-6e68867b7916"],
Cell[79059, 2053, 2237, 67, 107, "Output",ExpressionUUID->"aa1a9779-038b-4ebd-a735-403c08c229ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81333, 2125, 1242, 33, 63, "Input",ExpressionUUID->"eca6cef1-5bc4-4960-b214-5ed28bb3dfe9"],
Cell[82578, 2160, 2793, 83, 189, "Output",ExpressionUUID->"a795e9df-b5dc-4d13-abcb-1f5548d5740a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85408, 2248, 1915, 47, 126, "Input",ExpressionUUID->"dca4c245-b967-45a6-8b6e-64a7e6758265"],
Cell[87326, 2297, 2822, 84, 189, "Output",ExpressionUUID->"d4962b97-b7c4-47c6-a98a-b6ae14928b7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90185, 2386, 543, 13, 41, "Input",ExpressionUUID->"85ae94b7-1226-4284-9ad3-33f88218096b"],
Cell[90731, 2401, 4873, 151, 375, "Output",ExpressionUUID->"bf174189-dd86-4dcb-b310-edd3ce4b71eb"]
}, Open  ]]
}
]
*)