C-metric as a colliding plane wave space-time by Griffiths and Halburd.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     89386,       2317]
NotebookOptionsPosition[     80637,       2176]
NotebookOutlinePosition[     81100,       2193]
CellTagsIndexPosition[     81057,       2190]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
C-metric as a colliding plane wave space-time by Griffiths and Halburd\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.823707122158565*^9, 3.823707131621893*^9}, 3.845471681380364*^9},
 TextAlignment->Center,ExpressionUUID->"ed1f31e8-2940-49ab-b288-85a4a46d2148"],

Cell["\<\
Geoff Cope
University of Utah
March 2, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}},
 TextAlignment->Center,ExpressionUUID->"8ec5cd12-0367-4832-b816-678b3b5e710d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Very", " ", "incomplete"}], "..."}], " ", "go", " ", "back", 
    " ", "and", " ", "finish", " ", "transformations", " ", "and", " ", 
    "book", " ", "Chapter"}], "\[IndentingNewLine]", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.845474403437084*^9, 
  3.845474423914358*^9}},ExpressionUUID->"21506b11-bef8-4b5e-9846-\
2d85f6ef7b92"],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"8fb5d64a-caac-42f2-979d-\
a003c2c6982f"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"ebc34904-0596-48f2-b4d5-1630543856b5"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.845473414453145*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"dbb7fb64-1da5-44f4-8a64-80943168d14f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Paper And Book", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, {3.8454733206752443`*^9, 
   3.845473326024688*^9}, {3.8454742882980223`*^9, 
   3.845474289289961*^9}},ExpressionUUID->"4be9980e-3739-4eec-91eb-\
c3740d3ff71b"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<C-metric as a colliding plane wave space-time by Griffiths and Halburd\
\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://arxiv.org/abs/gr-qc/0701061\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8218867746254797`*^9, 3.821886810805148*^9}, 
   3.823176507207197*^9, {3.823472730005904*^9, 3.823472744739744*^9}, {
   3.823597507106205*^9, 3.823597507709626*^9}, {3.826211122726618*^9, 
   3.82621114360457*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"8b522eee-bff4-42b2-bbf5-bf27adc05ccc"],

Cell[BoxData[
 TemplateBox[{
  "\"C-metric as a colliding plane wave space-time by Griffiths and \
Halburd\"", "https://arxiv.org/abs/gr-qc/0701061"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.821886813557355*^9, 3.8231765072073307`*^9, 3.823359428608782*^9, 
   3.8233607804338617`*^9, 3.823360880363216*^9, 3.823361224626254*^9, 
   3.823362098931829*^9, 3.823364030688095*^9, 3.823472745219315*^9, {
   3.8235975109202147`*^9, 3.823597528650549*^9}, 3.823618495400096*^9, 
   3.823683413880138*^9, 3.823683841884781*^9, 3.823684775280538*^9, 
   3.823688794413259*^9, 3.8236907771492443`*^9, 3.823704572455369*^9, 
   3.826211144283029*^9, 3.845473414465913*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"7696e2b9-6702-42ca-aff9-aca740e7a40f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Also", " ", "Page", " ", "260", " ", "of", " ", "Exact", " ", 
    "Spacetimes"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Exact Space-Times in Einstein's General Relativity\>\"", ",", 
    "\[IndentingNewLine]", 
    "\"\<https://assets.cambridge.org/97805218/89278/frontmatter/\
9780521889278_frontmatter.pdf\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.84547326131888*^9, 3.8454733388477497`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"324f456a-c646-46c3-9a95-247d2f36e4f4"],

Cell[BoxData[
 TemplateBox[{
  "\"Exact Space-Times in Einstein's General Relativity\"", 
   "https://assets.cambridge.org/97805218/89278/frontmatter/9780521889278_\
frontmatter.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.845473315640561*^9, 3.8454733388487597`*^9}, 
   3.8454734144865913`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"cd66cb68-64d7-4ca2-b70f-93648f25ccdf"],

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

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

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"dc2219b4-64ba-413b-93cf-\
71afd3c33062"],

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

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.845473414658538*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"dbc41da1-1c34-49fb-a71c-8891ce7e17af"],

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", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.84547341466223*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"c488ef18-045a-4b88-98b8-936d08447601"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.845473414666398*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"6b334e08-7f28-4876-9651-4ae351afb86b"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"cdefbe65-2ad8-487c-b6ec-2d4e0031b992"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"326df8bd-c78d-4876-9a73-\
488723237740"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", " ", 
      "d\[CurlyRho]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", " ", "d\[Xi]"}], " ", ",",
      " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Mu]", "]"}], "\[Rule]", " ", "d\[Mu]"}], " ", ",",
      "  ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
  3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
  3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
  3.8237047861092253`*^9, 3.823704790612156*^9}, {3.823708094582633*^9, 
  3.823708098981271*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"c48308b8-1fb6-4d25-8367-a7d5dc3b234f"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", "d\[CurlyRho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", "d\[Xi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Mu]", "]"}], "\[Rule]", "d\[Mu]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.823598254375844*^9, 3.823598877146447*^9, 
  3.823598911379983*^9, 3.823618495599228*^9, 3.823683414107848*^9, 
  3.823683842051852*^9, 3.823684775483016*^9, 3.82368879462633*^9, 
  3.823690777330206*^9, 3.823691323069952*^9, 3.823704572638439*^9, 
  3.823704791783836*^9, 3.8237081001304197`*^9, 3.824858138609872*^9, 
  3.845473414750832*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"2a6e37c2-1edd-4610-a43c-2d2dbb6e56a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"m", " ", "/:", " ", 
    RowBox[{"Dt", "[", "m", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", " ", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "0"}], " ", ";"}], " ", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, {
   3.823708059077715*^9, 3.8237080657720613`*^9}, {3.8237082623173733`*^9, 
   3.823708267011443*^9}, 3.824858138610021*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"464260e4-46fe-4277-8734-3bea054f8b62"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"012d283c-3039-4413-9fe0-\
27ec6f356cc6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"2e1e8105-9148-4f19-b3f8-ed5385eab34b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"f9c52abc-f9fa-4d48-9808-bf10cb847bb5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8248581469206753`*^9, 
  3.8248581977921543`*^9}},ExpressionUUID->"6f8483ff-b830-40c1-9a18-\
c1d3cc96f02b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"1", " ", "-", " ", 
       RowBox[{"\[Alpha]", " ", "r", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ")"}], "2"], 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", " ", "Q"}], " ", 
      SuperscriptBox["dt", "2"]}], "+", " ", 
     FractionBox[
      SuperscriptBox["dr", "2"], "Q"], "+", 
     FractionBox[
      RowBox[{" ", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["d\[Theta]", "2"]}]}], "P"], "+", " ", 
     RowBox[{"P", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823707392790803*^9, 3.823707396981285*^9}, 
   3.8248581628963757`*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"5e207754-7194-4676-9c90-d387389f1e25"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["dr", "2"], "Q"], "-", 
   RowBox[{
    SuperscriptBox["dt", "2"], " ", "Q"}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     SuperscriptBox["r", "2"]}], "P"], "+", 
   RowBox[{
    SuperscriptBox["d\[Phi]", "2"], " ", "P", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"r", " ", "\[Alpha]", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8237074133914013`*^9, 3.824858162896491*^9, 
  3.8454734148093987`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"318b7715-980a-44d8-ba04-2d725dae8b61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
    "]"}], " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8237074151821613`*^9, 3.823707430517036*^9}, 
   3.824858162896575*^9, {3.845473471883152*^9, 3.845473473098806*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"086853a7-3cab-49b8-b444-0fc0e1e8f7d1"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox["Q", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]]}], "0", 
       "0", "0"},
      {"0", 
       FractionBox["1", 
        RowBox[{"Q", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]}]], "0", 
       "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["r", "2"], 
        RowBox[{"P", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{"P", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"\[Alpha]", " ", "r", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.823707430829484*^9, 3.8248581628966713`*^9, 
  3.845473414831502*^9, 3.845473473351506*^9},
 CellLabel->
  "Out[39]//TraditionalForm=",ExpressionUUID->"1908d94a-0884-4296-b27b-\
232d46857e07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Should", " ", "be", " ", "Schwarzschild", " ", "limit"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", " ", 
      RowBox[{"eq1", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
      "]"}], "  ", "/.", " ", 
     RowBox[{"\[Alpha]", "->", " ", "0"}]}], "  ", "//", " ", "MatrixForm"}], 
   " ", "//", " ", "pdConv"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845473801930167*^9, 3.845473826578031*^9}, 
   3.845474197549613*^9},ExpressionUUID->"47753139-b1df-4f38-8414-\
798517a8e769"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", "Q"}], "0", "0", "0"},
      {"0", 
       FractionBox["1", "Q"], "0", "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["r", "2"], "P"], "0"},
      {"0", "0", "0", 
       RowBox[{"P", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.845473810277484*^9, 3.845473816110436*^9}, 
   3.8454741975505447`*^9},
 CellLabel->
  "Out[83]//TraditionalForm=",ExpressionUUID->"d72cf403-9376-46b6-b37d-\
3ceec163eb35"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"P", "[", "\[Theta]", "]"}], "\[Rule]", " ", 
      RowBox[{"1", " ", "+", " ", 
       RowBox[{"2", " ", "\[Alpha]", " ", "M", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Q", "[", "r", "]"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", " ", 
         FractionBox[
          RowBox[{"2", " ", "M"}], "r"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", " ", 
         RowBox[{
          SuperscriptBox["\[Alpha]", "2"], " ", 
          SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823707400101514*^9, 3.8237074085818768`*^9}, {
   3.823707495247221*^9, 3.823707502548584*^9}, {3.823707541671667*^9, 
   3.8237075417969513`*^9}, 3.824858162896781*^9, {3.845473672506103*^9, 
   3.8454736728572474`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"e9dbe890-2264-4013-b885-5073384d218d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"P", "[", "\[Theta]", "]"}], "\[Rule]", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"Q", "[", "r", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"2", " ", "M"}], "r"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["\[Alpha]", "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", 10004.},
 CellChangeTimes->{3.8237074442926817`*^9, 3.8237075029323483`*^9, 
  3.823707543474177*^9, 3.824858162896875*^9, 3.845473414845866*^9, 
  3.845473680476802*^9},
 CellLabel->
  "Out[60]//TableForm=",ExpressionUUID->"b572bf2d-5b63-41dc-b8ba-\
d7f39c70d9eb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"P", "\[Rule]", " ", 
      RowBox[{"P", "[", "\[Theta]", "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"Q", "\[Rule]", " ", 
      RowBox[{"Q", "[", "r", "]"}]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823707457430995*^9, 3.8237074909730587`*^9}, 
   3.824858162896978*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"0a2ac416-7089-45b3-a886-ad491c188566"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"P", "\[Rule]", 
       RowBox[{"P", "[", "\[Theta]", "]"}]}]},
     {
      RowBox[{"Q", "\[Rule]", 
       RowBox[{"Q", "[", "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", 10004.},
 CellChangeTimes->{3.823707491571937*^9, 3.824858162897073*^9, 
  3.845473414866818*^9, 3.8454736825823183`*^9},
 CellLabel->
  "Out[63]//TableForm=",ExpressionUUID->"00511795-f63d-4aad-a5b9-\
7bbdff5cb576"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq1", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
     "]"}], "  ", "/.", " ", "eq2a"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823707439661664*^9, 3.823707440764454*^9}, 
   3.823707505797522*^9, {3.8237075745663557`*^9, 3.823707593327155*^9}, 
   3.824858162897152*^9, {3.845473477466751*^9, 3.845473478594474*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"d6e932ad-c5d3-4a65-9906-0011b0992cd8"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Q", "(", "r", ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]]}], "0", 
       "0", "0"},
      {"0", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"Q", "(", "r", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]}]], "0", 
       "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["r", "2"], 
        RowBox[{
         RowBox[{"P", "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"P", "(", "\[Theta]", ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"\[Alpha]", " ", "r", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823707441281855*^9, 3.82370744693371*^9}, 
   3.823707506341724*^9, 3.823707547707529*^9, 3.8237075937243567`*^9, 
   3.824858162897232*^9, 3.845473414880175*^9, 3.845473478862669*^9, 
   3.845473684060255*^9},
 CellLabel->
  "Out[66]//TraditionalForm=",ExpressionUUID->"1f6c80a4-f5c7-4ce5-af1f-\
8edbda9e53e0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", " ", 
      RowBox[{"eq1", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"dt", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
      "]"}], "  ", "/.", " ", "eq2a"}], "  ", "/.", " ", "eq2"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1a", " ", "//", "  ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.823707517044911*^9, 3.8237075184285593`*^9}, {
   3.82370759834333*^9, 3.823707622621791*^9}, 3.824858162897312*^9, {
   3.845473481283038*^9, 3.8454734824420424`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"1b462a5a-d512-4519-896f-1e5c325a51a7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"2", " ", "M"}], "r"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             SuperscriptBox["\[Alpha]", "2"], " ", 
             SuperscriptBox["r", "2"]}]}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]]}], "0", 
       "0", "0"},
      {"0", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "M"}], "r"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            SuperscriptBox["\[Alpha]", "2"], " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]}]], "0", 
       "0"},
      {"0", "0", 
       FractionBox[
        SuperscriptBox["r", "2"], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "\[Alpha]", " ", "M", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "1"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Alpha]", " ", "r", " ", 
             RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]}]], "0"},
      {"0", "0", "0", 
       FractionBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "\[Alpha]", " ", "M", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}], "+", "1"}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"\[Alpha]", " ", "r", " ", 
            RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}], "2"]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.823707518783663*^9, 3.8237075495176277`*^9, 
  3.82370762303751*^9, 3.824858162897397*^9, 3.84547341490137*^9, 
  3.845473482718211*^9, 3.8454736870731487`*^9},
 CellLabel->
  "Out[69]//TraditionalForm=",ExpressionUUID->"cbff8826-b5d1-4d53-ae09-\
4e9f7e498601"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Should", " ", "be", " ", "Schwarzschild", " ", "limit"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"metric1a", " ", "/.", " ", 
     RowBox[{"\[Alpha]", "->", " ", "0"}]}], "  ", "//", " ", "MatrixForm"}], 
   " ", "//", " ", "pdConv"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8454738461804543`*^9, 3.84547387270338*^9}, 
   3.845474197550907*^9},ExpressionUUID->"e4a1e62f-aae4-4272-b92f-\
52ac7bf1c081"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "M"}], "r"], "-", "1"}], "0", "0", "0"},
      {"0", 
       FractionBox["1", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", "M"}], "r"]}]], "0", "0"},
      {"0", "0", 
       SuperscriptBox["r", "2"], "0"},
      {"0", "0", "0", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8454738532152853`*^9, 3.845473860799137*^9}, 
   3.845474197551779*^9},
 CellLabel->
  "Out[85]//TraditionalForm=",ExpressionUUID->"7bc294a3-94ea-45d1-a157-\
ee5029911dd0"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", " ", "\[Equal]", " ", 
      RowBox[{"m", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", "\[Equal]", " ", "\[Mu]"}], 
     " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"t", " ", "\[Equal]", " ", "x"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Phi]", " ", "\[Equal]", " ", 
      FractionBox["y", "M"]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.823708004594763*^9, 3.8237080466166687`*^9}, {
  3.823708249061782*^9, 3.823708249891901*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"fea0c882-f58d-4d14-ad56-228b8ec2aed8"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"r", "\[Equal]", 
       RowBox[{"m", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "\[Equal]", "\[Mu]"}]},
     {
      RowBox[{"t", "\[Equal]", "x"}]},
     {
      RowBox[{"\[Phi]", "\[Equal]", 
       FractionBox["y", "M"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.823708046904633*^9, 3.823708070484483*^9}, 
   3.82370825052952*^9, 3.845473414914969*^9, 3.845473689875617*^9},
 CellLabel->
  "Out[72]//TableForm=",ExpressionUUID->"b2f6bb71-ee93-46f6-b7fb-\
40fd1818f1e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq3", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
     "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
   RowBox[{
    RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.8237081229691973`*^9, 3.823708154429833*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"90d5ca88-76d5-4ff0-a005-8f57398f6f4f"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"t", "\[Rule]", "x"}]},
     {
      RowBox[{"r", "\[Rule]", 
       RowBox[{"m", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}]}]}]},
     {
      RowBox[{"\[Phi]", "\[Rule]", 
       FractionBox["y", "M"]}]},
     {
      RowBox[{"\[Theta]", "\[Rule]", 
       RowBox[{"ArcCos", "[", "\[Mu]", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8237081330899982`*^9, 3.82370815473206*^9}, 
   3.823708252485779*^9, 3.845473414947764*^9, 3.8454736926835737`*^9},
 CellLabel->
  "Out[73]//TableForm=",ExpressionUUID->"d8551113-0a45-456e-a235-\
e0417c306e8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", " ", 
       RowBox[{"eq3", " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
       "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{
      RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "]"}], " ",
    "/.", " ", "dtReplace"}], " ", "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.823708072421667*^9, 3.823708114076314*^9}, {
  3.823708161823285*^9, 3.823708177038207*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"8be51387-eb90-47dd-bbb1-d1607d83423b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dt", "\[Rule]", "dx"}]},
     {
      RowBox[{"dr", "\[Rule]", 
       RowBox[{"d\[Eta]", " ", "m"}]}]},
     {
      RowBox[{"d\[Phi]", "\[Rule]", 
       FractionBox["dy", "M"]}]},
     {
      RowBox[{"d\[Theta]", "\[Rule]", 
       RowBox[{"-", 
        FractionBox["d\[Mu]", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Mu]", "2"]}]]]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.823708078191074*^9, 3.823708114667406*^9}, 
   3.823708177357605*^9, 3.823708254396941*^9, 3.8454734149607058`*^9, 
   3.845473695771974*^9},
 CellLabel->
  "Out[74]//TableForm=",ExpressionUUID->"42c7d9ce-ec8a-4b72-af86-\
d7bde7647284"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"eq1", "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "/.", " ", "eq2a"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq1", " ", "/.", " ", "eq2a"}], " ", "/.", " ", "eq2"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq1", " ", "/.", " ", "eq2a"}], " ", "/.", " ", "eq2"}], "   ", "/.",
    " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", " ", 
       RowBox[{"eq3", " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
       "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{
      RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], " ", ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq4a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq4a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq1", " ", "/.", " ", "eq2a"}], " ", "/.", " ", "eq2"}], "   ", 
    "/.", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Solve", "[", " ", 
        RowBox[{"eq3", " ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
        "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{
       RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], " ", ")"}]}], 
   " ", "/.", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Dt", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Solve", "[", " ", 
         RowBox[{"eq3", " ", ",", " ", 
          RowBox[{"{", 
           RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
         "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
       RowBox[{
        RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", "0"}]}], "  ", "]"}], 
     " ", "/.", " ", "dtReplace"}], " ", ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.823708201990958*^9, 3.823708243418985*^9}, {
  3.823708281415505*^9, 3.8237083122307167`*^9}, {3.845473515707066*^9, 
  3.8454735326050577`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"f8510a7b-cdf3-40b4-b9cb-67f942abdeb5"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["dr", "2"], "Q"], "-", 
   RowBox[{
    SuperscriptBox["dt", "2"], " ", "Q"}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     SuperscriptBox["r", "2"]}], "P"], "+", 
   RowBox[{
    SuperscriptBox["d\[Phi]", "2"], " ", "P", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"r", " ", "\[Alpha]", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.82370820314072*^9, 3.8237083131800613`*^9}, 
   3.845473414982183*^9, 3.8454735235861273`*^9, 3.84547369878304*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"2f6fdc64-638c-4626-86a6-5dec864a8e70"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     SuperscriptBox["r", "2"]}], 
    RowBox[{"P", "[", "\[Theta]", "]"}]], "+", 
   FractionBox[
    SuperscriptBox["dr", "2"], 
    RowBox[{"Q", "[", "r", "]"}]], "-", 
   RowBox[{
    SuperscriptBox["dt", "2"], " ", 
    RowBox[{"Q", "[", "r", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["d\[Phi]", "2"], " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"P", "[", "\[Theta]", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"r", " ", "\[Alpha]", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.82370820314072*^9, 3.8237083131800613`*^9}, 
   3.845473414982183*^9, 3.8454735235861273`*^9, 3.845473698787619*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"c4a6684e-7dad-41d5-a42e-6e4fa8ae9ef9"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["dr", "2"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "M"}], "r"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]], "-", 
   RowBox[{
    SuperscriptBox["dt", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"2", " ", "M"}], "r"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     SuperscriptBox["r", "2"]}], 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "+", 
   RowBox[{
    SuperscriptBox["d\[Phi]", "2"], " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"r", " ", "\[Alpha]", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.82370820314072*^9, 3.8237083131800613`*^9}, 
   3.845473414982183*^9, 3.8454735235861273`*^9, 3.84547369879213*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"a4e10947-121d-4190-831e-a4beadeb2783"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox[
    SuperscriptBox["dr", "2"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "M"}], 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}]}], ")"}]}]], "-", 
   RowBox[{
    SuperscriptBox["dt", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"2", " ", "M"}], 
       RowBox[{"m", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["\[Alpha]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], " ", 
     SuperscriptBox["m", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}], 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", "\[Mu]"}]}]], "+", 
   RowBox[{
    SuperscriptBox["d\[Phi]", "2"], " ", 
    SuperscriptBox["m", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", "\[Mu]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Mu]", "2"]}], ")"}]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"m", " ", "\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
   "2"]]], "Output",
 CellChangeTimes->{{3.82370820314072*^9, 3.8237083131800613`*^9}, 
   3.845473414982183*^9, 3.8454735235861273`*^9, 3.845473698796702*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"2e016b9e-e1db-4913-87b7-c9ec74a36dc4"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Eta]", "2"], " ", 
     SuperscriptBox["m", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"2", " ", "M"}], 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["m", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}]}], ")"}]}]], "-", 
   RowBox[{
    SuperscriptBox["dx", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"2", " ", "M"}], 
       RowBox[{"m", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       SuperscriptBox["m", "2"], " ", 
       SuperscriptBox["\[Alpha]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["d\[Mu]", "2"], " ", 
     SuperscriptBox["m", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", "\[Mu]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Mu]", "2"]}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["dy", "2"], " ", 
     SuperscriptBox["m", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", "\[Mu]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["\[Mu]", "2"]}], ")"}]}], 
    SuperscriptBox["M", "2"]]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"m", " ", "\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
   "2"]]], "Output",
 CellChangeTimes->{{3.82370820314072*^9, 3.8237083131800613`*^9}, 
   3.845473414982183*^9, 3.8454735235861273`*^9, 3.845473698801474*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"d586bc4e-f291-4dd9-9514-5b4be7977945"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric4", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric4", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq4a", "  ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"d\[Eta]", ",", "d\[Mu]", ",", "dx", ",", "dy"}], "}"}]}], " ",
      "]"}], "   ", "//", " ", "FullSimplify"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric4", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.845473535964347*^9, 3.84547353657806*^9}, {
  3.8454735668270082`*^9, 3.84547363097187*^9}, {3.8454742272544813`*^9, 
  3.8454742367737293`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"e584addd-ad96-4c86-9d25-c8282b6bf02a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["m", "3"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Eta]"}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "-", 
           RowBox[{"2", " ", "M"}], "+", 
           RowBox[{"m", " ", "\[Eta]"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{
            SuperscriptBox["m", "2"], " ", 
            SuperscriptBox["\[Alpha]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"m", " ", "\[Alpha]", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
          "2"]}]]}], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["m", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", "\[Mu]"}]}], ")"}], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"m", " ", "\[Alpha]", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
          "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Mu]", "2"]}], ")"}]}]]}], "0", "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "-", 
          RowBox[{"2", " ", "M"}], "+", 
          RowBox[{"m", " ", "\[Eta]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           SuperscriptBox["m", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"]}]}], ")"}]}], 
       RowBox[{"m", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"m", " ", "\[Alpha]", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
         "2"]}]], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["m", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Eta]"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"2", " ", "M", " ", "\[Alpha]", " ", "\[Mu]"}]}], ")"}], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Mu]", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["M", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"m", " ", "\[Alpha]", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Eta]"}], ")"}], " ", "\[Mu]"}]}], ")"}], 
          "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",
 CellChangeTimes->{
  3.845473536984129*^9, {3.8454735916639357`*^9, 3.845473631209548*^9}, 
   3.845473703497686*^9, 3.845474237375863*^9},
 CellLabel->
  "Out[89]//MatrixForm=",ExpressionUUID->"0c5d9f53-4c68-4c9f-b044-\
2b5a39ffeddc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "JacobiSN"}]], "Input",
 CellChangeTimes->{{3.845474101672748*^9, 3.845474142407583*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"5989b559-a5f5-4c11-abbd-a613b6198088"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"]], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"]]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:ref/JacobiSN",
              ButtonNote->"paclet:ref/JacobiSN"],
             "\"paclet:ref/JacobiSN\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"\\!\\(\\*RowBox[{\\\"JacobiSN\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"m\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\\) gives the Jacobi elliptic function \
\\!\\(\\*RowBox[{\\\"sn\\\", \\\"(\\\", RowBox[{\\\"u\\\", \\\"|\\\", \\\"m\\\
\"}], \\\")\\\"}]\\).\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Documentation\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Documentation\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Documentation", "Tooltip"]& ], 
                   TemplateBox[{
                    
                    TemplateBox[{
                    "\"Local \[RightGuillemet]\"", "paclet:ref/JacobiSN", 
                    "paclet:ref/JacobiSN", "Link", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"], "\"  \"", 
                    StyleBox[
                    "\"|\"", "InformationRowLabel", StripOnInput -> False], 
                    "\"  \"", 
                    TemplateBox[{"\"Web \[RightGuillemet]\"", {
                    URL[
                    "http://reference.wolfram.com/language/ref/JacobiSN.html"]\
, None}, "http://reference.wolfram.com/language/ref/JacobiSN.html", 
                    "Hyperlink", {
                    RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, 
                    BaseStyle -> {
                    RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, 
                    "HyperlinkTemplate"]},
                    "RowDefault"]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    "Listable", ",", "NumericFunction", ",", "Protected", ",",
                     "ReadProtected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"System`JacobiSN\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox[
           PaneBox[
            TooltipBox[
             ButtonBox[
              PaneSelectorBox[{False->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIcon"],
                ImageSizeCache->{13., {4., 9.}}], True->
               
               DynamicBox[FEPrivate`FrontEndResource[
                "FEBitmaps", "InformationHelpIconHot"],
                ImageSizeCache->{13., {4., 9.}}]}, Dynamic[
                CurrentValue["MouseOver"]]],
              Appearance->None,
              BaseStyle->"Link",
              ButtonData->"paclet:ref/JacobiSN",
              ButtonNote->"paclet:ref/JacobiSN"],
             "\"paclet:ref/JacobiSN\""],
            FrameMargins->{{0, 4}, {0, 2}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"\\!\\(\\*RowBox[{\\\"JacobiSN\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"u\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"m\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\\) gives the Jacobi elliptic function \
\\!\\(\\*RowBox[{\\\"sn\\\", \\\"(\\\", RowBox[{\\\"u\\\", \\\"|\\\", \\\"m\\\
\"}], \\\")\\\"}]\\).\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {2., 8.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {2., 8.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[
   Association[
   "ObjectType" -> "Symbol", "Usage" -> 
    "\!\(\*RowBox[{\"JacobiSN\", \"[\", RowBox[{StyleBox[\"u\", \"TI\"], \
\",\", StyleBox[\"m\", \"TI\"]}], \"]\"}]\) gives the Jacobi elliptic \
function \!\(\*RowBox[{\"sn\", \"(\", RowBox[{\"u\", \"|\", \"m\"}], \
\")\"}]\).", "Documentation" -> 
    Association[
     "Local" -> "paclet:ref/JacobiSN", "Web" -> 
      "http://reference.wolfram.com/language/ref/JacobiSN.html"], "OwnValues" -> 
    None, "UpValues" -> None, "DownValues" -> None, "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, 
    "Attributes" -> {Listable, NumericFunction, Protected, ReadProtected}, 
    "FullName" -> "System`JacobiSN"], False]]], "Output",
 CellChangeTimes->{3.845474143290249*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"6c98d069-bc9b-4737-8d9a-c00a3165ec9e"]
}, Open  ]]
},
WindowSize->{1277, 675},
WindowMargins->{{1, Automatic}, {Automatic, 80}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"ec581a93-9bcd-4852-a6d9-377a00316939"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1134, 17, 221, "Title",ExpressionUUID->"ed1f31e8-2940-49ab-b288-85a4a46d2148",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1717, 41, 646, 12, 76, "Author",ExpressionUUID->"8ec5cd12-0367-4832-b816-678b3b5e710d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[2378, 56, 446, 10, 84, "Input",ExpressionUUID->"21506b11-bef8-4b5e-9846-2d85f6ef7b92"],
Cell[CellGroupData[{
Cell[2849, 70, 228, 4, 69, "Section",ExpressionUUID->"8fb5d64a-caac-42f2-979d-a003c2c6982f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3080, 76, 433, 9, 63, "Input",ExpressionUUID->"ebc34904-0596-48f2-b4d5-1630543856b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3516, 87, 1059, 17, 43, "Output",ExpressionUUID->"dbb7fb64-1da5-44f4-8a64-80943168d14f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4612, 109, 629, 10, 55, "Section",ExpressionUUID->"4be9980e-3739-4eec-91eb-c3740d3ff71b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5244, 121, 608, 11, 63, "Input",ExpressionUUID->"8b522eee-bff4-42b2-bbf5-bf27adc05ccc",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5855, 134, 810, 14, 43, "Output",ExpressionUUID->"7696e2b9-6702-42ca-aff9-aca740e7a40f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6668, 150, 650, 14, 84, "Input",ExpressionUUID->"324f456a-c646-46c3-9a95-247d2f36e4f4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7321, 166, 443, 9, 43, "Output",ExpressionUUID->"cd66cb68-64d7-4ca2-b70f-93648f25ccdf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7767, 177, 583, 10, 84, "Input",ExpressionUUID->"4c080955-d07a-4187-bec1-6ebeb29de4a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[8353, 189, 1103, 19, 43, "Output",ExpressionUUID->"9988c5c1-7964-4dc5-b102-d8869d8611af",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[9493, 213, 228, 4, 55, "Section",ExpressionUUID->"dc2219b4-64ba-413b-93cf-71afd3c33062",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9724, 219, 1640, 44, 189, "Input",ExpressionUUID->"1aaa27bb-5713-4c22-86b3-ff658549ea43",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11367, 265, 1309, 23, 24, "Print",ExpressionUUID->"dbc41da1-1c34-49fb-a71c-8891ce7e17af",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12679, 290, 1325, 24, 24, "Print",ExpressionUUID->"c488ef18-045a-4b88-98b8-936d08447601",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14007, 316, 1257, 20, 41, "Output",ExpressionUUID->"6b334e08-7f28-4876-9651-4ae351afb86b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[15267, 338, 246, 4, 41, "Input",ExpressionUUID->"cdefbe65-2ad8-487c-b6ec-2d4e0031b992",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[15550, 347, 240, 4, 55, "Section",ExpressionUUID->"326df8bd-c78d-4876-9a73-488723237740",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[15793, 353, 4017, 92, 651, "Input",ExpressionUUID->"c48308b8-1fb6-4d25-8367-a7d5dc3b234f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[19813, 447, 3220, 102, 501, "Output",ExpressionUUID->"2a6e37c2-1edd-4610-a43c-2d2dbb6e56a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[23036, 551, 1094, 27, 105, "Input",ExpressionUUID->"464260e4-46fe-4277-8734-3bea054f8b62",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24167, 583, 362, 6, 55, "Section",ExpressionUUID->"012d283c-3039-4413-9fe0-27ec6f356cc6",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24532, 591, 1660, 41, 126, "Input",ExpressionUUID->"2e1e8105-9148-4f19-b3f8-ed5385eab34b",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26195, 634, 1056, 26, 84, "Input",ExpressionUUID->"f9c52abc-f9fa-4d48-9808-bf10cb847bb5",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27288, 665, 229, 4, 55, "Section",ExpressionUUID->"6f8483ff-b830-40c1-9a18-c1d3cc96f02b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27520, 671, 1136, 30, 108, "Input",ExpressionUUID->"5e207754-7194-4676-9c90-d387389f1e25",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28659, 703, 852, 24, 74, "Output",ExpressionUUID->"318b7715-980a-44d8-ba04-2d725dae8b61",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29514, 729, 561, 12, 41, "Input",ExpressionUUID->"086853a7-3cab-49b8-b444-0fc0e1e8f7d1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30078, 743, 2011, 58, 166, "Output",ExpressionUUID->"1908d94a-0884-4296-b27b-232d46857e07",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32092, 803, 731, 18, 63, "Input",ExpressionUUID->"47753139-b1df-4f38-8414-798517a8e769",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32826, 823, 1098, 32, 128, "Output",ExpressionUUID->"d72cf403-9376-46b6-b37d-3ceec163eb35",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33927, 857, 1316, 31, 178, "Input",ExpressionUUID->"e9dbe890-2264-4013-b885-5073384d218d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35246, 890, 1345, 40, 75, "Output",ExpressionUUID->"b572bf2d-5b63-41dc-b8ba-d7f39c70d9eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36594, 932, 732, 16, 147, "Input",ExpressionUUID->"0a2ac416-7089-45b3-a886-ad491c188566",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37329, 950, 857, 26, 69, "Output",ExpressionUUID->"00511795-f63d-4aad-a5b9-7bbdff5cb576",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38189, 978, 863, 17, 105, "Input",ExpressionUUID->"d6e932ad-c5d3-4a65-9906-0011b0992cd8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39055, 997, 2285, 64, 166, "Output",ExpressionUUID->"1f6c80a4-f5c7-4ce5-af1f-8edbda9e53e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41343, 1063, 892, 19, 105, "Input",ExpressionUUID->"1b462a5a-d512-4519-896f-1e5c325a51a7",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42238, 1084, 3047, 86, 178, "Output",ExpressionUUID->"cbff8826-b5d1-4d53-ae09-4e9f7e498601",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45288, 1172, 552, 13, 63, "Input",ExpressionUUID->"e4a1e62f-aae4-4272-b92f-52ac7bf1c081",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45843, 1187, 1211, 36, 134, "Output",ExpressionUUID->"7bc294a3-94ea-45d1-a157-ee5029911dd0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[47091, 1228, 980, 22, 215, "Input",ExpressionUUID->"fea0c882-f58d-4d14-ad56-228b8ec2aed8"],
Cell[48074, 1252, 1014, 32, 111, "Output",ExpressionUUID->"b2f6bb71-ee93-46f6-b7fb-40fd1818f1e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49125, 1289, 542, 14, 41, "Input",ExpressionUUID->"90d5ca88-76d5-4ff0-a005-8f57398f6f4f"],
Cell[49670, 1305, 1017, 32, 111, "Output",ExpressionUUID->"d8551113-0a45-456e-a235-e0417c306e8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50724, 1342, 692, 17, 41, "Input",ExpressionUUID->"8be51387-eb90-47dd-bbb1-d1607d83423b"],
Cell[51419, 1361, 1090, 35, 127, "Output",ExpressionUUID->"42c7d9ce-ec8a-4b72-af86-d7bde7647284"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52546, 1401, 2200, 59, 189, "Input",ExpressionUUID->"f8510a7b-cdf3-40b4-b9cb-67f942abdeb5"],
Cell[54749, 1462, 842, 23, 74, "Output",ExpressionUUID->"2f6fdc64-638c-4626-86a6-5dec864a8e70"],
Cell[55594, 1487, 977, 27, 74, "Output",ExpressionUUID->"c4a6684e-7dad-41d5-a42e-6e4fa8ae9ef9"],
Cell[56574, 1516, 1646, 49, 80, "Output",ExpressionUUID->"a4e10947-121d-4190-831e-a4beadeb2783"],
Cell[58223, 1567, 2213, 68, 83, "Output",ExpressionUUID->"2e016b9e-e1db-4913-87b7-c9ec74a36dc4"],
Cell[60439, 1637, 2464, 77, 88, "Output",ExpressionUUID->"d586bc4e-f291-4dd9-9514-5b4be7977945"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62940, 1719, 739, 15, 105, "Input",ExpressionUUID->"e584addd-ad96-4c86-9d25-c8282b6bf02a"],
Cell[63682, 1736, 4181, 126, 181, "Output",ExpressionUUID->"0c5d9f53-4c68-4c9f-b044-2b5a39ffeddc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67900, 1867, 196, 3, 41, "Input",ExpressionUUID->"5989b559-a5f5-4c11-abbd-a613b6198088"],
Cell[68099, 1872, 12522, 301, 103, "Output",ExpressionUUID->"6c98d069-bc9b-4737-8d9a-c00a3165ec9e"]
}, Open  ]]
}
]
*)