Anti DeSitter Transformations Zee page 663.nb

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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    248860,       6524]
NotebookOptionsPosition[    206728,       5930]
NotebookOutlinePosition[    207190,       5947]
CellTagsIndexPosition[    207147,       5944]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Anti DeSitter Transformations Taken From Page 663 of Zee\[CloseCurlyQuote]s \
General Relativity\
\>", "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.823437107739418*^9, 3.823437114378701*^9}, {3.823437155219769*^9, 
   3.823437162159172*^9}, {3.8260277436913977`*^9, 3.82602776480827*^9}, {
   3.8261018701268997`*^9, 3.826101873014292*^9}, {3.826102651509624*^9, 
   3.8261026591407547`*^9}, {3.8261078404846907`*^9, 3.826107840962717*^9}, {
   3.8263615910536213`*^9, 3.826361598028417*^9}, {3.843084377886467*^9, 
   3.843084403518445*^9}, {3.843763607368318*^9, 3.843763614072612*^9}, 
   3.843763720440412*^9},
 TextAlignment->Center,ExpressionUUID->"e1127cb9-b989-4299-9661-324c87eb3ea5"],

Cell["\<\
Geoff Cope
University of Utah
March 21st, 2020 \
\>", "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.8260349123952703`*^9, 
   3.826034914714463*^9}, {3.8261018756555223`*^9, 3.82610187623067*^9}, {
   3.8263616037246113`*^9, 3.8263616099485617`*^9}, {3.8437648673588123`*^9, 
   3.843764874486641*^9}},
 TextAlignment->Center,ExpressionUUID->"841e9fde-0bdb-4019-84a7-15c8a4b0e39e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
    "This", " ", "still", " ", "needs", " ", "a", " ", "lot", " ", "of", " ", 
     
     RowBox[{"work", ".", "  ", "Hardly"}], " ", "any", " ", "of", " ", 
     "these", " ", "transformations", " ", "turned", " ", "out"}], "..."}], 
   "."}], "\[IndentingNewLine]", "*)"}]], "Input",ExpressionUUID->"d40f1dd7-\
7ad8-4f2c-b450-fe5b5c08ea59"],

Cell[CellGroupData[{

Cell["Hyperlink To Book", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8215518766462107`*^9, 3.8215518957168427`*^9}, {
   3.82155568333683*^9, 3.821555691754923*^9}, 3.8215672369525747`*^9, {
   3.821642129665523*^9, 3.8216421327294073`*^9}, 3.821655102317462*^9, 
   3.824885729368396*^9, {3.8268812900575953`*^9, 3.826881296848538*^9}, 
   3.843083807894658*^9, 3.843757896358203*^9, {3.843761244994705*^9, 
   3.8437612461521606`*^9}},ExpressionUUID->"fc8242c6-81c2-4d9a-aefa-\
b582f5f94b5b"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\< Einstein Gravity in a Nutshell by Zee\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://press.princeton.edu/books/hardcover/9780691145587/einstein-\
gravity-in-a-nutshell\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437578226899757`*^9, 3.843757849310495*^9}, 
   3.8437578963585863`*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"3ef2a086-d42d-4b3d-8180-9d9a37619c3b"],

Cell[BoxData[
 TemplateBox[{
  "\" Einstein Gravity in a Nutshell by Zee\"", 
   "https://press.princeton.edu/books/hardcover/9780691145587/einstein-\
gravity-in-a-nutshell"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.843757860481756*^9, {3.8437578963637247`*^9, 3.843757913259136*^9}, 
   3.843762533600854*^9, 3.8437655317525063`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"9f2fa7d1-1a27-428e-8704-e127f32b1933"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8437603388533497`*^9, 3.8437603527845716`*^9}, 
   3.843760406443678*^9, 
   3.84376357176819*^9},ExpressionUUID->"5d41e22f-faca-45f6-a161-\
a27c14e77a60"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  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", "}"}]}]}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}], "\n", 
 InterpretationBox[
  RowBox[{"\"\<  (CleanSlate) Contexts purged: \>\"", "\[InvisibleSpace]", 
   RowBox[{"{", "\"\<Global`\>\"", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False], "\n", 
 InterpretationBox[
  RowBox[{
  "\"\<  (CleanSlate) Approximate kernel memory recovered: \>\"", 
   "\[InvisibleSpace]", "\"\<68 Kb\>\""}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "68 Kb"],
  Editable->False], "\n", 
 RowBox[{"{", 
  RowBox[{
  "\"\<Utilities`CleanSlate`\>\"", ",", "\"\<Parallel`Debug`Perfmon`\>\"", 
   ",", "\"\<Parallel`Debug`\>\"", ",", "\"\<Notation`\>\"", ",", 
   "\"\<VariationalMethods`\>\"", ",", "\"\<System`\>\"", ",", 
   "\"\<Global`\>\""}], "}"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.843760320943469*^9, 3.8437603432515373`*^9}, 
   3.843760406444111*^9, 3.843763571768984*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"1f7b9c8f-602e-4517-af88-c9ccef131f14"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.843765531919537*^9, 3.843770459588353*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"2b815a34-ec67-4dab-929a-4507e1bfa8fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"17 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "17 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8437655319254227`*^9, 3.843770459588875*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"ec21037f-ae6e-45dc-8e4c-7f9d14e72ab3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8437655319301043`*^9, 3.84377045958928*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"2d860a42-ff1e-4757-a412-2ed3142798a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8437655319344177`*^9, 3.843770459589714*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"4c6edc88-31c4-4fbc-988d-4f7b28b0f35d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"68 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "68 Kb"],
  Editable->False]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.84376553193997*^9, 3.8437704595900927`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"973c938d-0c27-4e9a-ac81-5a84b70affa6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"Parallel`Debug`Perfmon`\"\>", ",", "\<\"Parallel`Debug`\"\>", 
   ",", "\<\"Notation`\"\>", ",", "\<\"VariationalMethods`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.843765531944825*^9, 3.8437704595906057`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"49d397f0-8ed5-476d-8966-e31f51184bca"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.84376115207871*^9, 
  3.8437611681682262`*^9}},ExpressionUUID->"c4c4b286-2b3d-4dd1-ba6b-\
b87389454af2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric", "[", 
   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", 10005.},
 CellChangeTimes->{{3.843761137398885*^9, 3.843761150458877*^9}, {
   3.8437626726742067`*^9, 3.843762691319621*^9}, 3.843762730968094*^9},
 CellLabel->
  "In[122]:=",ExpressionUUID->"0204a911-a326-4dc7-8b84-6de9292fae38"],

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", 10005.},
 CellChangeTimes->{{3.843761137398885*^9, 3.843761150459155*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"21775960-1961-46ff-b478-48136d8f7e9c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.843761196709989*^9, 
  3.843761224344242*^9}},ExpressionUUID->"bc4e8542-d347-4997-82dd-\
44766a2951d2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Psi]", "]"}], "\[Rule]", " ", "d\[Psi]"}], "  ", 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "R", "]"}], "\[Rule]", " ", "dR"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "W", "]"}], "\[Rule]", " ", "dW"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], "  ", 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], " ", "\[Rule]", " ", "dZ"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], " ", "\[Rule]", " ", "dX"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "w", "]"}], " ", "\[Rule]", " ", "dw"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], "->", " ", "dy"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "->", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], " ", "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "w", "]"}], " ", "\[Rule]", " ", "dw"}], "  ", ",", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Zeta]", "]"}], "\[Rule]", " ", "d\[Zeta]"}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.843761218377583*^9, {3.843767448936862*^9, 3.843767452256277*^9}, {
   3.843767904223565*^9, 3.843767905023973*^9}, {3.843767979991086*^9, 
   3.843767984957631*^9}},
 CellLabel->
  "In[251]:=",ExpressionUUID->"db0a6cc6-cf90-465f-809d-7a9a68380994"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Psi]", "]"}], "\[Rule]", "d\[Psi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "R", "]"}], "\[Rule]", "dR"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "W", "]"}], "\[Rule]", "dW"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "w", "]"}], "\[Rule]", "dw"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "w", "]"}], "\[Rule]", "dw"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Zeta]", "]"}], "\[Rule]", "d\[Zeta]"}]}
    },
    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", 10006.},
 CellChangeTimes->{3.843761218380156*^9, 3.843761286448058*^9, 
  3.8437625338820057`*^9, 3.84376553200357*^9, 3.8437674526724167`*^9, 
  3.8437679075433693`*^9, 3.8437679854730453`*^9},
 CellLabel->
  "Out[253]//TableForm=",ExpressionUUID->"52678cba-81fe-4eb9-8a33-\
e17636d0f326"],

Cell[BoxData[
 RowBox[{"L", "/:", 
  RowBox[{"Dt", "[", "L", "]"}], "=", "0"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.843761218380398*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"2eaad8d8-f117-4bb5-ba98-4beeb171d4fb"],

Cell[BoxData["0"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.843761218380679*^9, 3.843762533906596*^9, 
  3.8437655320377483`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"1fe128ef-82b4-4605-bae1-24e38fe010a4"]
}, Closed]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Taken", " ", "from", " ", "Zee", " ", "GR", " ", "In", " ", "A", " ", 
   "Nutshell", " ", "page", " ", "663"}], " ", "*)"}]], "Input",
 CellLabel->"In[14]:=",ExpressionUUID->"52ff7707-f0b6-48ce-9ae8-03378c8188ab"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
   "Take", " ", "a", " ", "look", " ", "at", " ", "the", " ", "footnote"}], 
   ",", " ", 
   RowBox[{
   "there", " ", "has", " ", "to", " ", "be", " ", "a", " ", "way", " ", "to",
     " ", "recursively", " ", "define", " ", "the", " ", "d", " ", 
    "spheres"}]}], " ", "*)"}]], "Input",
 CellLabel->"In[15]:=",ExpressionUUID->"4a1cb3c0-cb09-45a6-a2d7-4c757112afc3"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Defining", " ", "relationship", " ", "on", " ", "page", " ", "652"}], " ", 
  "*)"}]], "Input",
 CellLabel->"In[16]:=",ExpressionUUID->"42711f85-8412-480a-b519-6b623d53c188"],

Cell[CellGroupData[{

Cell["Hyperboloidal Line Element", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843761295149832*^9, 
  3.843761331888174*^9}},ExpressionUUID->"92f36a5a-ca8d-498f-ba3d-\
0141493a47f4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "hyperboloid", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "See", " ", "Page", " ", "651", " ", "for", " ", "line", " ", "element"}],
     " ", ",", " ", 
    RowBox[{"this", " ", "is", " ", "how", " ", 
     RowBox[{"it", "'"}], "s", " ", "written", " ", "on", " ", "652", " ", 
     "for", " ", "AdS3"}]}], "  ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"hyperboloid", " ", "=", " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["T", "2"], "+", 
      SuperscriptBox["W", "2"]}], ")"}], "-", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["X", "2"], "+", 
      SuperscriptBox["Y", "2"]}], ")"}]}], "\[Equal]", "  ", 
   SuperscriptBox["L", "2"], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Z", " ", "suppressed", " ", "for", " ", "reasons", " ", "I", " ", "dont",
      " ", "get"}], " ", "*)"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.843761322845776*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"3a39b8f4-cf65-4adc-8566-dc0a003cf819"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["T", "2"], "+", 
   SuperscriptBox["W", "2"], "-", 
   SuperscriptBox["X", "2"], "-", 
   SuperscriptBox["Y", "2"]}], "\[Equal]", 
  SuperscriptBox["L", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.843761322846064*^9, 3.843762533957384*^9, 
  3.8437655320900927`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"b1ca8889-2cb9-4c25-b411-eb6836a26ec3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "equation", " ", "7", " ", "page", " ", "652"}], 
   " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "lineElement", "]"}], "\[IndentingNewLine]", 
   RowBox[{"lineElement", " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        SuperscriptBox["dT", "2"], "+", 
        SuperscriptBox["dW", "2"]}], " ", ")"}]}], "+", 
     SuperscriptBox["dX", "2"], "+", 
     SuperscriptBox["dY", "2"], 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
       "dZ", " ", "suppressed", " ", "again", " ", "for", " ", "reasons", " ",
         "I", " ", 
        RowBox[{"don", "'"}], "t", " ", 
        RowBox[{"get", ".", "  ", "See"}], " ", "discussion", " ", "about", 
        " ", "embedding", " ", "space", " ", "M2"}], ",", "2"}], " ", "*)"}], 
     " "}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843761314051916*^9, 3.843761322846291*^9}, {
  3.843765412552808*^9, 3.843765468407475*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"56167da6-9269-48a2-863b-9c09be0241b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.843761322846571*^9, 3.8437625339854918`*^9, 
  3.843765450324675*^9, 3.843765532102751*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"4c463e02-fb28-445b-bdf5-ec9b1f9efd67"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculations in Chapter Before Getting To Table", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437683834355507`*^9, 
  3.843768398231827*^9}},ExpressionUUID->"10136c56-5612-412e-848b-\
e63d086f23f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Closer", " ", "to", " ", "being", " ", "done"}], " ", "-", " ", 
    RowBox[{"stuck", " ", "on", " ", "equation", " ", "21"}]}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437704240727873`*^9, 
  3.8437704448996773`*^9}},ExpressionUUID->"166514a2-486a-4f85-b0c8-\
e80848655860"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "polar", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polar", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", " ", "==", " ", 
      RowBox[{"R", " ", 
       RowBox[{"Cos", "[", "t", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"W", " ", "==", " ", 
      RowBox[{"R", " ", 
       RowBox[{"Sin", "[", "t", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"X", " ", "==", " ", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"Y", " ", "==", " ", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"polar", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765479698049*^9, 3.843765516086903*^9}, {
   3.843765618144174*^9, 3.843765633279701*^9}, 3.843768361406787*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"cb43827a-7496-4dac-8e06-624ff2fa972e"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Equal]", 
       RowBox[{"R", " ", 
        RowBox[{"Cos", "[", "t", "]"}]}]}]},
     {
      RowBox[{"W", "\[Equal]", 
       RowBox[{"R", " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]},
     {
      RowBox[{"X", "\[Equal]", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{"Y", "\[Equal]", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765516329801*^9, 3.843765532138414*^9}, 
   3.843765634978072*^9, 3.843768361407848*^9},
 CellLabel->
  "Out[32]//TableForm=",ExpressionUUID->"304946f5-22c9-45cd-bb8a-\
a229b6e3c96c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Dt", "[", " ", "polar", " ", "]"}], " ", "/.", " ", 
     "dtReplace"}], "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}], "   ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765518801062*^9, 3.843765560087028*^9}, 
   3.843768361408227*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"68d9e196-7cdf-4669-b595-dc74f40ba686"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"dR", " ", 
         RowBox[{"Cos", "[", "t", "]"}]}], "-", 
        RowBox[{"dt", " ", "R", " ", 
         RowBox[{"Sin", "[", "t", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        RowBox[{"dt", " ", "R", " ", 
         RowBox[{"Cos", "[", "t", "]"}]}], "+", 
        RowBox[{"dR", " ", 
         RowBox[{"Sin", "[", "t", "]"}]}]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        RowBox[{"dr", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"d\[Theta]", " ", "r", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Theta]", " ", "r", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"dr", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765523655108*^9, 3.843765560399683*^9}, 
   3.843765637505499*^9, 3.843768361408917*^9},
 CellLabel->
  "Out[33]//TableForm=",ExpressionUUID->"fd02f8b0-1da8-4839-b526-\
d32905abd765"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "polar1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"polar1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"lineElement", " ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", " ", "polar", " ", "]"}], " ", "/.", " ", 
        "dtReplace"}], "  ", "/.", " ", 
       RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765564016199*^9, 3.843765580502858*^9}, {
   3.8437658637281017`*^9, 3.8437658749429083`*^9}, 3.843768361409224*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"212275e5-535d-41b2-b006-47a99d111d15"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "-", 
  SuperscriptBox["dR", "2"], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox["R", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765575559135*^9, 3.8437655807382097`*^9}, 
   3.8437656398596983`*^9, 3.843765875207451*^9, 3.8437683614098263`*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"aa3aafab-4139-47c3-8687-27f77f725b1c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"hyperboloid", " ", "/.", " ", 
     RowBox[{"L", "->", " ", "1"}]}], "  ", "/.", " ", 
    RowBox[{"(", "  ", 
     RowBox[{"polar", " ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "  ", "//", " ", 
   "Expand"}], " ", "//", " ", "Simplify", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765673368825*^9, 3.843765703910681*^9}, 
   3.84376836141012*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"0f049a7a-e691-4e5b-a5b0-e2a0b95f36fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "+", 
   SuperscriptBox["r", "2"]}], "\[Equal]", 
  SuperscriptBox["R", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765674976425*^9, 3.843765704150567*^9}, 
   3.843768361410715*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"939f758b-d5cf-4e60-9109-1cd81fa32bfb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", "  ", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{"Expand", "[", 
        RowBox[{
         RowBox[{"hyperboloid", " ", "/.", " ", 
          RowBox[{"L", "->", " ", "1"}]}], "  ", "/.", " ", 
         RowBox[{"(", "  ", 
          RowBox[{"polar", " ", "/.", " ", 
           RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "]"}], " ", 
       "]"}], "  ", ",", " ", "R"}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437659527528973`*^9, 3.843765968455192*^9}, 
   3.8437683614110117`*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"b70c0d54-c9a0-4a3c-a6d0-3eb594421e8f"],

Cell[BoxData[
 RowBox[{"R", "\[Rule]", 
  SqrtBox[
   RowBox[{"1", "+", 
    SuperscriptBox["r", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84376595062064*^9, 3.84376596879805*^9}, 
   3.843768361411625*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"83a96a73-b93b-4429-9b31-ebdd0411f942"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Expand", "[", 
     RowBox[{
      RowBox[{"hyperboloid", " ", "/.", " ", 
       RowBox[{"L", "->", " ", "1"}]}], "  ", "/.", " ", 
      RowBox[{"(", "  ", 
       RowBox[{"polar", " ", "/.", " ", 
        RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "]"}], " ", 
    "]"}], " ", "]"}], " ", "/.", " ", "dtReplace", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765732023259*^9, 3.8437657658310833`*^9}, 
   3.843768361411921*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"ffc8ecf9-5fb2-49e4-a3a4-3de725c33566"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "dr", " ", "r"}], "\[Equal]", 
  RowBox[{"2", " ", "dR", " ", "R"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765735914386*^9, 3.843765750717154*^9}, 
   3.843768361412511*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"7eab1220-0320-4079-991e-68ee414da425"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "drReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drReplace", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"Dt", "[", " ", 
            RowBox[{"Simplify", "[", 
             RowBox[{"Expand", "[", 
              RowBox[{
               RowBox[{"hyperboloid", " ", "/.", " ", 
                RowBox[{"L", "->", " ", "1"}]}], "  ", "/.", " ", 
               RowBox[{"(", "  ", 
                RowBox[{"polar", " ", "/.", " ", 
                 RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "]"}], 
             " ", "]"}], " ", "]"}], " ", "/.", " ", "dtReplace"}], " ", 
          ")"}], " ", ",", " ", "dr"}], " ", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "   ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"Dt", "[", " ", 
            RowBox[{"Simplify", "[", 
             RowBox[{"Expand", "[", 
              RowBox[{
               RowBox[{"hyperboloid", " ", "/.", " ", 
                RowBox[{"L", "->", " ", "1"}]}], "  ", "/.", " ", 
               RowBox[{"(", "  ", 
                RowBox[{"polar", " ", "/.", " ", 
                 RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "]"}], 
             " ", "]"}], " ", "]"}], " ", "/.", " ", "dtReplace"}], " ", 
          ")"}], " ", ",", " ", "dR"}], " ", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "  ", "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"drReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437657773990927`*^9, 3.843765803646593*^9}, {
   3.843765879841037*^9, 3.843765900175064*^9}, 3.843768361412887*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"7c8f4286-b41d-46c3-99aa-c51e6282a09a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dr", "\[Rule]", 
       FractionBox[
        RowBox[{"dR", " ", "R"}], "r"]}]},
     {
      RowBox[{"dR", "\[Rule]", 
       FractionBox[
        RowBox[{"dr", " ", "r"}], "R"]}]}
    },
    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", 10002.},
 CellChangeTimes->{{3.843765785298214*^9, 3.843765804045937*^9}, 
   3.843765900543355*^9, 3.843768361413484*^9},
 CellLabel->
  "Out[50]//TableForm=",ExpressionUUID->"f5b4df53-e509-486c-bdf0-\
2b68d1d4ae71"],

Cell[BoxData[{
 RowBox[{"polar1", "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polar1", "  ", "/.", " ", 
   RowBox[{"drReplace", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq8", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "First", " ", "transform", " ", "will", " ", "reproduce", " ", "this"}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"polar1", "  ", "/.", " ", 
      RowBox[{"drReplace", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "  ", "/.", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", "  ", 
        RowBox[{
         RowBox[{"Simplify", "[", 
          RowBox[{"Expand", "[", 
           RowBox[{
            RowBox[{"hyperboloid", " ", "/.", " ", 
             RowBox[{"L", "->", " ", "1"}]}], "  ", "/.", " ", 
            RowBox[{"(", "  ", 
             RowBox[{"polar", " ", "/.", " ", 
              RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], "]"}], 
          " ", "]"}], "  ", ",", " ", "R"}], " ", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "  ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765905641078*^9, 3.84376593089727*^9}, {
   3.8437659774792147`*^9, 3.843766024463213*^9}, {3.843766071447782*^9, 
   3.843766080192279*^9}, 
   3.843768361413814*^9},ExpressionUUID->"44aab198-070a-4728-b516-\
980528f05a25"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "-", 
  SuperscriptBox["dR", "2"], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox["R", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765907466566*^9, 3.843765931160821*^9}, {
   3.843765996440116*^9, 3.843766025284734*^9}, 3.843768361414069*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"8652f0df-aa07-4ce8-b5fd-c15e3ad0f075"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["dr", "2"], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["dr", "2"], " ", 
    SuperscriptBox["r", "2"]}], 
   SuperscriptBox["R", "2"]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox["R", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765907466566*^9, 3.843765931160821*^9}, {
   3.843765996440116*^9, 3.843766025287739*^9}, 3.843768361414356*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"aa953942-e715-4a4b-81e3-30facbafc29b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox["r", "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["r", "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843765907466566*^9, 3.843765931160821*^9}, {
   3.843765996440116*^9, 3.843766025291761*^9}, 3.84376836141495*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"b65f19d3-6d76-480d-b180-ee228e01560b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq10a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"just", " ", "above", " ", "equation", " ", "10"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq10a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"r", "->", " ", 
   RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437660994407883`*^9, 3.843766141078973*^9}, 
   3.843768361415237*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"e4a518bb-623f-47b1-be72-79e0c5b9036b"],

Cell[BoxData[
 RowBox[{"r", "\[Rule]", 
  RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84376610050121*^9, 3.843766141340522*^9}, 
   3.8437683614159193`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"bde9503f-31a2-4190-a3a2-52bedf92e044"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "eq10a", " ", "]"}], "  ", "/.", " ", "dtReplace", 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766144256796*^9, 3.843766152006505*^9}, 
   3.843768361416215*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"32cb0e66-0632-42f6-b6f8-e4f377761eaa"],

Cell[BoxData[
 RowBox[{"dr", "\[Rule]", 
  RowBox[{"d\[Rho]", " ", 
   RowBox[{"Cosh", "[", "\[Rho]", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766148066757*^9, 3.843766152215911*^9}, 
   3.843768361416793*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"12117c28-8c9e-4c5c-bbab-68a0fcbd13c7"],

Cell[BoxData[{
 RowBox[{"eq8", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", "  ", "/.", " ", "eq10a"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq8", "  ", "/.", " ", "eq10a"}], " ", "/.", " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"Dt", "[", " ", "eq10a", " ", "]"}], "  ", "/.", " ", 
     "dtReplace"}], "  ", ")"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq8", "  ", "/.", " ", "eq10a"}], " ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"Dt", "[", " ", "eq10a", " ", "]"}], "  ", "/.", " ", 
      "dtReplace"}], "  ", ")"}]}], "   ", "//", " ", "Expand"}], " ", "//", 
  " ", "Simplify", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Not", " ", "the", " ", "simplification", " ", "we", " ", "want", " ", 
    "yet"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766156617322*^9, 3.8437662408949327`*^9}, 
   3.843768361417119*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"b1516c14-fd04-4dc8-ba15-8ac3821d41d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox["r", "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["r", "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766157894046*^9, 3.84376624155446*^9}, 
   3.843768361417364*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"03036279-3639-42d8-b8b1-6c30876c79fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766157894046*^9, 3.843766241558901*^9}, 
   3.843768361417595*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"e3ba59f9-8e41-4d97-8788-3223abc57634"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["d\[Rho]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Cosh", "[", "\[Rho]", "]"}], "2"]}], 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766157894046*^9, 3.843766241563376*^9}, 
   3.84376836141782*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"0c577550-b02a-4acc-ada2-bad7081c0129"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], "-", 
    SuperscriptBox["d\[Theta]", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["d\[Rho]", "2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["dt", "2"]}], "+", 
       SuperscriptBox["d\[Theta]", "2"]}], ")"}], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"2", " ", "\[Rho]"}], "]"}]}]}], ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766157894046*^9, 3.843766241566999*^9}, 
   3.843768361418325*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"b34f260c-f705-4dc8-81e2-398ea8f552ff"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq10b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq10b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", " ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"eq8", "  ", "/.", " ", "eq10a"}], " ", "/.", " ", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"Dt", "[", " ", "eq10a", " ", "]"}], "  ", "/.", " ", 
           "dtReplace"}], "  ", ")"}]}], "  ", ")"}], " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Theta]"}], "}"}]}], " ", "]"}],
      "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq10b", " ", "//", " ", "MatrixForm", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766244864615*^9, 3.8437663284788933`*^9}, 
   3.843768361418605*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"2d3ed50b-7655-41e6-a628-535d958dd362"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Cosh", "[", "\[Rho]", "]"}], "2"]}], "0", "0"},
     {"0", "1", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766278602296*^9, 3.8437663288907347`*^9}, 
   3.843768361419118*^9},
 CellLabel->
  "Out[105]//MatrixForm=",ExpressionUUID->"cb5eebb1-e54e-4109-8ac4-\
703b81ab8f36"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq10", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Much", " ", "better"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq10", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"metricToLine", "[", " ", 
   RowBox[{"eq10b", " ", ",", "  ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Theta]"}], "}"}]}], " ", "]"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437663330181427`*^9, 3.843766366238914*^9}, 
   3.843768361419362*^9},ExpressionUUID->"202a973c-01bc-4ba6-a4f0-\
e3c6d6061ac2"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["d\[Rho]", "2"], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", "\[Rho]", "]"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766343304245*^9, 3.84376635373949*^9}, 
   3.8437683614198837`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"40dd860d-1adb-444e-8c8e-310e6d86531a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq11", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"also", " ", "transform", " ", "2", " ", "in", " ", "table"}], " ",
    "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq11", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
       RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"W", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"X", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"Y", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq11", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437663907271357`*^9, 3.843766411855303*^9}, 
   3.843768361420157*^9},
 CellLabel->
  "In[112]:=",ExpressionUUID->"55012abc-9c25-49dc-9b0f-76797e753c15"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Cosh", "[", "\[Rho]", "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{
        RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{{3.843766403385208*^9, 3.843766412232024*^9}, 
   3.8437683614206553`*^9},
 CellLabel->
  "Out[114]//TableForm=",ExpressionUUID->"fd348788-161b-4e61-8cd4-\
063d2609a147"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Dt", "[", " ", "eq11", " ", "]"}], " ", "/.", " ", 
     "dtReplace"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437664420330133`*^9, 3.843766452281752*^9}, 
   3.843768361420897*^9},
 CellLabel->
  "In[117]:=",ExpressionUUID->"9b38cfde-8e62-4c5b-88f0-d8b925d1ccdd"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "dt"}], " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
         RowBox[{"Sin", "[", "t", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        RowBox[{"dt", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}]}], "-", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{3.843766453015615*^9, 3.8437683614213953`*^9},
 CellLabel->
  "Out[117]//TableForm=",ExpressionUUID->"bb54eb2e-366d-405d-aeae-\
fccc7885144c"],

Cell[BoxData["lineElement"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766419473962*^9, 3.843766436656562*^9}, 
   3.843768361421612*^9},
 CellLabel->
  "In[116]:=",ExpressionUUID->"92dfa231-84e9-48f9-8ad7-97c6f7c6e286"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766420732795*^9, 3.8437664371012897`*^9}, 
   3.843768361422275*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"49a95549-1f09-4160-a14a-a297efac2750"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"lineElement", " ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "eq11", " ", "]"}], " ", "/.", " ", 
       "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
   " ", "Simplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Not", " ", "quite", " ", "the", " ", "simplification", " ", "we", " ", 
    "want"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437664604785767`*^9, 3.843766491854885*^9}, 
   3.843768361422632*^9},
 CellLabel->
  "In[120]:=",ExpressionUUID->"4c2960a8-b3e8-44db-9082-d627dbddc23e"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], "-", 
    SuperscriptBox["d\[Theta]", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["d\[Rho]", "2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["dt", "2"]}], "+", 
       SuperscriptBox["d\[Theta]", "2"]}], ")"}], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"2", " ", "\[Rho]"}], "]"}]}]}], ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766470249402*^9, 3.8437664922205133`*^9}, 
   3.8437683614233513`*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"bc0a6898-493f-4104-9e21-f749e9d0e68c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq11a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq11a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", " ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"lineElement", " ", "/.", " ", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"Dt", "[", " ", "eq11", " ", "]"}], " ", "/.", " ", 
           "dtReplace"}], " ", ")"}]}], "  ", ")"}], " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Theta]"}], "}"}]}], " ", "]"}],
      " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq11a", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766495369012*^9, 3.8437665173427763`*^9}, {
   3.8437665649194393`*^9, 3.843766631254551*^9}, 3.843768361423674*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"d52972ca-5a86-4ea4-b262-01e7f4e71738"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Cosh", "[", "\[Rho]", "]"}], "2"]}], "0", "0"},
     {"0", "1", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.843766517560573*^9, {3.843766586684943*^9, 3.8437666315161877`*^9}, 
   3.843768361424258*^9},
 CellLabel->
  "Out[132]//MatrixForm=",ExpressionUUID->"e3c84c5d-412b-4df8-a94d-\
d06015b22ce4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"back", " ", "to", " ", "equation", " ", "10"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{"metricToLine", "[", " ", 
   RowBox[{"eq11a", " ", ",", "  ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "d\[Rho]", ",", "d\[Theta]"}], "}"}]}], " ", "]"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766634097128*^9, 3.843766660510879*^9}, 
   3.843768361424511*^9},ExpressionUUID->"7cb0f726-c888-4c18-a5bc-\
62d785819c40"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["d\[Rho]", "2"], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", "\[Rho]", "]"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843766644950705*^9, 3.843768361425022*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"fb65ee28-5e9c-4905-9b79-2fc361235b82"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq12a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Not", " ", "listed"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq12a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"r", "->", " ", 
   RowBox[{"Tan", "[", "\[Psi]", "]"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766679464995*^9, 3.843766706111052*^9}, 
   3.843768361425281*^9},
 CellLabel->
  "In[160]:=",ExpressionUUID->"617677ec-762c-42cc-8a7f-adab34fce5ea"],

Cell[BoxData[
 RowBox[{"r", "\[Rule]", 
  RowBox[{"Tan", "[", "\[Psi]", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766680381114*^9, 3.843766706422929*^9}, 
   3.8437669009774017`*^9, 3.8437683614258327`*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"680d204c-6dad-48d3-9304-35c4ef06db1d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "eq12a", " ", "]"}], " ", "/.", " ", "dtReplace", 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766712257172*^9, 3.843766717318695*^9}, 
   3.843768361426076*^9},
 CellLabel->
  "In[138]:=",ExpressionUUID->"dc10ad19-98e9-4d5c-88b6-629a8b7293e6"],

Cell[BoxData[
 RowBox[{"dr", "\[Rule]", 
  RowBox[{"d\[Psi]", " ", 
   SuperscriptBox[
    RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843766717523114*^9, 3.843768361426579*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"028f30c3-a5a2-4421-b79f-e216e985ae0a"],

Cell[BoxData[{
 RowBox[{"eq8", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", " ", "/.", " ", "eq12a"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq8", " ", "/.", " ", "eq12a"}], "  ", "/.", " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"Dt", "[", " ", "eq12a", " ", "]"}], " ", "/.", " ", 
     "dtReplace"}], "  ", ")"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq8", " ", "/.", " ", "eq12a"}], "  ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"Dt", "[", " ", "eq12a", " ", "]"}], " ", "/.", " ", 
      "dtReplace"}], "  ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
  " ", "FullSimplify", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Close", "..."}], " ", "but", " ", "not", " ", "quite", " ", 
    "correct", " ", "form"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766708393303*^9, 3.843766771961473*^9}, {
   3.8437668170793056`*^9, 3.8437668280066767`*^9}, 
   3.843768361426877*^9},ExpressionUUID->"bc88616c-50ca-4705-aef0-\
c7817e89721d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox["r", "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["r", "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766710490465*^9, 3.843766772255183*^9}, 
   3.843768361427113*^9},
 CellLabel->
  "Out[151]=",ExpressionUUID->"cd769195-8eb4-44c3-852f-8b8dba83c2d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766710490465*^9, 3.843766772261026*^9}, 
   3.843768361427343*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"6c08dff5-40ae-48aa-acf2-630373148216"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["d\[Psi]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Sec", "[", "\[Psi]", "]"}], "4"]}], 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766710490465*^9, 3.843766772265862*^9}, 
   3.843768361427573*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"ce92bc76-b264-4db1-bbe3-cda0d150fc03"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["d\[Theta]", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["d\[Theta]", "2"], "+", 
     SuperscriptBox["d\[Psi]", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766710490465*^9, 3.843766772376198*^9}, 
   3.843768361428091*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"6a68ce2f-fb35-40a5-b6d7-f3d3d6978381"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq12b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", " ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"eq8", " ", "/.", " ", "eq12a"}], "  ", "/.", " ", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"Dt", "[", " ", "eq12a", " ", "]"}], " ", "/.", " ", 
           "dtReplace"}], "  ", ")"}]}], "  ", ")"}], " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "d\[Theta]", ",", "d\[Psi]"}], " ", "}"}]}], " ", 
      "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}]}], 
  "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12b", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437668382388783`*^9, 3.843766906726857*^9}, 
   3.843768361428371*^9},
 CellLabel->
  "In[162]:=",ExpressionUUID->"01e13e88-f412-449c-8f98-bcc756d501f1"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}], "0", "0"},
     {"0", 
      SuperscriptBox[
       RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"], "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766856375852*^9, 3.843766907244671*^9}, 
   3.8437683614288797`*^9},
 CellLabel->
  "Out[164]//MatrixForm=",ExpressionUUID->"2c63838e-4596-49a9-8ce4-\
d1df3c44a2d2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq12", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq12", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"metricToLine", "[", " ", 
    RowBox[{"eq12b", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "d\[Theta]", ",", "d\[Psi]"}], " ", "}"}]}], " ", 
    "]"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq12", " ", "//", " ", "FullSimplify", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766910065229*^9, 3.8437669442790813`*^9}, 
   3.843768361429138*^9},
 CellLabel->
  "In[168]:=",ExpressionUUID->"638e2832-f25e-42c5-b670-274b00b08e1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["d\[Psi]", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766921244606*^9, 3.8437669446271057`*^9}, 
   3.8437683614296427`*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"1de3a395-cdeb-4713-af12-b91bc0ad07de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq13", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "also", " ", "transform", " ", "3", " ", "in", " ", "the", " ", "table"}], 
   " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq13", "=", " ", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T", "\[Rule]", " ", 
       FractionBox["t", "w"]}], ",", "\[IndentingNewLine]", 
      RowBox[{"X", "\[Rule]", " ", 
       FractionBox["x", "w"]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Y", "\[Rule]", " ", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["x", "2"], "-", 
            SuperscriptBox["t", "2"]}], "w"], "+", "w", "-", 
          FractionBox["1", "w"]}], ")"}]}]}], " ", ",", "\[IndentingNewLine]",
       " ", 
      RowBox[{"W", "\[Rule]", "   ", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["x", "2"], "-", 
            SuperscriptBox["t", "2"]}], "w"], "+", "w", "+", 
          FractionBox["1", "w"]}], ")"}]}]}]}], " ", "\[IndentingNewLine]", 
     "}"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq13", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843766996735927*^9, 3.843767016784041*^9}, {
   3.843767097632744*^9, 3.843767102110903*^9}, 3.843768361429933*^9},
 CellLabel->
  "In[178]:=",ExpressionUUID->"f7b1991c-e549-45bd-9506-e4ed616e59a4"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       FractionBox["t", "w"]}]},
     {
      RowBox[{"X", "\[Rule]", 
       FractionBox["x", "w"]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "w"]}], "+", "w", "+", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["t", "2"]}], "+", 
            SuperscriptBox["x", "2"]}], "w"]}], ")"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "w"], "+", "w", "+", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["t", "2"]}], "+", 
            SuperscriptBox["x", "2"]}], "w"]}], ")"}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{3.84376710243296*^9, 3.8437683614304533`*^9},
 CellLabel->
  "Out[180]//TableForm=",ExpressionUUID->"3882268e-feeb-440e-bb77-\
f916b6ee49bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Dt", "[", " ", "eq13", " ", "]"}], "  ", "/.", " ", 
     "dtReplace"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  "   ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767091113792*^9, 3.843767118110876*^9}, 
   3.843768361430702*^9},
 CellLabel->
  "In[184]:=",ExpressionUUID->"1f3b10fd-7e2b-4e1c-abcd-a221cf3538d3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "dw"}], " ", "t"}], "+", 
         RowBox[{"dt", " ", "w"}]}], 
        SuperscriptBox["w", "2"]]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"dx", " ", "w"}], "-", 
         RowBox[{"dw", " ", "x"}]}], 
        SuperscriptBox["w", "2"]]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "dt", " ", "t", " ", "w"}], "+", 
         RowBox[{"2", " ", "dx", " ", "w", " ", "x"}], "+", 
         RowBox[{"dw", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox["t", "2"], "+", 
            SuperscriptBox["w", "2"], "-", 
            SuperscriptBox["x", "2"]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["w", "2"]}]]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "dt", " ", "t", " ", "w"}], "+", 
         RowBox[{"2", " ", "dx", " ", "w", " ", "x"}], "+", 
         RowBox[{"dw", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["t", "2"], "+", 
            SuperscriptBox["w", "2"], "-", 
            SuperscriptBox["x", "2"]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["w", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767094100155*^9, 3.8437671184194603`*^9}, 
   3.8437683614312057`*^9},
 CellLabel->
  "Out[184]//TableForm=",ExpressionUUID->"7d34a879-3607-4f38-84ab-\
61b90e1601da"],

Cell[BoxData["lineElement"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767053826206*^9, 3.8437670882089167`*^9}, 
   3.843768361431449*^9},
 CellLabel->
  "In[174]:=",ExpressionUUID->"a75a93b7-0f99-46ab-bcc6-a61ccdb96414"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767054604189*^9, 3.843767088671155*^9}, 
   3.843768361431965*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"f0b2fcfe-5c59-4b99-a73d-414ab1a656f2"],

Cell[BoxData[
 RowBox[{"lineElement", " ", "/.", " ", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "eq13", " ", "]"}], "  ", "/.", " ", 
    "dtReplace"}], "  ", ")"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767126521154*^9, 3.843767137158969*^9}, 
   3.843768361432206*^9},
 CellLabel->
  "In[185]:=",ExpressionUUID->"677ba318-57c6-42f5-be73-86903d6acc79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"dw", " ", "t"}], 
        SuperscriptBox["w", "2"]]}], "+", 
      FractionBox["dt", "w"]}], ")"}], "2"]}], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     FractionBox["dx", "w"], "-", 
     FractionBox[
      RowBox[{"dw", " ", "x"}], 
      SuperscriptBox["w", "2"]]}], ")"}], "2"], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"dw", "-", 
      FractionBox["dw", 
       SuperscriptBox["w", "2"]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "dt", " ", "t"}], "+", 
        RowBox[{"2", " ", "dx", " ", "x"}]}], "w"], "-", 
      FractionBox[
       RowBox[{"dw", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["x", "2"]}], ")"}]}], 
       SuperscriptBox["w", "2"]]}], ")"}], "2"]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"dw", "+", 
      FractionBox["dw", 
       SuperscriptBox["w", "2"]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "dt", " ", "t"}], "+", 
        RowBox[{"2", " ", "dx", " ", "x"}]}], "w"], "-", 
      FractionBox[
       RowBox[{"dw", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["x", "2"]}], ")"}]}], 
       SuperscriptBox["w", "2"]]}], ")"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843767137400073*^9, 3.843768361432716*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"e30d08c0-b985-4e1b-9360-4e7d97949256"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq14", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq14", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"lineElement", " ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "eq13", " ", "]"}], "  ", "/.", " ", 
       "dtReplace"}], "  ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
   " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767145806816*^9, 3.843767163863263*^9}, 
   3.843768361432973*^9},
 CellLabel->
  "In[187]:=",ExpressionUUID->"918d482e-80ab-493a-8788-56eea08b3117"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["dt", "2"]}], "+", 
   SuperscriptBox["dw", "2"], "+", 
   SuperscriptBox["dx", "2"]}], 
  SuperscriptBox["w", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767149599236*^9, 3.8437671643008432`*^9}, 
   3.843768361433482*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"9618dd2b-9ff3-4ada-86de-8d63fa466141"],

Cell[BoxData[
 RowBox[{
  RowBox[{"metric", "[", " ", 
   RowBox[{"eq14", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dx", ",", "dw"}], "}"}]}], " ", "]"}], "  ", "//", 
  " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437671694650507`*^9, 3.8437671842469053`*^9}, 
   3.843768361433724*^9},
 CellLabel->
  "In[190]:=",ExpressionUUID->"043451bf-59ff-4534-9144-5ad97a969e40"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox["w", "2"]]}], "0", "0"},
     {"0", 
      FractionBox["1", 
       SuperscriptBox["w", "2"]], "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox["w", "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767180452814*^9, 3.84376718456177*^9}, 
   3.843768361434224*^9},
 CellLabel->
  "Out[190]//MatrixForm=",ExpressionUUID->"9f4c7bcc-59d6-4f95-81a6-\
6ae6e3d7e0a2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq16a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq16a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", " ", "==", " ", 
      FractionBox["t", "w"]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"X", " ", "==", " ", 
      FractionBox["x", "w"]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"Y", " ", "==", " ", 
      FractionBox["y", "w"]}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"W", " ", "+", " ", "Z"}], " ", "==", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         FractionBox["1", "w"], ")"}], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", " ", 
          SuperscriptBox["y", "2"], "-", 
          SuperscriptBox["t", "2"]}], ")"}]}], " ", "+", "w"}]}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"W", " ", "-", " ", "Z"}], " ", "==", " ", 
      FractionBox["1", "w"]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq16a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437672777851152`*^9, 3.843767366639262*^9}, {
   3.843767537688311*^9, 3.843767543967785*^9}, {3.843767605384396*^9, 
   3.843767606383342*^9}, 3.8437683614345217`*^9},
 CellLabel->
  "In[259]:=",ExpressionUUID->"255c0763-185e-48b7-8c52-c706efc4b38d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Equal]", 
       FractionBox["t", "w"]}]},
     {
      RowBox[{"X", "\[Equal]", 
       FractionBox["x", "w"]}]},
     {
      RowBox[{"Y", "\[Equal]", 
       FractionBox["y", "w"]}]},
     {
      RowBox[{
       RowBox[{"W", "+", "Z"}], "\[Equal]", 
       RowBox[{"w", "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["t", "2"]}], "+", 
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], "w"]}]}]},
     {
      RowBox[{
       RowBox[{"W", "-", "Z"}], "\[Equal]", 
       FractionBox["1", "w"]}]}
    },
    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", 10002.},
 CellChangeTimes->{3.8437673668781433`*^9, 3.843767544702652*^9, 
  3.843767607417307*^9, 3.843767998600346*^9, 3.843768361435046*^9},
 CellLabel->
  "Out[261]//TableForm=",ExpressionUUID->"ef2b29a8-dbaf-4728-9912-\
01e55ff4dd73"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{"eq16a", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"T", ",", "X", ",", "Y", ",", " ", "W", ",", "Z"}], " ", 
      "}"}]}], " ", "]"}], "]"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767369401394*^9, 3.843767395494709*^9}, {
   3.843767549472126*^9, 3.8437675503667097`*^9}, 3.843768361435288*^9},
 CellLabel->
  "In[262]:=",ExpressionUUID->"adad3490-09a4-4de1-81da-281b8017350c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       FractionBox["t", "w"]}]},
     {
      RowBox[{"X", "\[Rule]", 
       FractionBox["x", "w"]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       FractionBox["y", "w"]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["t", "2"], "-", 
          SuperscriptBox["w", "2"], "-", 
          SuperscriptBox["x", "2"], "-", 
          SuperscriptBox["y", "2"]}], 
         RowBox[{"2", " ", "w"}]]}]}]},
     {
      RowBox[{"Z", "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "+", 
          SuperscriptBox["t", "2"], "-", 
          SuperscriptBox["w", "2"], "-", 
          SuperscriptBox["x", "2"], "-", 
          SuperscriptBox["y", "2"]}], 
         RowBox[{"2", " ", "w"}]]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{{3.843767381319805*^9, 3.843767395781341*^9}, 
   3.843767550764577*^9, 3.843767609637828*^9, 3.843768000983943*^9, 
   3.8437683614358253`*^9},
 CellLabel->
  "Out[262]//TableForm=",ExpressionUUID->"3c1ec33a-ca47-42e6-bbb5-\
b042063afdc8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Dt", "[", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{"eq16a", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"T", ",", "X", ",", "Y", ",", "W", ",", "Z"}], " ", "}"}]}],
         " ", "]"}], "]"}], " ", "]"}], " ", "/.", " ", "dtReplace"}], " ", "//",
     " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767417705895*^9, 3.8437674374951057`*^9}, {
   3.84376755488062*^9, 3.843767558839231*^9}, 3.843768361436102*^9},
 CellLabel->
  "In[263]:=",ExpressionUUID->"672afd47-077d-426e-886a-166df5fe0e84"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "dw"}], " ", "t"}], "+", 
         RowBox[{"dt", " ", "w"}]}], 
        SuperscriptBox["w", "2"]]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"dx", " ", "w"}], "-", 
         RowBox[{"dw", " ", "x"}]}], 
        SuperscriptBox["w", "2"]]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"dy", " ", "w"}], "-", 
         RowBox[{"dw", " ", "y"}]}], 
        SuperscriptBox["w", "2"]]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", "w", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "dt"}], " ", "t"}], "+", 
            RowBox[{"dx", " ", "x"}], "+", 
            RowBox[{"dy", " ", "y"}]}], ")"}]}], "+", 
         RowBox[{"dw", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["t", "2"], "+", 
            SuperscriptBox["w", "2"], "-", 
            SuperscriptBox["x", "2"], "-", 
            SuperscriptBox["y", "2"]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["w", "2"]}]]}]},
     {
      RowBox[{"dZ", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", "w", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "dt"}], " ", "t"}], "+", 
            RowBox[{"dx", " ", "x"}], "+", 
            RowBox[{"dy", " ", "y"}]}], ")"}]}], "+", 
         RowBox[{"dw", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox["t", "2"], "+", 
            SuperscriptBox["w", "2"], "-", 
            SuperscriptBox["x", "2"], "-", 
            SuperscriptBox["y", "2"]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["w", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767427825562*^9, 3.843767437792303*^9}, 
   3.8437675595048656`*^9, 3.843767611924952*^9, 3.843767936602035*^9, {
   3.8437679945942287`*^9, 3.843768003320908*^9}, 3.843768361436611*^9},
 CellLabel->
  "Out[263]//TableForm=",ExpressionUUID->"9d66364a-fd38-47e7-9179-\
221f39493f85"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"lineElement", "  ", "+", " ", 
    SuperscriptBox["dZ", "2"]}], " ", ")"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{"lineElement", "  ", "+", " ", 
     SuperscriptBox["dZ", "2"]}], " ", ")"}], " ", " ", "/.", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Dt", "[", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{"eq16a", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"T", ",", "X", ",", "Y", ",", " ", "W", ",", "Z"}], " ", 
          "}"}]}], " ", "]"}], "]"}], " ", "]"}], " ", "/.", " ", 
     "dtReplace"}], " ", ")"}]}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq16b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Not", " ", "quite", " ", "equation", " ", "16", " ", "yet"}], 
     "..."}], " ", "go", " ", "up", " ", "one", " ", "dimension"}], " ", 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq16b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{"lineElement", "  ", "+", " ", 
       SuperscriptBox["dZ", "2"]}], " ", ")"}], " ", " ", "/.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Dt", "[", " ", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{"eq16a", " ", ",", " ", 
           RowBox[{"{", 
            RowBox[{"T", ",", "X", ",", "Y", ",", " ", "W", ",", "Z"}], " ", 
            "}"}]}], " ", "]"}], "]"}], " ", "]"}], " ", "/.", " ", 
       "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
   " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84376740048946*^9, 3.843767412375093*^9}, {
   3.84376747948956*^9, 3.843767505094981*^9}, {3.8437675637695913`*^9, 
   3.843767568583555*^9}, {3.843767791150359*^9, 3.843767816772252*^9}, {
   3.84376794294171*^9, 3.843767958126626*^9}, {3.8437680286861687`*^9, 
   3.8437680699949102`*^9}, 3.843768361436956*^9},
 CellLabel->
  "In[272]:=",ExpressionUUID->"2c8292c0-b288-4670-9257-c47800e6e45f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"], "+", 
  SuperscriptBox["dZ", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767401795957*^9, 3.843767412857983*^9}, {
   3.8437674633700447`*^9, 3.843767505591243*^9}, 3.8437675705516644`*^9, 
   3.843767617415826*^9, {3.843767798851973*^9, 3.843767818670321*^9}, {
   3.843767939940751*^9, 3.843767989940806*^9}, {3.8437680266610928`*^9, 
   3.8437680726272917`*^9}, 3.8437683614372168`*^9},
 CellLabel->
  "Out[272]=",ExpressionUUID->"0497152b-1ea0-414a-ae63-b257a066f102"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"dw", " ", "t"}], 
        SuperscriptBox["w", "2"]]}], "+", 
      FractionBox["dt", "w"]}], ")"}], "2"]}], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     FractionBox["dx", "w"], "-", 
     FractionBox[
      RowBox[{"dw", " ", "x"}], 
      SuperscriptBox["w", "2"]]}], ")"}], "2"], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     FractionBox["dy", "w"], "-", 
     FractionBox[
      RowBox[{"dw", " ", "y"}], 
      SuperscriptBox["w", "2"]]}], ")"}], "2"], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "dt", " ", "t"}], "-", 
        RowBox[{"2", " ", "dw", " ", "w"}], "-", 
        RowBox[{"2", " ", "dx", " ", "x"}], "-", 
        RowBox[{"2", " ", "dy", " ", "y"}]}], 
       RowBox[{"2", " ", "w"}]]}], "+", 
     FractionBox[
      RowBox[{"dw", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["t", "2"], "-", 
         SuperscriptBox["w", "2"], "-", 
         SuperscriptBox["x", "2"], "-", 
         SuperscriptBox["y", "2"]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["w", "2"]}]]}], ")"}], "2"], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "dt", " ", "t"}], "-", 
        RowBox[{"2", " ", "dw", " ", "w"}], "-", 
        RowBox[{"2", " ", "dx", " ", "x"}], "-", 
        RowBox[{"2", " ", "dy", " ", "y"}]}], 
       RowBox[{"2", " ", "w"}]]}], "+", 
     FractionBox[
      RowBox[{"dw", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["t", "2"], "-", 
         SuperscriptBox["w", "2"], "-", 
         SuperscriptBox["x", "2"], "-", 
         SuperscriptBox["y", "2"]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["w", "2"]}]]}], ")"}], "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767401795957*^9, 3.843767412857983*^9}, {
   3.8437674633700447`*^9, 3.843767505591243*^9}, 3.8437675705516644`*^9, 
   3.843767617415826*^9, {3.843767798851973*^9, 3.843767818670321*^9}, {
   3.843767939940751*^9, 3.843767989940806*^9}, {3.8437680266610928`*^9, 
   3.843768072632514*^9}, 3.843768361437449*^9},
 CellLabel->
  "Out[273]=",ExpressionUUID->"ad8ff7cb-5e3e-490b-9049-d3e389d3ada4"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["dt", "2"]}], "+", 
   SuperscriptBox["dw", "2"], "+", 
   SuperscriptBox["dx", "2"], "+", 
   SuperscriptBox["dy", "2"]}], 
  SuperscriptBox["w", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843767401795957*^9, 3.843767412857983*^9}, {
   3.8437674633700447`*^9, 3.843767505591243*^9}, 3.8437675705516644`*^9, 
   3.843767617415826*^9, {3.843767798851973*^9, 3.843767818670321*^9}, {
   3.843767939940751*^9, 3.843767989940806*^9}, {3.8437680266610928`*^9, 
   3.84376807263897*^9}, 3.8437683614380617`*^9},
 CellLabel->
  "Out[275]=",ExpressionUUID->"df99470a-2e79-421f-bdc6-4a9d0721f2c3"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq16", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq16", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", 
    FractionBox[
     SuperscriptBox["L", "2"], 
     SuperscriptBox["w", "2"]], ")"}], 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dw", "2"], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], " ", ")"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437680760827703`*^9, 3.843768128424507*^9}, 
   3.843768361438326*^9},
 CellLabel->
  "In[276]:=",ExpressionUUID->"1cbfb529-3fc5-4cc3-8002-1f87aeda3c66"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dw", "2"], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["L", "2"]}], 
  SuperscriptBox["w", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843768130302549*^9, 3.843768361438858*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"a51515c3-9dac-4841-83ef-e0f3f6b06ef3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"metric", "[", " ", 
   RowBox[{"eq16", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dw", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ",
    "]"}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768136494607*^9, 3.843768152540072*^9}, 
   3.8437683614390993`*^9},
 CellLabel->
  "In[279]:=",ExpressionUUID->"e95ae004-2a72-40cb-b9bd-d17b4d010249"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox["L", "2"], 
        SuperscriptBox["w", "2"]]}], "0", "0", "0", "0"},
     {"0", 
      FractionBox[
       SuperscriptBox["L", "2"], 
       SuperscriptBox["w", "2"]], "0", "0", "0"},
     {"0", "0", 
      FractionBox[
       SuperscriptBox["L", "2"], 
       SuperscriptBox["w", "2"]], "0", "0"},
     {"0", "0", "0", 
      FractionBox[
       SuperscriptBox["L", "2"], 
       SuperscriptBox["w", "2"]], "0"},
     {"0", "0", "0", "0", 
      FractionBox[
       SuperscriptBox["L", "2"], 
       SuperscriptBox["w", "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768148970167*^9, 3.843768152774496*^9}, 
   3.8437683614396152`*^9},
 CellLabel->
  "Out[279]//MatrixForm=",ExpressionUUID->"9fa2b407-06d7-4ead-98a0-\
0a25e068bdd7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq17a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"w", " ", "->", "  ", 
   FractionBox[
    SuperscriptBox["L", "2"], "r"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437681639136*^9, 3.843768204950362*^9}, 
   3.843768361439863*^9},
 CellLabel->
  "In[284]:=",ExpressionUUID->"e849e232-d917-42ae-a071-394c237960a4"],

Cell[BoxData[
 RowBox[{"w", "\[Rule]", 
  FractionBox[
   SuperscriptBox["L", "2"], "r"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768180890641*^9, 3.8437682052483063`*^9}, 
   3.8437683614403667`*^9},
 CellLabel->
  "Out[285]=",ExpressionUUID->"0d658f13-d20d-4fe9-b23c-87427878d122"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "eq17a", " ", "]"}], "  ", "/.", " ", 
  "dtReplace"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437681839213247`*^9, 3.843768191088421*^9}, 
   3.8437683614406*^9},
 CellLabel->
  "In[286]:=",ExpressionUUID->"b3ba8f93-16dc-4eca-956b-019e577c055d"],

Cell[BoxData[
 RowBox[{"dw", "\[Rule]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"dr", " ", 
     SuperscriptBox["L", "2"]}], 
    SuperscriptBox["r", "2"]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768186451253*^9, 3.8437682067301273`*^9}, 
   3.84376836144112*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"96f1c3d6-6a44-468e-8a05-de4388c0fdfc"],

Cell[BoxData[{
 RowBox[{"eq16", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq16", "  ", "/.", " ", "eq17a"}], "  ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq17b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Not", " ", "listed", " ", "in", " ", "text"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq17b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq16", "  ", "/.", " ", "eq17a"}], "   ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "eq17a", " ", "]"}], "  ", "/.", " ", 
       "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
   " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768213321574*^9, 3.843768297341682*^9}, 
   3.843768361441402*^9},
 CellLabel->
  "In[302]:=",ExpressionUUID->"f72a0067-8412-4653-b9b8-f4ed0943347e"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dw", "2"], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["L", "2"]}], 
  SuperscriptBox["w", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437682148111763`*^9, 3.843768229434505*^9}, {
   3.843768260304247*^9, 3.843768297593132*^9}, 3.843768361441654*^9},
 CellLabel->
  "Out[302]=",ExpressionUUID->"e99dc66e-21b0-4a98-b4d4-36657462e4fe"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dw", "2"], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  SuperscriptBox["L", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437682148111763`*^9, 3.843768229434505*^9}, {
   3.843768260304247*^9, 3.84376829759766*^9}, 3.8437683614418907`*^9},
 CellLabel->
  "Out[303]=",ExpressionUUID->"4aae2a9b-dc8e-4a2a-81e6-274d053d7792"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["dr", "2"], " ", 
    SuperscriptBox["L", "2"]}], 
   SuperscriptBox["r", "2"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["dt", "2"]}], "+", 
      SuperscriptBox["dx", "2"], "+", 
      SuperscriptBox["dy", "2"], "+", 
      SuperscriptBox["dz", "2"]}], ")"}], " ", 
    SuperscriptBox["r", "2"]}], 
   SuperscriptBox["L", "2"]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437682148111763`*^9, 3.843768229434505*^9}, {
   3.843768260304247*^9, 3.8437682976044273`*^9}, 3.843768361442408*^9},
 CellLabel->
  "Out[305]=",ExpressionUUID->"2d4ff2a3-37b1-447f-9356-97318d1e8db6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq17", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq17", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"eq17b", "  ", "/.", " ", 
   RowBox[{"L", "->", " ", "1", " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437682992963448`*^9, 3.843768317893762*^9}, 
   3.8437683614426928`*^9},
 CellLabel->
  "In[308]:=",ExpressionUUID->"d2d3e603-1612-41b9-af1c-e1e4b9e757d6"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["dr", "2"], 
   SuperscriptBox["r", "2"]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437683007053823`*^9, 3.843768318277861*^9}, 
   3.8437683614432364`*^9},
 CellLabel->
  "Out[309]=",ExpressionUUID->"cef45250-37e0-4dd2-bf99-87cb68539465"],

Cell[BoxData[
 RowBox[{
  RowBox[{"metric", "[", " ", 
   RowBox[{"eq17", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dr", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ",
    "]"}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768320920281*^9, 3.843768361443501*^9}},
 CellLabel->
  "In[311]:=",ExpressionUUID->"cd41f219-1803-4db4-94f6-f499b1368ab9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0", "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       SuperscriptBox["r", "2"]], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox["r", "2"], "0", "0"},
     {"0", "0", "0", 
      SuperscriptBox["r", "2"], "0"},
     {"0", "0", "0", "0", 
      SuperscriptBox["r", "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768330666956*^9, 3.8437683614440203`*^9}},
 CellLabel->
  "Out[311]//MatrixForm=",ExpressionUUID->"e626ce37-8830-476b-89a7-\
2cdc6c9f8288"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq18a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq18a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"w", "->", " ", 
   RowBox[{"L", " ", 
    RowBox[{"Exp", "[", 
     FractionBox["u", "L"], "]"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768413629094*^9, 3.8437684413840733`*^9}, 
   3.8437702985270243`*^9},
 CellLabel->
  "In[312]:=",ExpressionUUID->"e55490e4-bce7-4c66-a58e-1cf1ade26ddb"],

Cell[BoxData[
 RowBox[{"w", "\[Rule]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    FractionBox["u", "L"]], " ", "L"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843768442956459*^9, 3.843770298528071*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"a6f6d4e1-2af3-49af-becd-e9956774073b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "eq18a", " ", "]"}], " ", "/.", " ", 
  "dtReplace"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437684460909357`*^9, 3.8437684523139153`*^9}, 
   3.843770298528463*^9},
 CellLabel->
  "In[314]:=",ExpressionUUID->"600162d2-71ac-4a40-ad67-075fa2e82b3f"],

Cell[BoxData[
 RowBox[{"dw", "\[Rule]", 
  RowBox[{"du", " ", 
   SuperscriptBox["\[ExponentialE]", 
    FractionBox["u", "L"]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843768452743342*^9, 3.8437702985292397`*^9},
 CellLabel->
  "Out[314]=",ExpressionUUID->"77985ce0-9612-4274-be65-fe58d1e0487e"],

Cell[BoxData[{
 RowBox[{"eq16", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq16", " ", "/.", " ", "eq18a"}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq18", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq18", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Collect", "[", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"eq16", " ", "/.", " ", "eq18a"}], "  ", "/.", " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Dt", "[", " ", "eq18a", " ", "]"}], " ", "/.", " ", 
         "dtReplace"}], " ", ")"}]}], " ", "//", " ", "Expand"}], "  ", ")"}],
     " ", ",", 
    RowBox[{"Exp", "[", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "2"}], "u"}], "L"], "]"}]}], " ", "]"}], " "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768466381667*^9, 3.843768546354827*^9}, 
   3.843770298529613*^9},
 CellLabel->
  "In[330]:=",ExpressionUUID->"a22dbfcb-13b2-472e-97b9-33b76f73ea9c"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dw", "2"], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["L", "2"]}], 
  SuperscriptBox["w", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437684679942303`*^9, 3.843768546671727*^9}, 
   3.843770298529909*^9},
 CellLabel->
  "Out[330]=",ExpressionUUID->"88067707-7cfa-4c91-8351-726844eec2d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], "+", 
    SuperscriptBox["dw", "2"], "+", 
    SuperscriptBox["dx", "2"], "+", 
    SuperscriptBox["dy", "2"], "+", 
    SuperscriptBox["dz", "2"]}], ")"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "u"}], "L"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437684679942303`*^9, 3.843768546677822*^9}, 
   3.8437702985301933`*^9},
 CellLabel->
  "Out[331]=",ExpressionUUID->"2c506aa8-31ed-4a84-9800-7d96325a08de"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["du", "2"], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", "u"}], "L"]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437684679942303`*^9, 3.843768546683235*^9}, 
   3.843770298530971*^9},
 CellLabel->
  "Out[333]=",ExpressionUUID->"41a705cd-222e-45a4-95f0-c49e9e8792d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"metric", "[", " ", 
   RowBox[{"eq18", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ",
    "]"}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768549077559*^9, 3.8437685679626017`*^9}, 
   3.843770298531293*^9},
 CellLabel->
  "In[335]:=",ExpressionUUID->"057dd5c8-8492-4852-bcf6-6143f7a09d60"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"2", " ", "u"}], "L"]}]]}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "u"}], "L"]}]], "0", "0"},
     {"0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "u"}], "L"]}]], "0"},
     {"0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", "u"}], "L"]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768562957795*^9, 3.843768568292499*^9}, 
   3.843770298532062*^9},
 CellLabel->
  "Out[335]//MatrixForm=",ExpressionUUID->"0d355939-f034-4a63-87f9-\
18dbef524895"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq20a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Transform", " ", "6", " ", "in", " ", "table"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq20a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"r", "\[Rule]", " ", 
   FractionBox[
    RowBox[{"2", " ", "\[Zeta]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Zeta]", "2"]}], ")"}], " "}]]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437687974681683`*^9, 3.843768851776979*^9}, 
   3.843770298532428*^9},ExpressionUUID->"514573d8-73e1-4c38-bd9a-\
51847fc6d897"],

Cell[BoxData[
 RowBox[{"r", "\[Rule]", 
  FractionBox[
   RowBox[{"2", " ", "\[Zeta]"}], 
   RowBox[{"1", "-", 
    SuperscriptBox["\[Zeta]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843768847004402*^9, 3.843770298533379*^9},
 CellLabel->
  "Out[337]=",ExpressionUUID->"c8cf13ff-40fb-4118-8820-ab018954512a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "eq20a", " ", "]"}], " ", "/.", " ", 
  "dtReplace"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84376885419446*^9, 3.8437688581465387`*^9}, 
   3.8437702985337887`*^9},
 CellLabel->
  "In[338]:=",ExpressionUUID->"518f8881-a111-4e34-b0a5-54cb06c9f8dd"],

Cell[BoxData[
 RowBox[{"dr", "\[Rule]", 
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", "d\[Zeta]", " ", 
     SuperscriptBox["\[Zeta]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"2", " ", "d\[Zeta]"}], 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Zeta]", "2"]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843768858520041*^9, 3.8437702985345793`*^9},
 CellLabel->
  "Out[338]=",ExpressionUUID->"6a83af17-742f-48de-9281-3682677dbc3f"],

Cell[BoxData[{
 RowBox[{"eq8", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq8", " ", "/.", " ", "eq20a"}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq20", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq20", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq8", " ", "/.", " ", "eq20a"}], "  ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "eq20a", " ", "]"}], " ", "/.", " ", 
       "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
   " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768862875504*^9, 3.843768908342575*^9}, 
   3.843770298534934*^9},
 CellLabel->
  "In[348]:=",ExpressionUUID->"060d30ba-4830-4933-ba49-65cd5cd2dba1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox["r", "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["r", "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768863838258*^9, 3.843768908618703*^9}, 
   3.843770298535236*^9},
 CellLabel->
  "Out[348]=",ExpressionUUID->"b7f25e73-2610-44cd-b847-212a7b95b0b0"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["d\[Theta]", "2"], " ", 
    SuperscriptBox["\[Zeta]", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"4", " ", 
      SuperscriptBox["\[Zeta]", "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["\[Zeta]", "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]]}], 
    ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768863838258*^9, 3.843768908624753*^9}, 
   3.84377029853555*^9},
 CellLabel->
  "Out[349]=",ExpressionUUID->"188518b7-4d0c-4ee9-9e8b-a2f5318b2c99"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]}], "+", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["d\[Zeta]", "2"], "+", 
      RowBox[{
       SuperscriptBox["d\[Theta]", "2"], " ", 
       SuperscriptBox["\[Zeta]", "2"]}]}], ")"}]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768863838258*^9, 3.843768908631556*^9}, 
   3.843770298536325*^9},
 CellLabel->
  "Out[351]=",ExpressionUUID->"5e6a7fba-6315-4544-9ee4-3af45f583fe7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"metric", "[", " ", 
   RowBox[{"eq20", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "d\[Theta]", ",", "d\[Zeta]"}], " ", "}"}]}], " ", 
   "]"}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768911985201*^9, 3.843768930966412*^9}, 
   3.843770298536644*^9},
 CellLabel->
  "In[353]:=",ExpressionUUID->"969dc56a-279a-470d-bb74-8ffe8e23c640"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]]}], "0", "0"},
     {"0", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["\[Zeta]", "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]], "0"},
     {"0", "0", 
      FractionBox["4", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843768926756721*^9, 3.843768931220449*^9}, 
   3.8437702985374126`*^9},
 CellLabel->
  "Out[353]//MatrixForm=",ExpressionUUID->"5cae4c7a-1edd-4dff-997a-\
c32ae8b7bda6"],

Cell[BoxData["hyperboloid"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769047538843*^9, 3.843769086239709*^9}, 
   3.843770298537719*^9},
 CellLabel->
  "In[356]:=",ExpressionUUID->"bea94aa5-1672-4828-b2d0-1ab9a09853c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["T", "2"], "+", 
   SuperscriptBox["W", "2"], "-", 
   SuperscriptBox["X", "2"], "-", 
   SuperscriptBox["Y", "2"]}], "\[Equal]", 
  SuperscriptBox["L", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437690489482517`*^9, 3.8437690873451643`*^9}, 
   3.8437702985384703`*^9},
 CellLabel->
  "Out[356]=",ExpressionUUID->"50ea632b-48c8-47b8-a583-1295262b9883"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["r", "2"], "==", " ", 
      RowBox[{
       SuperscriptBox["X", "2"], "+", " ", 
       SuperscriptBox["Y", "2"]}]}], " ", ",", " ", "X"}], " ", "]"}], " ", 
   "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84376909206636*^9, 3.843769117474185*^9}, 
   3.843770298538967*^9},
 CellLabel->
  "In[359]:=",ExpressionUUID->"82206ac5-a7b7-45a6-bcdd-a494b9aa61e1"],

Cell[BoxData[
 RowBox[{"X", "\[Rule]", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["r", "2"], "-", 
    SuperscriptBox["Y", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769103869198*^9, 3.843769117711405*^9}, 
   3.843770298539905*^9},
 CellLabel->
  "Out[359]=",ExpressionUUID->"0aa26aeb-ca30-4367-ba64-38427b84d662"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hyperboloid", " ", "/.", " ", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], "==", " ", 
        RowBox[{
         SuperscriptBox["X", "2"], "+", " ", 
         SuperscriptBox["Y", "2"]}]}], " ", ",", " ", "X"}], " ", "]"}], " ", 
     "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], " ", "//", " ", "Expand", 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769120450322*^9, 3.8437691284791107`*^9}, 
   3.8437702985402927`*^9},
 CellLabel->
  "In[360]:=",ExpressionUUID->"b7b5251d-123b-4d0f-9f6a-83d733631b04"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["r", "2"]}], "+", 
   SuperscriptBox["T", "2"], "+", 
   SuperscriptBox["W", "2"]}], "\[Equal]", 
  SuperscriptBox["L", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843769129079603*^9, 3.843770298541033*^9},
 CellLabel->
  "Out[360]=",ExpressionUUID->"0c3c556c-4dbd-452d-9e49-fa32f2789e0c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq21a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Not", " ", "listed"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq21a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{"hyperboloid", " ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{
           SuperscriptBox["r", "2"], "==", " ", 
           RowBox[{
            SuperscriptBox["X", "2"], "+", " ", 
            SuperscriptBox["Y", "2"]}]}], " ", ",", " ", "X"}], " ", "]"}], 
        " ", "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], " ", "//", " ", "Expand"}], "  ", 
    ")"}], "  ", "/.", " ", 
   RowBox[{"L", "->", " ", "1", " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84376914714141*^9, 3.84376919400965*^9}, {
   3.843769289734964*^9, 3.843769292750605*^9}, 3.843770298541395*^9},
 CellLabel->
  "In[369]:=",ExpressionUUID->"27a564e2-0c08-493b-8a15-c49e02655c73"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["r", "2"]}], "+", 
   SuperscriptBox["T", "2"], "+", 
   SuperscriptBox["W", "2"]}], "\[Equal]", "1"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843769150599872*^9, 3.8437691835892067`*^9, 
  3.843769293193762*^9, 3.843770298542158*^9},
 CellLabel->
  "Out[370]=",ExpressionUUID->"61ce0d21-d95f-48ee-b991-490370f46372"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq21b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Not", " ", "listed"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq21b", " ", "=", "  ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", " ", "->", " ", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"r", "->", " ", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq21b", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769200336074*^9, 3.843769230887514*^9}, 
   3.8437702985425034`*^9},
 CellLabel->
  "In[364]:=",ExpressionUUID->"453ef4e5-92f0-4779-8afe-4cddb952e6c9"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]},
     {
      RowBox[{"r", "\[Rule]", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{3.843769231164844*^9, 3.8437702985432653`*^9},
 CellLabel->
  "Out[366]//TableForm=",ExpressionUUID->"6f57d577-fb73-4734-be93-\
1719d8bb3e2d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "eq21b", " ", "]"}], " ", "/.", " ", 
    "dtReplace"}], " ", ")"}], "  ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769816271*^9, 3.843769830028097*^9}, 
   3.843770298543578*^9},
 CellLabel->
  "In[405]:=",ExpressionUUID->"4f492a9b-e2c0-4ff6-b4b9-878f7de12a35"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Chi]", " ", "\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]},
     {
      RowBox[{"dr", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Chi]", " ", "\[Rho]", " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{{3.843769821791152*^9, 3.843769830499939*^9}, 
   3.84377029854426*^9},
 CellLabel->
  "Out[405]//TableForm=",ExpressionUUID->"f2c01a38-5506-44db-8c6e-\
8021bc066430"],

Cell[BoxData[{
 RowBox[{"eq21a", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq21c", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Not", " ", "listed"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq21c", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq21a", " ", "/.", " ", "eq21b"}], "  ", "//", " ", "Expand"}], 
   " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769233299027*^9, 3.84376924304797*^9}, {
   3.84376930422803*^9, 3.843769356919262*^9}, 3.8437702985445633`*^9},
 CellLabel->
  "In[376]:=",ExpressionUUID->"6d0ac0fa-0e39-4180-ab49-52d4ec62b50b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["r", "2"]}], "+", 
   SuperscriptBox["T", "2"], "+", 
   SuperscriptBox["W", "2"]}], "\[Equal]", "1"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769238918077*^9, 3.843769243306171*^9}, {
   3.8437693072267942`*^9, 3.843769321918181*^9}, 3.843769357131583*^9, 
   3.843770298544898*^9},
 CellLabel->
  "Out[376]=",ExpressionUUID->"9e188979-f237-4be0-99e0-36d7d3b0fd3d"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["W", "2"], "\[Equal]", 
  RowBox[{"1", "+", 
   SuperscriptBox["\[Rho]", "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769238918077*^9, 3.843769243306171*^9}, {
   3.8437693072267942`*^9, 3.843769321918181*^9}, 3.843769357136917*^9, 
   3.843770298545623*^9},
 CellLabel->
  "Out[378]=",ExpressionUUID->"caab2a34-29ba-4ae7-9883-6b9f25c7e98e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq21c", " ", ",", " ", "W"}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437694121695337`*^9, 3.8437694269933443`*^9}, 
   3.843770298545908*^9},
 CellLabel->
  "In[386]:=",ExpressionUUID->"7d792843-1b96-4240-b060-6cc760108556"],

Cell[BoxData[
 RowBox[{"W", "\[Rule]", 
  SqrtBox[
   RowBox[{"1", "+", 
    SuperscriptBox["\[Rho]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769419911227*^9, 3.8437694271996527`*^9}, 
   3.843770298546583*^9},
 CellLabel->
  "Out[386]=",ExpressionUUID->"35ca0ed6-b08d-422c-9f83-b45f3a4e4759"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "eq21c", " ", "]"}], "  ", "/.", " ", 
    "dtReplace"}], " ", ")"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769360121936*^9, 3.84376938383873*^9}, 
   3.843770298546871*^9},
 CellLabel->
  "In[381]:=",ExpressionUUID->"8b84b810-662d-4542-9f85-9f0b72085fed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "dW", " ", "W"}], "\[Equal]", 
  RowBox[{"2", " ", "d\[Rho]", " ", "\[Rho]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769363869124*^9, 3.843769384066025*^9}, 
   3.843770298547543*^9},
 CellLabel->
  "Out[381]=",ExpressionUUID->"d129ce40-a88d-4fd0-b7b2-06947df9de83"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "eq21c", " ", "]"}], "  ", "/.", " ", 
       "dtReplace"}], " ", ")"}], "  ", ",", " ", "dW"}], " ", "]"}], " ", 
   "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769378113777*^9, 3.8437694008894157`*^9}, 
   3.8437702985478477`*^9},
 CellLabel->
  "In[384]:=",ExpressionUUID->"389bf348-acb4-457f-a1f7-82ee68ff9400"],

Cell[BoxData[
 RowBox[{"dW", "\[Rule]", 
  FractionBox[
   RowBox[{"d\[Rho]", " ", "\[Rho]"}], "W"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437693918782682`*^9, 3.843769401111655*^9}, 
   3.843770298548539*^9},
 CellLabel->
  "Out[384]=",ExpressionUUID->"7d691cfe-ed43-4566-841a-5caba2d524d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq21d", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Not", " ", "listed"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq21d", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Dt", "[", " ", "eq21c", " ", "]"}], "  ", "/.", " ", 
         "dtReplace"}], " ", ")"}], "  ", ",", " ", "dW"}], " ", "]"}], " ", 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "  ", "/.", " ", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq21c", " ", ",", " ", "W"}], " ", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437694379809303`*^9, 3.843769468843545*^9}, 
   3.843770298548909*^9},
 CellLabel->
  "In[388]:=",ExpressionUUID->"d97f028f-fd2c-4eac-840e-925372afbee7"],

Cell[BoxData[
 RowBox[{"dW", "\[Rule]", 
  FractionBox[
   RowBox[{"d\[Rho]", " ", "\[Rho]"}], 
   SqrtBox[
    RowBox[{"1", "+", 
     SuperscriptBox["\[Rho]", "2"]}]]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769443070127*^9, 3.843769469188861*^9}, 
   3.843770298549618*^9},
 CellLabel->
  "Out[389]=",ExpressionUUID->"b2644a0b-09db-4c04-a14a-6d358ea5d351"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "eq21a", " ", "]"}], " ", "/.", " ", 
  "dtReplace"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437696532628107`*^9, 3.843769671349759*^9}, 
   3.8437702985498962`*^9},
 CellLabel->
  "In[392]:=",ExpressionUUID->"ea6bf600-48c5-4cf5-a988-584e126740b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "dr", " ", "r"}], "+", 
   RowBox[{"2", " ", "dT", " ", "T"}], "+", 
   RowBox[{"2", " ", "dW", " ", "W"}]}], "\[Equal]", "0"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769655339258*^9, 3.843769671744069*^9}, 
   3.843770298550538*^9},
 CellLabel->
  "Out[392]=",ExpressionUUID->"29017a04-6c5c-4d71-bbd7-f8c7fc4cdb82"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "eq21b", "  ", "]"}], " ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437696855413437`*^9, 3.843769696507456*^9}, 
   3.843770298550836*^9},
 CellLabel->
  "In[395]:=",ExpressionUUID->"0bdf13e3-5f2c-4ca5-aeea-c33d30e3d66e"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Chi]", " ", "\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]},
     {
      RowBox[{"dr", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Chi]", " ", "\[Rho]", " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{{3.8437696825551434`*^9, 3.843769696805225*^9}, 
   3.843770298551515*^9},
 CellLabel->
  "Out[395]//TableForm=",ExpressionUUID->"3d7501eb-e1bf-4a51-9496-\
d2cd6e786af2"],

Cell[BoxData[{"lineElement", "\[IndentingNewLine]", 
 RowBox[{"lineElement", "/.", " ", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Dt", "[", " ", "eq21b", " ", "]"}], " ", "/.", " ", 
    "dtReplace"}], " ", ")"}], "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769808702827*^9, 3.843769809366022*^9}, {
   3.843769839582644*^9, 3.843769846346045*^9}, 3.843770298551819*^9},
 CellLabel->
  "In[406]:=",ExpressionUUID->"37b4cf0e-4896-4704-852c-dcdae73e9acf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843769809772543*^9, 3.843769848182061*^9, 
  3.843770298552073*^9},
 CellLabel->
  "Out[406]=",ExpressionUUID->"2f6bf4bc-c0b1-4b10-9474-6f817212a91a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dW", "2"]}], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"d\[Chi]", " ", "\[Rho]", " ", 
      RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
     RowBox[{"d\[Rho]", " ", 
      RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}], ")"}], "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843769809772543*^9, 3.843769848187283*^9, 
  3.843770298552759*^9},
 CellLabel->
  "Out[407]=",ExpressionUUID->"744b4c6c-2204-4748-b5fd-b1a696ce9016"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Too", " ", "lazy", " ", "and", " ", "too", " ", "tired", " ", "to", " ", 
    "derive", " ", "equation", " ", "21", " ", "so", " ", "gonna", " ", 
    "type", " ", "it", " ", "in"}], "  ", "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769967721057*^9, 3.843769977557741*^9}, {
   3.843770071374626*^9, 3.843770086109272*^9}, 
   3.843770298553039*^9},ExpressionUUID->"713a6fdf-6400-4051-9cb9-\
fa158f985269"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq21", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq21", " ", "=", " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", " ", 
     SuperscriptBox[
      RowBox[{"Sinh", "[", "\[Psi]", "]"}], "2"]}], 
    SuperscriptBox["d\[Chi]", "2"]}], "+", " ", 
   SuperscriptBox["d\[Psi]", "2"], "+", "  ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sinh", "[", "\[Psi]", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"Cosh", "[", "\[Chi]", "]"}], "2"], 
    SuperscriptBox["d\[Theta]", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843770087984028*^9, 3.843770088501178*^9}, {
  3.843770298553256*^9, 3.843770370217507*^9}},
 CellLabel->
  "In[413]:=",ExpressionUUID->"7cf1698c-d485-4d30-87b5-369e454df816"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["d\[Psi]", "2"], "-", 
  RowBox[{
   SuperscriptBox["d\[Chi]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "\[Psi]", "]"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", "\[Chi]", "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", "\[Psi]", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.843770371306963*^9, 3.843770417033208*^9},
 CellLabel->
  "Out[414]=",ExpressionUUID->"19ef5857-b185-443e-8ab6-3c7456d56335"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq22", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"transform", " ", "8", " ", "in", " ", "table"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq22", " ", "=", "  ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Psi]", "]"}], " ", 
       RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"r", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Psi]", "]"}], " ", 
       RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"W", "\[Rule]", " ", 
      RowBox[{"Cosh", "[", "\[Psi]", "]"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843769980016464*^9, 3.843770018917836*^9}, 
   3.843770298553926*^9},
 CellLabel->
  "In[409]:=",ExpressionUUID->"91616a5a-d85e-4a55-a644-af371fd03d0c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq23", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"transform", " ", "10", " ", "in", " ", "table"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq23", " ", "=", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"T", "\[Rule]", " ", 
       RowBox[{
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"X", "\[Rule]", " ", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Y", "\[Rule]", " ", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"W", "\[Rule]", "  ", 
       RowBox[{"Cos", "[", "t", "]"}]}]}], "\[IndentingNewLine]", "}"}], "  ",
     "/.", " ", 
    RowBox[{"r", "\[Rule]", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "t", "]"}], " ", 
      RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]}], " ", ";", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"book", " ", "has", "  ", "r"}], "\[Rule]", " ", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", 
     RowBox[{"Sinh", "[", "X", "]"}], " ", "not", " ", "\[Chi]", "  ", "in", 
     " ", "table", " ", "do", " ", "they", " ", "mean", " ", 
     RowBox[{"\[Chi]", "?", "  ", "Yes"}], " ", "see", " ", "top", " ", "of", 
     " ", "page", " ", "661"}]}], "  ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.84377019755058*^9, 3.843770209843832*^9}, {
  3.843770254757291*^9, 3.843770298554715*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"06055f1a-7797-4d72-9ecf-c2d32220798f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825286834193645*^9, 
  3.825286858895528*^9}},ExpressionUUID->"9e2b8536-9136-4ca1-940d-\
3428595987cb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform1", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{
       SqrtBox[
        RowBox[{"1", "+", 
         SuperscriptBox["r", "2"]}]], 
       RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", " ", 
     RowBox[{"W", "\[Rule]", " ", 
      RowBox[{
       SqrtBox[
        RowBox[{"1", "+", 
         SuperscriptBox["r", "2"]}]], 
       RowBox[{"Sin", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", " ", 
     RowBox[{"X", " ", "\[Rule]", " ", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     " ", 
     RowBox[{"Y", "\[Rule]", "  ", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], " ", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Z", "\[Rule]", " ", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"??", 
        RowBox[{"?", " ", 
         RowBox[{"Page", " ", "628", " ", "top"}]}]}]}]}], " ", "*)"}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"transform1", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825286846497304*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"019dcaa6-2e4d-4c9a-a2cb-b024a2b9e624"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        RowBox[{"Cos", "[", "t", "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8252868464974117`*^9, 3.843762534005488*^9},
 CellLabel->
  "Out[23]//TableForm=",ExpressionUUID->"57bd52a6-4497-4f89-b749-\
ca1b168981e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform1", " ", "]"}], "   ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825286846497484*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"d0a38698-b6ad-4a00-8b62-c518db286121"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        FractionBox[
         RowBox[{"dr", " ", "r", " ", 
          RowBox[{"Cos", "[", "t", "]"}]}], 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["r", "2"]}]]], "-", 
        RowBox[{"dt", " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["r", "2"]}]], " ", 
         RowBox[{"Sin", "[", "t", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        RowBox[{"dt", " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["r", "2"]}]], " ", 
         RowBox[{"Cos", "[", "t", "]"}]}], "+", 
        FractionBox[
         RowBox[{"dr", " ", "r", " ", 
          RowBox[{"Sin", "[", "t", "]"}]}], 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox["r", "2"]}]]]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        RowBox[{"dr", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"d\[Theta]", " ", "r", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Theta]", " ", "r", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"dr", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825286846497561*^9, 3.843762534034421*^9},
 CellLabel->
  "Out[24]//TableForm=",ExpressionUUID->"ac35705d-08d0-4928-9a97-\
e64c6deeb9ac"],

Cell[BoxData["lineElement"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825286846497649*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"ca9776c6-bc04-44ab-86c3-79e6f3730658"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.82528684649772*^9, 3.8437625340526867`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"030e2a07-d606-45b7-8e15-8664d6d7c2f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineElement", " ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"Dt", "[", " ", "transform1", " ", "]"}], "   ", "/.", " ", 
      "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], "  ", "//", 
  " ", "Simplify", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "reproduces", " ", "equation", " ", "8", " ", "page", " ", "652"}], ",", 
    " ", 
    RowBox[{"issue", " ", "of", " ", "AdS3", " ", "vs", " ", "AdS4"}]}], " ", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8252868464977818`*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"200f2f92-60ab-4ccc-a1f8-ec6de2981f5d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["d\[Theta]", "2"], " ", 
   SuperscriptBox["r", "2"]}], "+", 
  FractionBox[
   SuperscriptBox["dr", "2"], 
   RowBox[{"1", "+", 
    SuperscriptBox["r", "2"]}]], "-", 
  RowBox[{
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["r", "2"]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825286846497849*^9, 3.843762534094268*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"c0ab5fe4-943e-43ad-9b12-3a859d0a9b3e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82528686329525*^9, 3.825286881231489*^9}, 
   3.825287208791482*^9},ExpressionUUID->"192157cf-7b3e-49f5-8d1f-\
4a64dc9b5cb0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform2", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", " ", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
       RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"W", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
       RowBox[{"Sin", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"X", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"Y", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"transform2", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286873081732*^9, 3.82528720879163*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"a6d2af28-fb26-496d-9825-c4841085cfef"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        RowBox[{"Cosh", "[", "\[Rho]", "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{
        RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{3.8252868730818233`*^9, 3.825287208791746*^9, 
  3.843762534111659*^9},
 CellLabel->
  "Out[29]//TableForm=",ExpressionUUID->"d2c9ac53-b8e3-45d6-abf3-\
7b28485bce72"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform2", " ", "]"}], "  ", "//.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286873081889*^9, 3.8252872087918463`*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"1480aeb4-1e2c-4cc0-bc07-759ddb5fc7a6"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "dt"}], " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
         RowBox[{"Sin", "[", "t", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        RowBox[{"dt", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}]}], "-", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Rho]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Rho]", "]"}]}]}]}]}
    },
    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", 10002.},
 CellChangeTimes->{3.8252868730819597`*^9, 3.825287208791944*^9, 
  3.843762534138905*^9},
 CellLabel->
  "Out[30]//TableForm=",ExpressionUUID->"eca1db90-fdae-4720-ab19-\
c0923d7ef62a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Collect", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"lineElement", "  ", "/.", " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Dt", "[", " ", "transform2", " ", "]"}], "  ", "//.", " ", 
         "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], "  ", ",", 
     " ", 
     RowBox[{"{", " ", 
      RowBox[{
       SuperscriptBox["dt", "2"], ",", " ", 
       SuperscriptBox["d\[Rho]", "2"], " ", ",", " ", 
       SuperscriptBox["d\[Theta]", "2"]}], "}"}]}], " ", "]"}], "  ", "//", 
   " ", "Simplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
      "Not", " ", "quite", " ", "the", " ", "simplification", " ", "we", " ", 
       "want", " ", "so"}], "..."}], ".", " ", "next"}], " ", "step"}], " ", 
   "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.825286873082024*^9, 3.8252872087920303`*^9, {3.8437626138812532`*^9, 
   3.843762616656248*^9}, {3.843762750745203*^9, 
   3.8437627629605293`*^9}},ExpressionUUID->"c1c7b72d-31de-4018-8717-\
e24592ad46e2"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], "-", 
    SuperscriptBox["d\[Theta]", "2"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["d\[Rho]", "2"]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["dt", "2"]}], "+", 
       SuperscriptBox["d\[Theta]", "2"]}], ")"}], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"2", " ", "\[Rho]"}], "]"}]}]}], ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286873082107*^9, 3.825287208792128*^9, 
  3.843762534158309*^9, 3.8437626169898376`*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"fff70c63-fd0a-49ff-89ee-a05c82ddf720"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", " ", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{"Collect", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"lineElement", "  ", "/.", " ", 
            RowBox[{"(", " ", 
             RowBox[{
              RowBox[{"Dt", "[", " ", "transform2", " ", "]"}], "  ", "//.", 
              " ", "dtReplace"}], " ", ")"}]}], "  ", "//", " ", "Expand"}], 
          "  ", ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{
            SuperscriptBox["dt", "2"], ",", " ", 
            SuperscriptBox["d\[Rho]", "2"], " ", ",", " ", 
            SuperscriptBox["d\[Theta]", "2"]}], "}"}]}], " ", "]"}], "  ", 
        ")"}], " ", ",", "  ", 
       RowBox[{"{", " ", 
        RowBox[{"dt", ",", " ", "d\[Rho]", " ", ",", " ", "d\[Theta]"}], 
        "}"}]}], "  ", "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}]}], "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric2", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8437625897202272`*^9, 3.843762655160919*^9}, {
  3.843762740545411*^9, 3.8437627467205343`*^9}, {3.843762778257677*^9, 
  3.8437628060358*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"a5195825-b4e3-4b81-8608-da2c8727a6a0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Cosh", "[", "\[Rho]", "]"}], "2"]}], "0", "0"},
     {"0", "1", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"Sinh", "[", "\[Rho]", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.843762632932622*^9, 3.843762655972117*^9}, {
  3.843762738809771*^9, 3.843762747045405*^9}, {3.843762798590102*^9, 
  3.8437628060422993`*^9}},
 CellLabel->
  "Out[87]//MatrixForm=",ExpressionUUID->"6ecc40b1-5e28-4e63-892b-\
f5a4e7be1f2e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 3", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8252868960238543`*^9, 3.825286915231546*^9}, 
   3.825287193426499*^9, 
   3.843762943062442*^9},ExpressionUUID->"833f908d-62dc-44a2-b790-\
51ef7707396b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform3", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      FractionBox["t", "w"]}], ",", "\[IndentingNewLine]", 
     RowBox[{"X", "\[Rule]", " ", 
      FractionBox["x", "w"]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Y", "\[Rule]", " ", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["x", "2"], "-", 
           SuperscriptBox["t", "2"]}], "w"], "+", "w", "-", 
         FractionBox["1", "w"]}], ")"}]}]}], " ", ",", "\[IndentingNewLine]", 
     
     RowBox[{"(*", " ", 
      RowBox[{"Z", "\[Rule]", " ", 
       RowBox[{"??", "??"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", " ", 
     RowBox[{"W", "\[Rule]", "   ", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["x", "2"], "-", 
           SuperscriptBox["t", "2"]}], "w"], "+", "w", "+", 
         FractionBox["1", "w"]}], ")"}]}]}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.8252869054929028`*^9, 3.8252871934266777`*^9, 
  3.843762943063034*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"911bb26a-499e-4229-af4f-19e8b05aa251"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform3", " ", "]"}], "  ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.825286905492977*^9, 3.8252871934267693`*^9, 
  3.843762943063435*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"008ee85f-371b-41af-b08f-2fb1b8b4054f"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"dw", " ", "t"}], 
          SuperscriptBox["w", "2"]]}], "+", 
        FractionBox["dt", "w"]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        FractionBox["dx", "w"], "-", 
        FractionBox[
         RowBox[{"dw", " ", "x"}], 
         SuperscriptBox["w", "2"]]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"dw", "+", 
          FractionBox["dw", 
           SuperscriptBox["w", "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "dt", " ", "t"}], "+", 
            RowBox[{"2", " ", "dx", " ", "x"}]}], "w"], "-", 
          FractionBox[
           RowBox[{"dw", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["t", "2"]}], "+", 
              SuperscriptBox["x", "2"]}], ")"}]}], 
           SuperscriptBox["w", "2"]]}], ")"}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"dw", "-", 
          FractionBox["dw", 
           SuperscriptBox["w", "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "dt", " ", "t"}], "+", 
            RowBox[{"2", " ", "dx", " ", "x"}]}], "w"], "-", 
          FractionBox[
           RowBox[{"dw", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["t", "2"]}], "+", 
              SuperscriptBox["x", "2"]}], ")"}]}], 
           SuperscriptBox["w", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.825286905493079*^9, 3.825287193426882*^9, 
  3.843762534211698*^9, 3.8437629430638113`*^9},
 CellLabel->
  "Out[34]//TableForm=",ExpressionUUID->"a7680fbb-1446-46eb-b986-\
fd97948ff435"],

Cell[BoxData["lineElement"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.843762917544981*^9, 3.843762943064093*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"c24a03b9-e9c1-4cd5-956c-275764d39ef3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8437629190156803`*^9, 3.843762943070389*^9}},
 CellLabel->"Out[91]=",ExpressionUUID->"135b7784-f9d1-4319-9e17-f69cf1e36060"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "14", " ", "page", " ", "656"}], " ", "*)"}], " ",
   "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"lineElement", " ", "/.", " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Dt", "[", " ", "transform3", " ", "]"}], "  ", "/.", " ", 
       "dtReplace"}], "  ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
   " ", "Simplify", " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8437628746095333`*^9, 3.843762896832327*^9}, 
   3.843762943070875*^9, {3.843763058377095*^9, 
   3.8437630724243927`*^9}},ExpressionUUID->"6f961f3a-ed16-4272-84d6-\
4f8ef7d4971e"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["dt", "2"]}], "+", 
   SuperscriptBox["dw", "2"], "+", 
   SuperscriptBox["dx", "2"]}], 
  SuperscriptBox["w", "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.843762877646367*^9, 3.8437628971366262`*^9}, 
   3.843762943077014*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"40a48890-d545-4477-955a-a81bb69c1147"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 4", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82528692884097*^9, 3.82528694300744*^9}, 
   3.843763633654468*^9},ExpressionUUID->"91a495d3-b2bc-4a71-9cbe-\
18c69deeaba7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform4", "]"}], "\[IndentingNewLine]", 
 RowBox[{"transform4", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"w", "\[Rule]", " ", 
   FractionBox[
    SuperscriptBox["L", "2"], "v"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.825286934817638*^9, 3.8437636336549873`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"8c5e59c5-9fa2-4f78-8df6-ed19a1b15844"],

Cell[BoxData[
 RowBox[{"w", "\[Rule]", 
  FractionBox[
   SuperscriptBox["L", "2"], "v"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.825286934817731*^9, 3.843762534316881*^9, 
  3.843763633655376*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"f765b3d9-67ad-4faf-b535-b204d5bdb68f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "transform4", " ", "]"}], "  ", "/.", " ", 
  "dtReplace", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.825286934817816*^9, 3.843763633655843*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"44e350fa-9a14-484a-a19a-1b45db4df43d"],

Cell[BoxData[
 RowBox[{"dw", "\[Rule]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"dv", " ", 
     SuperscriptBox["L", "2"]}], 
    SuperscriptBox["v", "2"]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.825286934817889*^9, 3.8437625343525047`*^9, 
  3.843763633656212*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"4b852174-3f47-48fb-b4ce-f7dcc8c472fe"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineElement", " ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"Dt", "[", " ", "transform4", " ", "]"}], "  ", "/.", " ", 
      "dtReplace"}], "  ", ")"}]}], " ", "//", " ", "Expand"}], " ", "//", 
  " ", "Simplify", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843762949753664*^9, 3.843762965264426*^9}, 
   3.8437636336566133`*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"ffc8ca9c-1cf3-4fe4-9f53-c6e8745d6f73"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8437629656823483`*^9, 3.843763633662733*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"9062d7d0-74bd-41c6-9537-c78cb4eaa39e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 5", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825286959632546*^9, 3.825286971791377*^9}, 
   3.82528731202822*^9},ExpressionUUID->"6f7dc313-d871-4632-beb1-\
a71028777dee"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform5", "]"}], "\[IndentingNewLine]", 
 RowBox[{"transform5", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"w", " ", "\[Rule]", " ", 
   RowBox[{"L", " ", 
    RowBox[{"Exp", "[", 
     FractionBox["u", "L"], "]"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.825286965415024*^9, 3.825287312028369*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"8d3f169f-44fb-4a61-9c5f-9ce5f396e418"],

Cell[BoxData[
 RowBox[{"w", "\[Rule]", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    FractionBox["u", "L"]], " ", "L"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8252869654151163`*^9, 3.825287312028472*^9, 
  3.843762534378211*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"ee8cc0fd-f87d-4b97-ade9-c883d98b8fc7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "transform5", " ", "]"}], " ", "/.", " ", 
  "dtReplace", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8252869654151917`*^9, 3.825287312028551*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"9dbfc49b-4458-4822-b2d6-befcc79bc376"],

Cell[BoxData[
 RowBox[{"dw", "\[Rule]", 
  RowBox[{"du", " ", 
   SuperscriptBox["\[ExponentialE]", 
    FractionBox["u", "L"]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.825286965415268*^9, 3.825287312028632*^9, 
  3.8437625344117727`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"2de4f64c-252c-41ef-b102-44a2c8970116"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 6", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8252869769358892`*^9, 3.825286989247354*^9}, 
   3.825287317566127*^9},ExpressionUUID->"957f90b9-2f0f-4d2e-beea-\
fde76283c835"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform6", "]"}], "\[IndentingNewLine]", 
 RowBox[{"transform6", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"r", "\[Rule]", " ", 
   RowBox[{"2", " ", 
    RowBox[{"\[Zeta]", "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Zeta]", "2"]}], ")"}], " "}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286982918026*^9, 3.82528731756627*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"42103413-0191-4ec9-aae1-175b17c6ba76"],

Cell[BoxData[
 RowBox[{"r", "\[Rule]", 
  FractionBox[
   RowBox[{"2", " ", "\[Zeta]"}], 
   RowBox[{"1", "-", 
    SuperscriptBox["\[Zeta]", "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286982918119*^9, 3.825287317566409*^9, 
  3.843762534436798*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"b0ba01d0-8fae-4d33-82cd-42c366bae7ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "transform6", " ", "]"}], "  ", "/.", " ", 
  "dtReplace", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286982918191*^9, 3.825287317566498*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"00aeb95e-aeaf-4c24-ad43-b4f84edc5bbc"],

Cell[BoxData[
 RowBox[{"dr", "\[Rule]", 
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", "d\[Zeta]", " ", 
     SuperscriptBox["\[Zeta]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Zeta]", "2"]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"2", " ", "d\[Zeta]"}], 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Zeta]", "2"]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.825286982918269*^9, 3.825287317566587*^9, 
  3.843762534471409*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"1b902947-eca0-4033-a60e-e50a40563472"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 7", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.8252869928635473`*^9, 3.825287007719502*^9}, 
   3.825287324017641*^9},ExpressionUUID->"8e3ef8ce-18f5-4c30-b1cc-\
ef4918349c55"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform7", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{"\[Rho]", " ", 
       RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"r", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Chi]", "]"}], 
       RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"w", "\[Rule]", " ", 
      SqrtBox[
       RowBox[{"1", "+", 
        SuperscriptBox["\[Rho]", "2"]}]]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"transform7", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.825287000121498*^9, 3.8252873240177813`*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"d12b464f-5ff3-4810-aaec-449e3c6f2b00"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{"\[Rho]", " ", 
        RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]},
     {
      RowBox[{"r", "\[Rule]", 
       RowBox[{
        RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]},
     {
      RowBox[{"w", "\[Rule]", 
       SqrtBox[
        RowBox[{"1", "+", 
         SuperscriptBox["\[Rho]", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.825287000121591*^9, 3.8252873240178843`*^9, 
  3.843762534498856*^9},
 CellLabel->
  "Out[46]//TableForm=",ExpressionUUID->"023cd02f-b282-4a06-b5fb-\
89cfb25f6ab5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform7", " ", "]"}], " ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.825287000121665*^9, 3.825287324017962*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"7004d785-625d-4b6b-b10a-9215e1de47f1"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Chi]", " ", "\[Rho]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Rho]", " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]},
     {
      RowBox[{"dr", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Chi]", " ", 
         SuperscriptBox[
          RowBox[{"Cosh", "[", "\[Chi]", "]"}], "2"]}], "+", 
        RowBox[{"d\[Chi]", " ", 
         SuperscriptBox[
          RowBox[{"Sinh", "[", "\[Chi]", "]"}], "2"]}]}]}]},
     {
      RowBox[{"dw", "\[Rule]", 
       FractionBox[
        RowBox[{"d\[Rho]", " ", "\[Rho]"}], 
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox["\[Rho]", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.825287000121736*^9, 3.825287324018065*^9, 
  3.843762534533063*^9},
 CellLabel->
  "Out[47]//TableForm=",ExpressionUUID->"399ecf25-6014-4f9d-8e52-\
142350fa42b0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 8", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82528701290436*^9, 3.825287024927537*^9}, 
   3.825287329259098*^9},ExpressionUUID->"de49b2b5-bafd-4404-8543-\
ea85837e72df"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform8", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform8", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Psi]", "]"}], " ", 
       RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"r", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sinh", "[", "\[Psi]", "]"}], " ", 
       RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"W", "\[Rule]", " ", 
      RowBox[{"Cosh", "[", "\[Psi]", "]"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"transform8", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.825287018928397*^9, 3.825287329259259*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"a1e19157-df01-4d37-9189-deed53588d24"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{
        RowBox[{"Sinh", "[", "\[Chi]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Psi]", "]"}]}]}]},
     {
      RowBox[{"r", "\[Rule]", 
       RowBox[{
        RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Psi]", "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"Cosh", "[", "\[Psi]", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8252870189284973`*^9, 3.825287329259386*^9, 
  3.8437625345611134`*^9},
 CellLabel->
  "Out[50]//TableForm=",ExpressionUUID->"e890cd96-9e49-40bd-98f4-\
46a45d22eebe"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform8", " ", "]"}], " ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8252870189285803`*^9, 3.8252873292594748`*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"452a6692-3170-4741-9feb-f559cce9905b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Psi]", " ", 
         RowBox[{"Cosh", "[", "\[Psi]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Chi]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Psi]", "]"}]}]}]}]},
     {
      RowBox[{"dr", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Psi]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Psi]", "]"}]}], "+", 
        RowBox[{"d\[Chi]", " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Psi]", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{"d\[Psi]", " ", 
        RowBox[{"Sinh", "[", "\[Psi]", "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.825287018928684*^9, 3.825287329259597*^9, 
  3.843762534612982*^9},
 CellLabel->
  "Out[51]//TableForm=",ExpressionUUID->"ed738000-87e3-484d-83a2-\
96143b64d84a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 9", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.825287029399604*^9, 3.8252870451112556`*^9}, 
   3.825287335265601*^9},ExpressionUUID->"88953eaa-8d03-49ac-a8ed-\
f8468a268037"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform9", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform9", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "\[Rule]", " ", 
      RowBox[{"R", " ", 
       RowBox[{"Cosh", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"W", "\[Rule]", " ", 
      RowBox[{"r", " ", 
       RowBox[{"Cosh", "[", "\[Psi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"R", "\[Rule]", 
      SqrtBox[
       RowBox[{" ", 
        RowBox[{"1", "-", 
         SuperscriptBox["r", "2"]}]}]]}]}], " ", 
    RowBox[{"(*", " ", 
     RowBox[{"Again", ",", " ", 
      RowBox[{
      "not", " ", "sure", " ", "about", " ", "square", " ", "root"}]}], " ", 
     "*)"}], " ", "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"transform9", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8252870373269787`*^9, 3.8252873352657967`*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"a1426dab-c50c-49e8-86cb-34fada6f2dd9"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{"R", " ", 
        RowBox[{"Cosh", "[", "t", "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"r", " ", 
        RowBox[{"Cosh", "[", "\[Psi]", "]"}]}]}]},
     {
      RowBox[{"R", "\[Rule]", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["r", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.825287037327071*^9, 3.825287335265933*^9, 
  3.843762534640658*^9},
 CellLabel->
  "Out[54]//TableForm=",ExpressionUUID->"c3b05aea-7ef5-42a9-8958-\
d32a83c78e7a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform9", " ", "]"}], " ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.825287037327137*^9, 3.825287335266074*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"4b6d4560-c738-44ba-9920-4392105c9076"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"dR", " ", 
         RowBox[{"Cosh", "[", "t", "]"}]}], "+", 
        RowBox[{"dt", " ", "R", " ", 
         RowBox[{"Sinh", "[", "t", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        RowBox[{"dr", " ", 
         RowBox[{"Cosh", "[", "\[Psi]", "]"}]}], "+", 
        RowBox[{"d\[Psi]", " ", "r", " ", 
         RowBox[{"Sinh", "[", "\[Psi]", "]"}]}]}]}]},
     {
      RowBox[{"dR", "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"dr", " ", "r"}], 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["r", "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8252870373272133`*^9, 3.8252873352661963`*^9, 
  3.8437625347026854`*^9},
 CellLabel->
  "Out[55]//TableForm=",ExpressionUUID->"7bfe9961-7f06-4d47-a58a-\
4c65fd2bd5d3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 10", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.82528704934317*^9, 3.825287068431069*^9}, 
   3.825287343217835*^9},ExpressionUUID->"1813fe33-67c1-43b5-a132-\
41bdad1860db"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "transform10", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Not", " ", "sure", " ", "this", " ", "makes", " ", "any", " ", "sense"}],
     ",", " ", 
    RowBox[{"check", " ", "again"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"transform10", " ", "=", " ", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"T", "\[Rule]", " ", 
        RowBox[{
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"X", "\[Rule]", " ", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Y", "\[Rule]", " ", 
        RowBox[{"r", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"W", "\[Rule]", "  ", 
        RowBox[{"Cos", "[", "t", "]"}]}]}], "\[IndentingNewLine]", "}"}], 
     "  ", "/.", " ", 
     RowBox[{"r", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"Sin", "[", "t", "]"}], " ", 
       RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]}], " ", ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"book", " ", "has", "  ", "r"}], "\[Rule]", " ", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", 
     RowBox[{"Sinh", "[", "X", "]"}], " ", "do", " ", "they", " ", "mean", 
     " ", 
     RowBox[{"\[Chi]", "?", "  ", "Yes"}], " ", "see", " ", "top", " ", "of", 
     " ", "page", " ", "661"}]}], "  ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"transform10", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.825287061389905*^9, 3.8252873432180567`*^9, {3.8437632181218863`*^9, 
   3.843763231265637*^9}, {3.8437702321107616`*^9, 
   3.84377024258223*^9}},ExpressionUUID->"8238e4e9-9f6f-4dba-bb7e-\
065133124d03"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{
        RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{"Cos", "[", "t", "]"}]}]}
    },
    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", 10006.},
 CellChangeTimes->{3.825287061390007*^9, 3.825287343218195*^9, 
  3.843762534735903*^9, 3.843763232198073*^9},
 CellLabel->
  "Out[97]//TableForm=",ExpressionUUID->"2b97a77b-9a8d-4436-8bf0-\
6186de510c36"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform10", " ", "]"}], " ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.825287061390079*^9, 3.82528734321828*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"852622cc-de04-45d2-b489-117bc6ab8c34"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        RowBox[{"dt", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"d\[Chi]", " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Chi]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
         RowBox[{"Sin", "[", "t", "]"}]}], "+", 
        RowBox[{"dt", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}], "-", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Chi]", " ", 
         RowBox[{"Cosh", "[", "\[Chi]", "]"}], " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}], "+", 
        RowBox[{"dt", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sinh", "[", "\[Chi]", "]"}]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        RowBox[{"-", "dt"}], " ", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]}
    },
    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", 10006.},
 CellChangeTimes->{3.825287061390169*^9, 3.825287343218363*^9, 
  3.843762534783227*^9, 3.843763237282197*^9},
 CellLabel->
  "Out[98]//TableForm=",ExpressionUUID->"e62cff82-5727-4e10-865a-\
66bd0951e70a"],

Cell[BoxData["lineElement"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.825287061390242*^9, 3.825287343218439*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"94ebc874-2339-4a17-a7e6-9d78eb9c12c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.82528706139032*^9, 3.8252873432185287`*^9, 
  3.843762534809724*^9, 3.843763239743845*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"aa1f04dd-a5f0-4550-bf14-8974e662d2a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Not", " ", "the", " ", "simplification", " ", "we", " ", "want", " ", 
    "so", " ", "go", " ", "to", " ", "metric", " ", "first", " ", "then", " ",
     "simplify"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{"lineElement", " ", "/.", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Dt", "[", " ", "transform10", " ", "]"}], " ", "/.", " ", 
        "dtReplace"}], " ", ")"}]}], " ", ")"}], " ", "//", " ", "Expand"}], 
   " ", "//", " ", "Simplify", " "}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.843764672803775*^9, 
  3.8437647411780577`*^9}},ExpressionUUID->"7073b8a5-bbf8-4427-bde2-\
d50da77f8afa"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "8"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "8"}], " ", 
     SuperscriptBox["dt", "2"]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["d\[Theta]", "2"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["d\[Chi]", "2"]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["d\[Theta]", "2"], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["d\[Chi]", "2"]}]}], ")"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"t", "-", 
         RowBox[{"\[ImaginaryI]", " ", "\[Chi]"}]}], ")"}]}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"t", "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Chi]"}]}], ")"}]}], "]"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["d\[Theta]", "2"], " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"2", " ", "\[Chi]"}], "]"}]}]}], ")"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.843764691535994*^9, 3.8437646998589373`*^9}, 
   3.8437647411849337`*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"ed95d159-b842-41f6-9062-bb9d9058e542"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric", "[", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"lineElement", " ", "/.", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"Dt", "[", " ", "transform10", " ", "]"}], " ", "/.", " ", 
          "dtReplace"}], " ", ")"}]}], "  ", ")"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "d\[Theta]", ",", "d\[Chi]"}], "}"}]}], " ", "]"}], 
    "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ",
   "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8437632567123003`*^9, 3.843763333808646*^9}, 
   3.843763653776033*^9, {3.843764663919029*^9, 3.843764665943478*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"f5cc7eb1-c6fe-4376-8ec8-df9ef76cca11"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0"},
     {"0", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sinh", "[", "\[Chi]", "]"}], "2"]}], "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.843763269785516*^9, 3.843763281278496*^9}, {
   3.843763315908437*^9, 3.84376333425955*^9}, 3.843763653781962*^9, 
   3.843764666928446*^9},
 CellLabel->
  "Out[112]//MatrixForm=",ExpressionUUID->"6d2bb471-3cdc-427c-8f5b-\
d3da9450acaa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 11", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{{3.825287073207522*^9, 3.8252870867541122`*^9}, 
   3.825287348993602*^9},ExpressionUUID->"56dd89e9-c8f7-4206-8b1d-\
7ffc64dadd26"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform11", "]"}], "\[IndentingNewLine]", 
 RowBox[{"transform11", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"u", "\[Rule]", " ", 
   RowBox[{"L", " ", 
    RowBox[{"Sin", "[", "t", "]"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.825287079975561*^9, 3.825287348993732*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"645b570f-2a05-428f-bac4-6b4a135e8d1d"],

Cell[BoxData[
 RowBox[{"u", "\[Rule]", 
  RowBox[{"L", " ", 
   RowBox[{"Sin", "[", "t", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.825287079975676*^9, 3.825287348993826*^9, 
  3.843762534861494*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"17e0f448-63c3-4a0b-9e8e-59c5c794ec41"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "transform11", " ", "]"}], "  ", "/.", " ", 
  "dtReplace", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.825287079975751*^9, 3.825287348993922*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"6d6c30bb-f8e1-4ce3-9e90-58c825c3911b"],

Cell[BoxData[
 RowBox[{"du", "\[Rule]", 
  RowBox[{"dt", " ", "L", " ", 
   RowBox[{"Cos", "[", "t", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.},
 CellChangeTimes->{3.8252870799758368`*^9, 3.825287348994011*^9, 
  3.84376253488631*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"6dd4fb47-3058-413c-acb3-72d60138474d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 12", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{{3.8252870945117493`*^9, 3.825287112199616*^9}, 
   3.8437636792833*^9},ExpressionUUID->"9c8ea9b0-d2e5-4dd0-a7f0-5048ad6f8be7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "transform12", "]"}], "\[IndentingNewLine]", 
 RowBox[{"transform12", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"u", "\[Rule]", " ", 
   RowBox[{"L", " ", 
    RowBox[{"Tanh", "[", 
     FractionBox["\[Rho]", "L"], "]"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.8252871065644073`*^9, 3.8437636792838163`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"4c0d8fce-f644-4d8f-a295-40c0e757ceb7"],

Cell[BoxData[
 RowBox[{"u", "\[Rule]", 
  RowBox[{"L", " ", 
   RowBox[{"Tanh", "[", 
    FractionBox["\[Rho]", "L"], "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.825287106564507*^9, 3.843762534931799*^9, 
  3.843763679284184*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"efa23493-15a9-4e54-9ad5-d0d25976ae5e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", " ", "transform12", " ", "]"}], "  ", "/.", " ", 
  "dtReplace", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.825287106564575*^9, 3.843763679284532*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"19ce1c46-bc9c-4dcb-bc60-2c527916c33e"],

Cell[BoxData[
 RowBox[{"du", "\[Rule]", 
  RowBox[{"d\[Rho]", " ", 
   SuperscriptBox[
    RowBox[{"Sech", "[", 
     FractionBox["\[Rho]", "L"], "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.8252871065646553`*^9, 3.84376253495798*^9, 
  3.843763679284975*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"3b0468e1-3526-4e80-aebb-1992c7932201"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Transform", " ", "13"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"X", "^", "M"}], " ", 
    RowBox[{"??", 
     RowBox[{"??", "?"}]}]}], " ", "*)"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.},
 CellChangeTimes->{3.8437636792853203`*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"16f561f8-6435-43ce-8160-7aee633c5c1f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Transform 14", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825287116310107*^9, 
  3.825287136631624*^9}},ExpressionUUID->"e16fd7a4-4a60-4b83-bc9b-\
60dd125eb5d9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "transform14", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Again", ",", " ", 
    RowBox[{
    "not", " ", "sure", " ", "if", " ", "this", " ", "makes", " ", "any", " ",
      "sense"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"transform14", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T", "\[Rule]", " ", 
       RowBox[{
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}]], " ", 
        RowBox[{"Cos", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"W", "\[Rule]", " ", 
       RowBox[{
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}]], 
        RowBox[{"Sin", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"X", "\[Rule]", " ", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Y", "\[Rule]", " ", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "\[IndentingNewLine]", 
     "}"}], " ", "/.", " ", 
    RowBox[{"r", "\[Rule]", " ", 
     RowBox[{"Tan", "[", "\[Psi]", "]"}]}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"transform14", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825287126647378*^9},
 CellLabel->"In[68]:=",ExpressionUUID->"29ea0dfa-d3f2-490f-9da4-caa857af339a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]]}]}]},
     {
      RowBox[{"W", "\[Rule]", 
       RowBox[{
        RowBox[{"Sin", "[", "t", "]"}], " ", 
        SqrtBox[
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]]}]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Tan", "[", "\[Psi]", "]"}]}]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"Tan", "[", "\[Psi]", "]"}]}]}]}
    },
    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", 10000.},
 CellChangeTimes->{3.825287126647499*^9, 3.843762535018283*^9},
 CellLabel->
  "Out[70]//TableForm=",ExpressionUUID->"8d5c3823-5864-46ef-930b-\
5d05b8103529"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", "transform14", " ", "]"}], "  ", "/.", " ", 
   "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.825287167741294*^9},
 CellLabel->"In[71]:=",ExpressionUUID->"d891588a-f9e3-48b0-98dd-594660d92f2a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dT", "\[Rule]", 
       RowBox[{
        FractionBox[
         RowBox[{"d\[Psi]", " ", 
          RowBox[{"Cos", "[", "t", "]"}], " ", 
          SuperscriptBox[
           RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"], " ", 
          RowBox[{"Tan", "[", "\[Psi]", "]"}]}], 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]]], "-", 
        RowBox[{"dt", " ", 
         RowBox[{"Sin", "[", "t", "]"}], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]]}]}]}]},
     {
      RowBox[{"dW", "\[Rule]", 
       RowBox[{
        FractionBox[
         RowBox[{"d\[Psi]", " ", 
          SuperscriptBox[
           RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"], " ", 
          RowBox[{"Sin", "[", "t", "]"}], " ", 
          RowBox[{"Tan", "[", "\[Psi]", "]"}]}], 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]]], "+", 
        RowBox[{"dt", " ", 
         RowBox[{"Cos", "[", "t", "]"}], " ", 
         SqrtBox[
          RowBox[{"1", "+", 
           SuperscriptBox[
            RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"]}]]}]}]}]},
     {
      RowBox[{"dX", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Psi]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}], "-", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Tan", "[", "\[Psi]", "]"}]}]}]}]},
     {
      RowBox[{"dY", "\[Rule]", 
       RowBox[{
        RowBox[{"d\[Psi]", " ", 
         SuperscriptBox[
          RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"d\[Theta]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Tan", "[", "\[Psi]", "]"}]}]}]}]}
    },
    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", 10000.},
 CellChangeTimes->{3.825287167741415*^9, 3.84376253506819*^9},
 CellLabel->
  "Out[71]//TableForm=",ExpressionUUID->"3a45564e-3ada-4222-b0df-\
5c81e7ea7719"],

Cell[BoxData["lineElement"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.843763371784253*^9, 3.8437633723062773`*^9}, 
   3.843763554542441*^9},
 CellLabel->
  "In[105]:=",ExpressionUUID->"1e587a3b-1fa4-4731-8421-6472141a5bbb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["dT", "2"]}], "-", 
  SuperscriptBox["dW", "2"], "+", 
  SuperscriptBox["dX", "2"], "+", 
  SuperscriptBox["dY", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.843763373029367*^9, 3.843763554548581*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"0107857c-4927-40ab-9f17-06cb1efada26"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineElement", " ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"Dt", "[", " ", "transform14", " ", "]"}], "  ", "/.", " ", 
      "dtReplace"}], "  ", ")"}]}], " ", "//", " ", "Expand"}], " ", "//", 
  " ", "Simplify", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.84376337665372*^9, 3.8437633906648073`*^9}, 
   3.843763554549245*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"c913264a-dfee-4c5c-b456-c6a96a12e60f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", 
     SuperscriptBox["dt", "2"]}], "-", 
    SuperscriptBox["d\[Theta]", "2"], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["d\[Psi]", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Psi]"}], "]"}]}]}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.843763391088336*^9, 3.8437635545550528`*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"49057a36-ce58-42b7-82bb-c5676f5b8811"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric", "[", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"lineElement", " ", "/.", " ", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"Dt", "[", " ", "transform14", " ", "]"}], "  ", "/.", " ", 
          "dtReplace"}], "  ", ")"}]}], "  ", ")"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "d\[Theta]", ",", "d\[Psi]"}], "}"}]}], " ", "]"}], 
    "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ",
   "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8437633945740232`*^9, 3.843763435296571*^9}, 
   3.843763554555579*^9},
 CellLabel->
  "In[108]:=",ExpressionUUID->"c7ac216f-609c-4166-8131-27573df6b45e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}], "0", "0"},
     {"0", 
      SuperscriptBox[
       RowBox[{"Tan", "[", "\[Psi]", "]"}], "2"], "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"Sec", "[", "\[Psi]", "]"}], "2"]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8437634249580097`*^9, 3.8437634355954514`*^9}, 
   3.843763554561767*^9},
 CellLabel->
  "Out[108]//MatrixForm=",ExpressionUUID->"58931867-99c2-4dcf-b6c7-\
83680489926e"]
}, Closed]]
},
WindowSize->{1280, 675},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"a8f100bf-e936-484d-aac5-46a23dc319f1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1257, 20, 221, "Title",ExpressionUUID->"e1127cb9-b989-4299-9661-324c87eb3ea5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1840, 44, 756, 14, 76, "Author",ExpressionUUID->"841e9fde-0bdb-4019-84a7-15c8a4b0e39e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[2611, 61, 436, 10, 84, "Input",ExpressionUUID->"d40f1dd7-7ad8-4f2c-b450-fe5b5c08ea59"],
Cell[CellGroupData[{
Cell[3072, 75, 539, 8, 69, "Section",ExpressionUUID->"fc8242c6-81c2-4d9a-aefa-b582f5f94b5b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[3614, 85, 490, 10, 63, "Input",ExpressionUUID->"3ef2a086-d42d-4b3d-8180-9d9a37619c3b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[4107, 97, 481, 10, 43, "Output",ExpressionUUID->"9f2fa7d1-1a27-428e-8704-e127f32b1933",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4625, 112, 266, 5, 55, "Section",ExpressionUUID->"5d41e22f-faca-45f6-a161-a27c14e77a60",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[4894, 119, 2570, 64, 294, "Input",ExpressionUUID->"1f7b9c8f-602e-4517-af88-c9ccef131f14",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[7467, 185, 471, 10, 24, "Print",ExpressionUUID->"2b815a34-ec67-4dab-929a-4507e1bfa8fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[7941, 197, 490, 11, 24, "Print",ExpressionUUID->"ec21037f-ae6e-45dc-8e4c-7f9d14e72ab3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8434, 210, 415, 7, 41, "Output",ExpressionUUID->"2d860a42-ff1e-4757-a412-2ed3142798a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[8852, 219, 448, 8, 41, "Output",ExpressionUUID->"4c6edc88-31c4-4fbc-988d-4f7b28b0f35d",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[9303, 229, 464, 9, 41, "Output",ExpressionUUID->"973c938d-0c27-4e9a-ac81-5a84b70affa6",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[9770, 240, 484, 8, 41, "Output",ExpressionUUID->"49d397f0-8ed5-476d-8966-e31f51184bca",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[10291, 253, 234, 4, 55, "Section",ExpressionUUID->"c4c4b286-2b3d-4dd1-ba6b-b87389454af2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[10528, 259, 1606, 41, 126, "Input",ExpressionUUID->"0204a911-a326-4dc7-8b84-6de9292fae38",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[12137, 302, 1008, 26, 84, "Input",ExpressionUUID->"21775960-1961-46ff-b478-48136d8f7e9c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[13182, 333, 215, 4, 55, "Section",ExpressionUUID->"bc4e8542-d347-4997-82dd-44766a2951d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[13400, 339, 3011, 73, 525, "Input",ExpressionUUID->"db0a6cc6-cf90-465f-809d-7a9a68380994",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[16414, 414, 2425, 81, 393, "Output",ExpressionUUID->"52678cba-81fe-4eb9-8a33-e17636d0f326",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[18842, 497, 265, 5, 41, "Input",ExpressionUUID->"2eaad8d8-f117-4bb5-ba98-4beeb171d4fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[19110, 504, 253, 4, 41, "Output",ExpressionUUID->"1fe128ef-82b4-4605-bae1-24e38fe010a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[19378, 511, 263, 5, 38, "Input",ExpressionUUID->"52ff7707-f0b6-48ce-9ae8-03378c8188ab"],
Cell[19644, 518, 428, 10, 41, "Input",ExpressionUUID->"4a1cb3c0-cb09-45a6-a2d7-4c757112afc3"],
Cell[20075, 530, 223, 5, 41, "Input",ExpressionUUID->"42711f85-8412-480a-b519-6b623d53c188"],
Cell[CellGroupData[{
Cell[20323, 539, 226, 4, 69, "Section",ExpressionUUID->"92f36a5a-ca8d-498f-ba3d-0141493a47f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[20552, 545, 1136, 29, 86, "Input",ExpressionUUID->"3a39b8f4-cf65-4adc-8566-dc0a003cf819",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[21691, 576, 449, 11, 41, "Output",ExpressionUUID->"b1ca8889-2cb9-4c25-b411-eb6836a26ec3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[22143, 589, 1202, 29, 107, "Input",ExpressionUUID->"56167da6-9269-48a2-863b-9c09be0241b3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23348, 620, 436, 10, 41, "Output",ExpressionUUID->"4c463e02-fb28-445b-bdf5-ec9b1f9efd67",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[23821, 635, 249, 4, 55, "Section",ExpressionUUID->"10136c56-5612-412e-848b-e63d086f23f7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[24073, 641, 417, 10, 41, "Input",ExpressionUUID->"166514a2-486a-4f85-b0c8-e80848655860",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[24493, 653, 1154, 26, 189, "Input",ExpressionUUID->"cb43827a-7496-4dac-8e06-624ff2fa972e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[25650, 681, 1149, 36, 105, "Output",ExpressionUUID->"304946f5-22c9-45cd-bb8a-a229b6e3c96c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[26802, 719, 502, 12, 41, "Input",ExpressionUUID->"68d9e196-7cdf-4669-b595-dc74f40ba686",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[27307, 733, 1609, 48, 105, "Output",ExpressionUUID->"fd02f8b0-1da8-4839-b526-d32905abd765",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[28919, 783, 787, 16, 84, "Input",ExpressionUUID->"212275e5-535d-41b2-b006-47a99d111d15",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[29709, 801, 551, 13, 41, "Output",ExpressionUUID->"aa3aafab-4139-47c3-8687-27f77f725b1c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[30263, 816, 572, 13, 41, "Input",ExpressionUUID->"0f049a7a-e691-4e5b-a5b0-e2a0b95f36fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[30838, 831, 355, 8, 41, "Output",ExpressionUUID->"939f758b-d5cf-4e60-9109-1cd81fa32bfb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[31196, 841, 794, 19, 41, "Input",ExpressionUUID->"b70c0d54-c9a0-4a3c-a6d0-3eb594421e8f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[31993, 862, 342, 8, 43, "Output",ExpressionUUID->"83a96a73-b93b-4429-9b31-ebdd0411f942",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[32338, 872, 664, 15, 41, "Input",ExpressionUUID->"ffc8ecf9-5fb2-49e4-a3a4-3de725c33566",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[33005, 889, 351, 7, 41, "Output",ExpressionUUID->"7eab1220-0320-4079-991e-68ee414da425",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[33359, 898, 2134, 48, 147, "Input",ExpressionUUID->"7c8f4286-b41d-46c3-99aa-c51e6282a09a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[35496, 948, 899, 28, 85, "Output",ExpressionUUID->"f5b4df53-e509-486c-bdf0-2b68d1d4ae71",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[36398, 978, 1623, 40, 147, "Input",ExpressionUUID->"44aab198-070a-4728-b516-980528f05a25",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[38024, 1020, 547, 13, 41, "Output",ExpressionUUID->"8652f0df-aa07-4ce8-b5fd-c15e3ad0f075",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[38574, 1035, 645, 17, 61, "Output",ExpressionUUID->"aa953942-e715-4a4b-81e3-30facbafc29b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[39222, 1054, 634, 17, 61, "Output",ExpressionUUID->"b65f19d3-6d76-480d-b180-ee228e01560b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[39859, 1073, 570, 12, 84, "Input",ExpressionUUID->"e4a518bb-623f-47b1-be72-79e0c5b9036b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[40432, 1087, 319, 6, 41, "Output",ExpressionUUID->"bde9503f-31a2-4190-a3a2-52bedf92e044",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[40754, 1095, 346, 7, 41, "Input",ExpressionUUID->"32cb0e66-0632-42f6-b6f8-e4f377761eaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[41103, 1104, 349, 7, 41, "Output",ExpressionUUID->"12117c28-8c9e-4c5c-bbab-68a0fcbd13c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[41455, 1113, 1088, 27, 105, "Input",ExpressionUUID->"b1516c14-fd04-4dc8-ba15-8ac3821d41d5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[42546, 1142, 588, 17, 61, "Output",ExpressionUUID->"03036279-3639-42d8-b8b1-6c30876c79fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[43137, 1161, 706, 20, 64, "Output",ExpressionUUID->"e3ba59f9-8e41-4d97-8788-3223abc57634",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[43846, 1183, 800, 23, 64, "Output",ExpressionUUID->"0c577550-b02a-4acc-ada2-bad7081c0129",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[44649, 1208, 739, 21, 57, "Output",ExpressionUUID->"b34f260c-f705-4dc8-81e2-398ea8f552ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[45391, 1231, 1028, 24, 105, "Input",ExpressionUUID->"2d3ed50b-7655-41e6-a628-535d958dd362",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[46422, 1257, 922, 27, 89, "Output",ExpressionUUID->"cb5eebb1-e54e-4109-8ac4-703b81ab8f36",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[47347, 1286, 623, 14, 84, "Input",ExpressionUUID->"202a973c-01bc-4ba6-a4f0-e3c6d6061ac2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[47973, 1302, 552, 15, 41, "Output",ExpressionUUID->"40dd860d-1adb-444e-8c8e-310e6d86531a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[48528, 1319, 1349, 33, 189, "Input",ExpressionUUID->"55012abc-9c25-49dc-9b0f-76797e753c15",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[49880, 1354, 1294, 40, 105, "Output",ExpressionUUID->"fd348788-161b-4e61-8cd4-063d2609a147",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[51177, 1396, 479, 12, 41, "Input",ExpressionUUID->"9b38cfde-8e62-4c5b-88f0-d8b925d1ccdd",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[51659, 1410, 1991, 56, 105, "Output",ExpressionUUID->"bb54eb2e-366d-405d-aeae-fccc7885144c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[53653, 1468, 267, 5, 41, "Input",ExpressionUUID->"92dfa231-84e9-48f9-8ad7-97c6f7c6e286",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[53923, 1475, 421, 11, 41, "Output",ExpressionUUID->"49a95549-1f09-4160-a14a-a297efac2750",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[54347, 1488, 725, 19, 63, "Input",ExpressionUUID->"4c2960a8-b3e8-44db-9082-d627dbddc23e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[55075, 1509, 747, 22, 57, "Output",ExpressionUUID->"bc0a6898-493f-4104-9e21-f749e9d0e68c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[55825, 1533, 1028, 23, 105, "Input",ExpressionUUID->"d52972ca-5a86-4ea4-b262-01e7f4e71738",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[56856, 1558, 947, 28, 89, "Output",ExpressionUUID->"e3c84c5d-412b-4df8-a94d-d06015b22ce4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[57806, 1588, 542, 13, 63, "Input",ExpressionUUID->"7cb0f726-c888-4c18-a5bc-62d785819c40",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[58351, 1603, 523, 14, 41, "Output",ExpressionUUID->"fb65ee28-5e9c-4905-9b79-2fc361235b82",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[58877, 1619, 548, 13, 84, "Input",ExpressionUUID->"617677ec-762c-42cc-8a7f-adab34fce5ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[59428, 1634, 347, 7, 41, "Output",ExpressionUUID->"680d204c-6dad-48d3-9304-35c4ef06db1d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[59778, 1643, 349, 8, 41, "Input",ExpressionUUID->"dc10ad19-98e9-4d5c-88b6-629a8b7293e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[60130, 1653, 350, 8, 41, "Output",ExpressionUUID->"028f30c3-a5a2-4421-b79f-e216e985ae0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[60483, 1663, 1134, 28, 105, "Input",ExpressionUUID->"bc88616c-50ca-4705-aef0-c7817e89721d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[61620, 1693, 593, 18, 61, "Output",ExpressionUUID->"cd769195-8eb4-44c3-852f-8b8dba83c2d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[62216, 1713, 707, 21, 64, "Output",ExpressionUUID->"6c08dff5-40ae-48aa-acf2-630373148216",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[62926, 1736, 801, 24, 64, "Output",ExpressionUUID->"ce92bc76-b264-4db1-bbe3-cda0d150fc03",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[63730, 1762, 593, 17, 44, "Output",ExpressionUUID->"6a68ce2f-fb35-40a5-b6d7-f3d3d6978381",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[64326, 1781, 1031, 24, 105, "Input",ExpressionUUID->"01e13e88-f412-449c-8f98-bcc756d501f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[65360, 1807, 988, 29, 93, "Output",ExpressionUUID->"2c63838e-4596-49a9-8ce4-d1df3c44a2d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[66351, 1838, 662, 14, 105, "Input",ExpressionUUID->"638e2832-f25e-42c5-b670-274b00b08e1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[67016, 1854, 619, 18, 44, "Output",ExpressionUUID->"1de3a395-cdeb-4713-af12-b91bc0ad07de",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[67638, 1874, 1633, 43, 286, "Input",ExpressionUUID->"f7b1991c-e549-45bd-9506-e4ed616e59a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[69274, 1919, 1528, 50, 141, "Output",ExpressionUUID->"3882268e-feeb-440e-bb77-f916b6ee49bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[70805, 1971, 480, 12, 41, "Input",ExpressionUUID->"1f3b10fd-7e2b-4e1c-abcd-a221cf3538d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[71288, 1985, 2148, 66, 157, "Output",ExpressionUUID->"7d34a879-3607-4f38-84ab-61b90e1601da",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[73439, 2053, 269, 5, 41, "Input",ExpressionUUID->"a75a93b7-0f99-46ab-bcc6-a61ccdb96414",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[73711, 2060, 419, 11, 41, "Output",ExpressionUUID->"f0b2fcfe-5c59-4b99-a73d-414ab1a656f2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[74133, 2073, 432, 10, 41, "Input",ExpressionUUID->"677ba318-57c6-42f5-be73-86903d6acc79",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[74568, 2085, 1854, 61, 67, "Output",ExpressionUUID->"e30d08c0-b985-4e1b-9360-4e7d97949256",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[76425, 2148, 655, 15, 84, "Input",ExpressionUUID->"918d482e-80ab-493a-8788-56eea08b3117",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[77083, 2165, 435, 12, 61, "Output",ExpressionUUID->"9618dd2b-9ff3-4ada-86de-8d63fa466141",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[77521, 2179, 451, 11, 41, "Input",ExpressionUUID->"043451bf-59ff-4534-9144-5ad97a969e40",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[77975, 2192, 943, 29, 111, "Output",ExpressionUUID->"9f4c7bcc-59d6-4f95-81a6-6ae6e3d7e0a2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[78921, 2223, 1456, 34, 305, "Input",ExpressionUUID->"255c0763-185e-48b7-8c52-c706efc4b38d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[80380, 2259, 1325, 43, 161, "Output",ExpressionUUID->"ef2b29a8-dbaf-4728-9912-01e55ff4dd73",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[81708, 2304, 562, 12, 41, "Input",ExpressionUUID->"adad3490-09a4-4de1-81da-281b8017350c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[82273, 2318, 1611, 51, 167, "Output",ExpressionUUID->"3c1ec33a-ca47-42e6-bbb5-b042063afdc8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[83887, 2371, 753, 18, 41, "Input",ExpressionUUID->"672afd47-077d-426e-886a-166df5fe0e84",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[84643, 2391, 2757, 84, 185, "Output",ExpressionUUID->"9d66364a-fd38-47e7-9179-221f39493f85",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[87403, 2477, 2215, 54, 153, "Input",ExpressionUUID->"2c8292c0-b288-4670-9257-c47800e6e45f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[89621, 2533, 704, 15, 41, "Output",ExpressionUUID->"0497152b-1ea0-414a-ae63-b257a066f102",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[90328, 2550, 2513, 75, 110, "Output",ExpressionUUID->"ad8ff7cb-5e3e-490b-9049-d3e389d3ada4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[92844, 2627, 716, 16, 61, "Output",ExpressionUUID->"df99470a-2e79-421f-bdc6-4a9d0721f2c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[93563, 2645, 756, 20, 108, "Input",ExpressionUUID->"1cbfb529-3fc5-4cc3-8002-1f87aeda3c66",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[94322, 2667, 563, 16, 63, "Output",ExpressionUUID->"a51515c3-9dac-4841-83ef-e0f3f6b06ef3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[94888, 2685, 472, 11, 41, "Input",ExpressionUUID->"e95ae004-2a72-40cb-b9bd-d17b4d010249",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[95363, 2698, 1294, 40, 183, "Output",ExpressionUUID->"9fa2b407-06d7-4ead-98a0-0a25e068bdd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[96660, 2740, 462, 10, 104, "Input",ExpressionUUID->"e849e232-d917-42ae-a071-394c237960a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[97125, 2752, 336, 8, 60, "Output",ExpressionUUID->"0d658f13-d20d-4fe9-b23c-87427878d122",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[97464, 2762, 345, 8, 41, "Input",ExpressionUUID->"b3ba8f93-16dc-4eca-956b-019e577c055d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[97812, 2772, 407, 11, 61, "Output",ExpressionUUID->"96f1c3d6-6a44-468e-8a05-de4388c0fdfc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[98222, 2785, 977, 24, 147, "Input",ExpressionUUID->"f72a0067-8412-4653-b9b8-f4ed0943347e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[99202, 2811, 639, 17, 63, "Output",ExpressionUUID->"e99dc66e-21b0-4a98-b4d4-36657462e4fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[99844, 2830, 640, 17, 63, "Output",ExpressionUUID->"4aae2a9b-dc8e-4a2a-81e6-274d053d7792",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[100487, 2849, 759, 22, 63, "Output",ExpressionUUID->"2d4ff2a3-37b1-447f-9356-97318d1e8db6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[101249, 2873, 457, 9, 84, "Input",ExpressionUUID->"d2d3e603-1612-41b9-af1c-e1e4b9e757d6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[101709, 2884, 607, 18, 61, "Output",ExpressionUUID->"cef45250-37e0-4dd2-bf99-87cb68539465",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[102319, 2904, 444, 10, 41, "Input",ExpressionUUID->"cd41f219-1803-4db4-94f6-f499b1368ab9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[102766, 2916, 1017, 30, 139, "Output",ExpressionUUID->"e626ce37-8830-476b-89a7-2cdc6c9f8288",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[103786, 2948, 494, 11, 98, "Input",ExpressionUUID->"e55490e4-bce7-4c66-a58e-1cf1ade26ddb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[104283, 2961, 343, 8, 47, "Output",ExpressionUUID->"a6f6d4e1-2af3-49af-becd-e9956774073b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[104629, 2971, 348, 8, 41, "Input",ExpressionUUID->"600162d2-71ac-4a40-ad67-075fa2e82b3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[104980, 2981, 347, 8, 47, "Output",ExpressionUUID->"77985ce0-9612-4274-be65-fe58d1e0487e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[105330, 2991, 1029, 27, 163, "Input",ExpressionUUID->"a22dbfcb-13b2-472e-97b9-33b76f73ea9c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[106362, 3020, 593, 17, 63, "Output",ExpressionUUID->"88067707-7cfa-4c91-8351-726844eec2d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[106958, 3039, 623, 18, 51, "Output",ExpressionUUID->"2c506aa8-31ed-4a84-9800-7d96325a08de",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[107584, 3059, 643, 19, 51, "Output",ExpressionUUID->"41a705cd-222e-45a4-95f0-c49e9e8792d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[108230, 3080, 472, 11, 41, "Input",ExpressionUUID->"057dd5c8-8492-4852-bcf6-6143f7a09d60",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[108705, 3093, 1366, 41, 157, "Output",ExpressionUUID->"0d355939-f034-4a63-87f9-18dbef524895",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[110074, 3136, 675, 17, 108, "Input",ExpressionUUID->"514573d8-73e1-4c38-bd9a-51847fc6d897",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[110752, 3155, 365, 9, 60, "Output",ExpressionUUID->"c8cf13ff-40fb-4118-8820-ab018954512a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[111120, 3166, 347, 8, 41, "Input",ExpressionUUID->"518f8881-a111-4e34-b0a5-54cb06c9f8dd",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[111470, 3176, 607, 17, 67, "Output",ExpressionUUID->"6a83af17-742f-48de-9281-3682677dbc3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[112080, 3195, 846, 20, 147, "Input",ExpressionUUID->"060d30ba-4830-4933-ba49-65cd5cd2dba1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[112929, 3217, 593, 18, 61, "Output",ExpressionUUID->"b7f25e73-2610-44cd-b847-212a7b95b0b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[113525, 3237, 1103, 36, 82, "Output",ExpressionUUID->"188518b7-4d0c-4ee9-9e8b-a2f5318b2c99",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[114631, 3275, 823, 26, 70, "Output",ExpressionUUID->"5e6a7fba-6315-4544-9ee4-3af45f583fe7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[115457, 3303, 466, 11, 41, "Input",ExpressionUUID->"969dc56a-279a-470d-bb74-8ffe8e23c640",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[115926, 3316, 1513, 47, 147, "Output",ExpressionUUID->"5cae4c7a-1edd-4dff-997a-c32ae8b7bda6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[117442, 3365, 267, 5, 41, "Input",ExpressionUUID->"bea94aa5-1672-4828-b2d0-1ab9a09853c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[117712, 3372, 460, 12, 41, "Output",ExpressionUUID->"50ea632b-48c8-47b8-a583-1295262b9883",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[118175, 3386, 577, 16, 44, "Input",ExpressionUUID->"82206ac5-a7b7-45a6-bcdd-a494b9aa61e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[118755, 3404, 374, 10, 43, "Output",ExpressionUUID->"0aa26aeb-ca30-4367-ba64-38427b84d662",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[119132, 3416, 694, 19, 44, "Input",ExpressionUUID->"b7b5251d-123b-4d0f-9f6a-83d733631b04",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[119829, 3437, 411, 11, 41, "Output",ExpressionUUID->"0c3c556c-4dbd-452d-9e49-fa32f2789e0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[120243, 3450, 1096, 28, 86, "Input",ExpressionUUID->"27a564e2-0c08-493b-8a15-c49e02655c73",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[121342, 3480, 436, 11, 41, "Output",ExpressionUUID->"61ce0d21-d95f-48ee-b991-490370f46372",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[121781, 3493, 913, 23, 147, "Input",ExpressionUUID->"453ef4e5-92f0-4779-8afe-4cddb952e6c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[122697, 3518, 888, 27, 69, "Output",ExpressionUUID->"6f57d577-fb73-4734-be93-1719d8bb3e2d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[123588, 3547, 422, 10, 41, "Input",ExpressionUUID->"4f492a9b-e2c0-4ff6-b4b9-878f7de12a35",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[124013, 3559, 1163, 34, 69, "Output",ExpressionUUID->"f2c01a38-5506-44db-8c6e-8021bc066430",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[125179, 3595, 721, 16, 126, "Input",ExpressionUUID->"6d0ac0fa-0e39-4180-ab49-52d4ec62b50b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[125903, 3613, 489, 12, 41, "Output",ExpressionUUID->"9e188979-f237-4be0-99e0-36d7d3b0fd3d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[126395, 3627, 438, 10, 41, "Output",ExpressionUUID->"caab2a34-29ba-4ae7-9883-6b9f25c7e98e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[126836, 3639, 449, 11, 41, "Input",ExpressionUUID->"7d792843-1b96-4240-b060-6cc760108556",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[127288, 3652, 355, 9, 43, "Output",ExpressionUUID->"35ca0ed6-b08d-422c-9f83-b45f3a4e4759",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[127646, 3663, 400, 10, 41, "Input",ExpressionUUID->"8b84b810-662d-4542-9f85-9f0b72085fed",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[128049, 3675, 365, 8, 41, "Output",ExpressionUUID->"d129ce40-a88d-4fd0-b7b2-06947df9de83",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[128417, 3685, 573, 15, 41, "Input",ExpressionUUID->"389bf348-acb4-457f-a1f7-82ee68ff9400",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[128993, 3702, 345, 8, 58, "Output",ExpressionUUID->"7d691cfe-ed43-4566-841a-5caba2d524d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[129341, 3712, 1023, 27, 84, "Input",ExpressionUUID->"d97f028f-fd2c-4eac-840e-925372afbee7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[130367, 3741, 413, 11, 64, "Output",ExpressionUUID->"b2644a0b-09db-4c04-a14a-6d358ea5d351",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[130783, 3754, 348, 8, 41, "Input",ExpressionUUID->"ea6bf600-48c5-4cf5-a988-584e126740b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131134, 3764, 445, 11, 41, "Output",ExpressionUUID->"29017a04-6c5c-4d71-bbd7-f8c7fc4cdb82",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131582, 3777, 391, 9, 41, "Input",ExpressionUUID->"0bdf13e3-5f2c-4ca5-aeea-c33d30e3d66e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[131976, 3788, 1166, 34, 69, "Output",ExpressionUUID->"3d7501eb-e1bf-4a51-9496-d2cd6e786af2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[133145, 3824, 513, 10, 63, "Input",ExpressionUUID->"37b4cf0e-4896-4704-852c-dcdae73e9acf",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[133661, 3836, 416, 11, 41, "Output",ExpressionUUID->"2f6bf4bc-c0b1-4b10-9474-6f817212a91a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[134080, 3849, 623, 17, 41, "Output",ExpressionUUID->"744b4c6c-2204-4748-b5fd-b1a696ce9016",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[134706, 3868, 529, 11, 41, "Input",ExpressionUUID->"713a6fdf-6400-4051-9cb9-fa158f985269",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[135238, 3881, 818, 20, 84, "Input",ExpressionUUID->"7cf1698c-d485-4d30-87b5-369e454df816",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[136059, 3903, 601, 16, 41, "Output",ExpressionUUID->"19ef5857-b185-443e-8ab6-3c7456d56335",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[136663, 3921, 1028, 25, 147, "Input",ExpressionUUID->"91616a5a-d85e-4a55-a644-af371fd03d0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[137694, 3948, 1733, 42, 168, "Input",ExpressionUUID->"06055f1a-7797-4d72-9ecf-c2d32220798f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[139464, 3995, 211, 4, 55, "Section",ExpressionUUID->"9e2b8536-9136-4ca1-940d-3428595987cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[139678, 4001, 1481, 37, 232, "Input",ExpressionUUID->"019dcaa6-2e4d-4c9a-a2cb-b024a2b9e624",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[141162, 4040, 1257, 41, 113, "Output",ExpressionUUID->"57bd52a6-4497-4f89-b749-ca1b168981e5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[142422, 4083, 341, 7, 41, "Input",ExpressionUUID->"d0a38698-b6ad-4a00-8b62-c518db286121",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[142766, 4092, 1969, 61, 131, "Output",ExpressionUUID->"ac35705d-08d0-4928-9a97-e64c6deeb9ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[144738, 4155, 213, 3, 41, "Input",ExpressionUUID->"ca9776c6-bc04-44ab-86c3-79e6f3730658",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[144954, 4160, 388, 9, 41, "Output",ExpressionUUID->"030e2a07-d606-45b7-8e15-8664d6d7c2f9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[145345, 4171, 712, 18, 41, "Input",ExpressionUUID->"200f2f92-60ab-4ccc-a1f8-ec6de2981f5d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[146060, 4191, 561, 16, 61, "Output",ExpressionUUID->"c0ab5fe4-943e-43ad-9b12-3a859d0a9b3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[146658, 4212, 233, 4, 55, "Section",ExpressionUUID->"192157cf-7b3e-49f5-8d1f-4a64dc9b5cb0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[146894, 4218, 1195, 27, 189, "Input",ExpressionUUID->"a6d2af28-fb26-496d-9825-c4841085cfef",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[148092, 4247, 1290, 40, 105, "Output",ExpressionUUID->"d2c9ac53-b8e3-45d6-abf3-7b28485bce72",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[149385, 4289, 365, 7, 41, "Input",ExpressionUUID->"1480aeb4-1e2c-4cc0-bc07-759ddb5fc7a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[149753, 4298, 2015, 57, 105, "Output",ExpressionUUID->"eca1db90-fdae-4720-ab19-c0923d7ef62a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[151771, 4357, 1179, 32, 65, "Input",ExpressionUUID->"c1c7b72d-31de-4018-8717-e24592ad46e2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[152953, 4391, 760, 21, 57, "Output",ExpressionUUID->"fff70c63-fd0a-49ff-89ee-a05c82ddf720",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[153716, 4414, 1471, 33, 107, "Input",ExpressionUUID->"a5195825-b4e3-4b81-8608-da2c8727a6a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[155190, 4449, 993, 28, 89, "Output",ExpressionUUID->"6ecc40b1-5e28-4e63-892b-f5a4e7be1f2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[156220, 4482, 262, 5, 55, "Section",ExpressionUUID->"833f908d-62dc-44a2-b790-51ef7707396b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[156485, 4489, 1463, 38, 285, "Input",ExpressionUUID->"911bb26a-499e-4229-af4f-19e8b05aa251",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[157951, 4529, 389, 8, 41, "Input",ExpressionUUID->"008ee85f-371b-41af-b08f-2fb1b8b4054f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[158343, 4539, 2477, 77, 161, "Output",ExpressionUUID->"a7680fbb-1446-46eb-b986-fd97948ff435",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[160823, 4618, 237, 3, 41, "Input",ExpressionUUID->"c24a03b9-e9c1-4cd5-956c-275764d39ef3",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[161063, 4623, 391, 9, 41, "Output",ExpressionUUID->"135b7784-f9d1-4319-9e17-f69cf1e36060",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[161457, 4634, 707, 17, 63, "Input",ExpressionUUID->"6f961f3a-ed16-4272-84d6-4f8ef7d4971e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[162167, 4653, 431, 11, 61, "Output",ExpressionUUID->"40a48890-d545-4477-955a-a81bb69c1147",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[162635, 4669, 232, 4, 55, "Section",ExpressionUUID->"91a495d3-b2bc-4a71-9cbe-18c69deeaba7",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[162870, 4675, 443, 8, 104, "Input",ExpressionUUID->"8c5e59c5-9fa2-4f78-8df6-ed19a1b15844",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[163316, 4685, 325, 7, 60, "Output",ExpressionUUID->"f765b3d9-67ad-4faf-b535-b204d5bdb68f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[163644, 4694, 323, 6, 41, "Input",ExpressionUUID->"44e350fa-9a14-484a-a19a-1b45db4df43d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[163970, 4702, 401, 10, 61, "Output",ExpressionUUID->"4b852174-3f47-48fb-b4ce-f7dcc8c472fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[164374, 4714, 528, 12, 41, "Input",ExpressionUUID->"ffc8ca9c-1cf3-4fe4-9f53-c6e8745d6f73",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[164905, 4728, 389, 9, 41, "Output",ExpressionUUID->"9062d7d0-74bd-41c6-9537-c78cb4eaa39e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[165331, 4742, 233, 4, 55, "Section",ExpressionUUID->"6f7dc313-d871-4632-beb1-a71028777dee",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[165567, 4748, 483, 9, 98, "Input",ExpressionUUID->"8d3f169f-44fb-4a61-9c5f-9ce5f396e418",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[166053, 4759, 366, 8, 47, "Output",ExpressionUUID->"ee8cc0fd-f87d-4b97-ade9-c883d98b8fc7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[166422, 4769, 324, 6, 41, "Input",ExpressionUUID->"9dbfc49b-4458-4822-b2d6-befcc79bc376",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[166749, 4777, 368, 8, 47, "Output",ExpressionUUID->"2de4f64c-252c-41ef-b102-44a2c8970116",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[167154, 4790, 236, 4, 55, "Section",ExpressionUUID->"957f90b9-2f0f-4d2e-beea-fde76283c835",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[167393, 4796, 540, 11, 86, "Input",ExpressionUUID->"42103413-0191-4ec9-aae1-175b17c6ba76",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[167936, 4809, 386, 9, 60, "Output",ExpressionUUID->"b0ba01d0-8fae-4d33-82cd-42c366bae7ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[168325, 4820, 323, 6, 41, "Input",ExpressionUUID->"00aeb95e-aeaf-4c24-ad43-b4f84edc5bbc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[168651, 4828, 626, 17, 67, "Output",ExpressionUUID->"1b902947-eca0-4033-a60e-e50a40563472",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[169314, 4850, 236, 4, 55, "Section",ExpressionUUID->"8e3ef8ce-18f5-4c30-b1cc-ef4918349c55",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[169553, 4856, 955, 21, 187, "Input",ExpressionUUID->"d12b464f-5ff3-4810-aaec-449e3c6f2b00",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[170511, 4879, 1076, 34, 91, "Output",ExpressionUUID->"023cd02f-b282-4a06-b5fb-89cfb25f6ab5",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[171590, 4915, 361, 7, 41, "Input",ExpressionUUID->"7004d785-625d-4b6b-b10a-9215e1de47f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[171954, 4924, 1406, 43, 103, "Output",ExpressionUUID->"399ecf25-6014-4f9d-8e52-142350fa42b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[173397, 4972, 233, 4, 55, "Section",ExpressionUUID->"de49b2b5-bafd-4404-8543-ea85837e72df",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[173633, 4978, 962, 20, 168, "Input",ExpressionUUID->"a1e19157-df01-4d37-9189-deed53588d24",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[174598, 5000, 1074, 33, 87, "Output",ExpressionUUID->"e890cd96-9e49-40bd-98f4-46a45d22eebe",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[175675, 5035, 365, 7, 41, "Input",ExpressionUUID->"452a6692-3170-4741-9feb-f559cce9905b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[176043, 5044, 1464, 42, 87, "Output",ExpressionUUID->"ed738000-87e3-484d-83a2-96143b64d84a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[177544, 5091, 236, 4, 55, "Section",ExpressionUUID->"88953eaa-8d03-49ac-a8ed-f8468a268037",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[177783, 5097, 1105, 26, 186, "Input",ExpressionUUID->"a1426dab-c50c-49e8-86cb-34fada6f2dd9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[178891, 5125, 1017, 33, 91, "Output",ExpressionUUID->"c3b05aea-7ef5-42a9-8958-d32a83c78e7a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[179911, 5160, 361, 7, 41, "Input",ExpressionUUID->"4b6d4560-c738-44ba-9920-4392105c9076",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[180275, 5169, 1341, 42, 99, "Output",ExpressionUUID->"7bfe9961-7f06-4d47-a58a-4c65fd2bd5d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[181653, 5216, 234, 4, 55, "Section",ExpressionUUID->"1813fe33-67c1-43b5-a132-41bdad1860db",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[181890, 5222, 1971, 51, 189, "Input",ExpressionUUID->"8238e4e9-9f6f-4dba-bb7e-065133124d03",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[183864, 5275, 1331, 40, 105, "Output",ExpressionUUID->"2b97a77b-9a8d-4436-8bf0-6186de510c36",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[185198, 5317, 361, 7, 41, "Input",ExpressionUUID->"852622cc-de04-45d2-b489-117bc6ab8c34",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[185562, 5326, 2382, 64, 105, "Output",ExpressionUUID->"e62cff82-5727-4e10-865a-66bd0951e70a",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[187947, 5392, 235, 3, 41, "Input",ExpressionUUID->"94ebc874-2339-4a17-a7e6-9d78eb9c12c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[188185, 5397, 435, 10, 41, "Output",ExpressionUUID->"aa1f04dd-a5f0-4550-bf14-8974e662d2a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[188623, 5409, 791, 19, 63, "Input",ExpressionUUID->"7073b8a5-bbf8-4427-bde2-d50da77f8afa",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[189417, 5430, 1427, 42, 58, "Output",ExpressionUUID->"ed95d159-b842-41f6-9062-bb9d9058e542",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[190847, 5474, 841, 20, 41, "Input",ExpressionUUID->"f5cc7eb1-c6fe-4376-8ec8-df9ef76cca11",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[191691, 5496, 1077, 31, 89, "Output",ExpressionUUID->"6d2bb471-3cdc-427c-8f5b-d3da9450acaa",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[192805, 5532, 237, 4, 55, "Section",ExpressionUUID->"56dd89e9-c8f7-4206-8b1d-7ffc64dadd26",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[193045, 5538, 451, 8, 84, "Input",ExpressionUUID->"645b570f-2a05-428f-bac4-6b4a135e8d1d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[193499, 5548, 333, 7, 41, "Output",ExpressionUUID->"17e0f448-63c3-4a0b-9e8e-59c5c794ec41",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[193835, 5557, 324, 6, 41, "Input",ExpressionUUID->"6d6c30bb-f8e1-4ce3-9e90-58c825c3911b",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}],
Cell[194162, 5565, 346, 7, 41, "Output",ExpressionUUID->"6dd4fb47-3058-413c-acb3-72d60138474d",
 CellGroupingRules->{"GroupTogetherGrouping", 10007.}]
}, Closed]],
Cell[CellGroupData[{
Cell[194545, 5577, 233, 3, 55, "Section",ExpressionUUID->"9c8ea9b0-d2e5-4dd0-a7f0-5048ad6f8be7",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[194781, 5582, 485, 9, 97, "Input",ExpressionUUID->"4c0d8fce-f644-4d8f-a295-40c0e757ceb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[195269, 5593, 362, 8, 54, "Output",ExpressionUUID->"efa23493-15a9-4e54-9ad5-d0d25976ae5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[195634, 5603, 324, 6, 41, "Input",ExpressionUUID->"19ce1c46-bc9c-4dcb-bc60-2c527916c33e",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[195961, 5611, 397, 9, 53, "Output",ExpressionUUID->"3b0468e1-3526-4e80-aebb-1992c7932201",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}],
Cell[196361, 5622, 448, 12, 63, "Input",ExpressionUUID->"16f561f8-6435-43ce-8160-7aee633c5c1f",
 CellGroupingRules->{"GroupTogetherGrouping", 10008.}]
}, Closed]],
Cell[CellGroupData[{
Cell[196846, 5639, 212, 4, 55, "Section",ExpressionUUID->"e16fd7a4-4a60-4b83-bc9b-60dd125eb5d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[197061, 5645, 1500, 38, 211, "Input",ExpressionUUID->"29ea0dfa-d3f2-490f-9da4-caa857af339a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[198564, 5685, 1425, 45, 115, "Output",ExpressionUUID->"8d5c3823-5864-46ef-930b-5d05b8103529",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[199992, 5732, 341, 7, 41, "Input",ExpressionUUID->"d891588a-f9e3-48b0-98dd-594660d92f2a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[200336, 5741, 2678, 77, 143, "Output",ExpressionUUID->"3a45564e-3ada-4222-b0df-5c81e7ea7719",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[203017, 5820, 269, 5, 41, "Input",ExpressionUUID->"1e587a3b-1fa4-4731-8421-6472141a5bbb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[203289, 5827, 391, 10, 41, "Output",ExpressionUUID->"0107857c-4927-40ab-9f17-06cb1efada26",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[203683, 5839, 532, 13, 41, "Input",ExpressionUUID->"c913264a-dfee-4c5c-b456-c6a96a12e60f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[204218, 5854, 701, 20, 57, "Output",ExpressionUUID->"49057a36-ce58-42b7-82bb-c5676f5b8811",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[204922, 5876, 797, 20, 41, "Input",ExpressionUUID->"c7ac216f-609c-4166-8131-27573df6b45e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[205722, 5898, 990, 29, 93, "Output",ExpressionUUID->"58931867-99c2-4dcf-b6c7-83680489926e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]]
}
]
*)