Colliding plane gravitational waves - A class of nondiagonal soliton solutions by Ferrari , Ibanez & Bruni.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[     55664,       1385]
NotebookOptionsPosition[     47611,       1253]
NotebookOutlinePosition[     48077,       1270]
CellTagsIndexPosition[     48034,       1267]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Colliding plane gravitational waves: A class of nondiagonal soliton solutions \
by Ferrari ,  Ibanez & Bruni\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.824031452536063*^9, 3.8240314588397417`*^9}, {
   3.824050286183601*^9, 3.8240502981028023`*^9}, {3.824054052123823*^9, 
   3.8240540590982018`*^9}, {3.8241112645699453`*^9, 3.824111275806172*^9}, {
   3.8241113419162703`*^9, 3.824111370584461*^9}, {3.824193608737433*^9, 
   3.824193622368597*^9}, {3.824218752350441*^9, 3.824218753324944*^9}, 
   3.852396540651958*^9},
 TextAlignment->Center,ExpressionUUID->"60989bed-07a4-4c49-b3dc-fdee45adf645"],

Cell["\<\
Geoff Cope
University of Utah
March 8, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, 3.824031476024664*^9, 3.824031704319726*^9, {
   3.824193656467066*^9, 3.824193656929852*^9}},
 TextAlignment->Center,ExpressionUUID->"0f8553f2-719e-436e-848c-b7e7d1424669"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"aecb9d5f-e36d-402a-98b5-\
80353a06bf21"],

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[1]:=",ExpressionUUID->"66205b31-10dd-4834-bd54-d337931ce94d"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9, 
   3.824050435315671*^9, 3.824050999906499*^9, 3.824051492117627*^9, 
   3.824054172450189*^9, 3.824054375215625*^9, 3.824111434931583*^9, 
   3.824117930025662*^9, 3.824193774383024*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"eedd1430-289b-40bf-adfa-b8c2f0edd0cf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 
   3.826211628967682*^9},ExpressionUUID->"419b6cc0-5cdb-4f14-a4b0-\
a51b38febcde"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding plane gravitational waves: A class of nondiagonal soliton \
solutions by Ferrari ,  Ibanez & Bruni\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://journals.aps.org/prd/abstract/10.1103/PhysRevD.36.1053\>\""}],
   "]"}]], "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.82421878158261*^9, 
   3.824218795277108*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"3a58bd68-ba1d-4754-967e-757fe50f765b"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding plane gravitational waves: A class of nondiagonal soliton \
solutions by Ferrari ,  Ibanez & Bruni\"", 
   "https://journals.aps.org/prd/abstract/10.1103/PhysRevD.36.1053"},
  "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.8239670361077127`*^9, 3.8239675178933*^9, 3.823970038708452*^9, 
   3.824025682120349*^9, 3.824032150367559*^9, 3.824050435367694*^9, 
   3.824050999946439*^9, 3.8240514922362757`*^9, 3.8240541725938663`*^9, 
   3.82405437525069*^9, 3.824111435079376*^9, 3.824117930144135*^9, 
   3.8241937745133266`*^9, 3.8242187956694193`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"bb925faf-8f59-4695-a4ed-3d2b4913fcdb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.8252884644689703`*^9},ExpressionUUID->"20e3d83e-c754-4597-849a-\
0a5bd1bc7313"],

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", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.825288464469104*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"fe78e4a4-1b52-43bb-9ef1-0fcf86ce2d8e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.8240321504830923`*^9, 3.8240504354973917`*^9, 
   3.824051000133101*^9, 3.824051492357512*^9, 3.824054172748905*^9, 
   3.824054375453238*^9, 3.824111435226822*^9, 3.824117930311021*^9, 
   3.824193774641309*^9, 3.825288464469181*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"4e30db42-19ea-48c8-a0d6-6cadeb7d3561"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"13 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "13 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.8240321504830923`*^9, 3.8240504354973917`*^9, 
   3.824051000133101*^9, 3.824051492357512*^9, 3.824054172748905*^9, 
   3.824054375453238*^9, 3.824111435226822*^9, 3.824117930311021*^9, 
   3.8241937746431503`*^9, 3.825288464469247*^9},
 CellLabel->
  "During evaluation of \
In[7]:=",ExpressionUUID->"59256f48-0e91-42cb-81a9-21665421b923"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.824032150486408*^9, 3.8240504355005302`*^9, 
   3.824051000137991*^9, 3.824051492360982*^9, 3.82405417275224*^9, 
   3.82405437545785*^9, 3.8241114352302933`*^9, 3.824117930315586*^9, 
   3.824193774644352*^9, 3.825288464469336*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"ea12d1e9-9925-4fb7-a967-46df48bec4d9"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825288464469432*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"edee5cb4-dfa5-4a08-8312-6b15df7572ca"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.8252884644695*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"f361d8fa-4391-4cc7-a65b-82d1bf8295ce"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825288476338303*^9},ExpressionUUID->"7638bef7-f8d8-46a9-aadd-\
dffce3d6116d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", " ", 
      "d\[CurlyRho]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", " ", "d\[Xi]"}], " ", ",",
      "  ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptV]", "]"}], "\[Rule]", " ", "d\[ScriptV]"}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", " ", "d\[ScriptU]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", " ", "d\[ScriptX]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", " ", "d\[ScriptY]"}],
      ",", "   ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Zeta]", "]"}], "\[Rule]", " ", "d\[Zeta]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Zeta]bar", "]"}], "\[Rule]", " ", 
      "d\[Zeta]bar"}]}], " ", "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, {3.824032529537923*^9, 
   3.8240325755969877`*^9}, {3.824111980853726*^9, 3.82411200435644*^9}, 
   3.825288476338462*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"70f008ef-3e53-4ae4-aa9a-fb9585852c27"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", "d\[CurlyRho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", "d\[Xi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptV]", "]"}], "\[Rule]", "d\[ScriptV]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", "d\[ScriptU]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", "d\[ScriptX]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", "d\[ScriptY]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Zeta]", "]"}], "\[Rule]", "d\[Zeta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Zeta]bar", "]"}], "\[Rule]", "d\[Zeta]bar"}]}
    },
    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.82403258232056*^9, 3.8240504355846977`*^9, 
  3.824051000170314*^9, 3.8240514924468307`*^9, 3.8240541728467197`*^9, 
  3.824054375493238*^9, 3.824111435338122*^9, 3.824112005137067*^9, 
  3.824117930406502*^9, 3.82419377475765*^9, 3.825288476338595*^9},
 CellLabel->
  "Out[6]//TableForm=",ExpressionUUID->"ca4ff6d8-a253-45c9-b27b-ca04d819df91"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", " ", "/:", " ", 
    RowBox[{"Dt", "[", "M", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 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.824112239153829*^9, 3.824112246801137*^9}, 3.825288476338681*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"4898095f-01d8-4646-b6ca-d48ace2f4bef"]
}, 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->"b8229fa7-b68d-4d2f-bd62-\
3e26765a6fac"],

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[9]:=",ExpressionUUID->"9f167075-5c35-4cf7-9685-b6b8d0f68034"],

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[11]:=",ExpressionUUID->"f7f20ab4-1fab-44bc-8bf2-e501c067ce04"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8523965104026814`*^9, 
  3.852396526556267*^9}},ExpressionUUID->"d35633fc-49a3-40c3-9aab-\
86c423fd4192"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    SuperscriptBox["t", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "s1", " ", "s2"}]], 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["dz", "2"], "-", 
      SuperscriptBox["dt", "2"]}], ")"}]}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox["t", 
     RowBox[{"2", " ", "s1"}]], " ", 
    SuperscriptBox["dx", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox["t", 
     RowBox[{"2", "s2", " "}]], " ", 
    SuperscriptBox["dy", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.852396174901203*^9, 3.8523962113403254`*^9}, 
   3.852396516831151*^9},
 CellLabel->
  "In[166]:=",ExpressionUUID->"50586094-7fbd-4887-bef2-f27979c68106"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dx", "2"], " ", 
   SuperscriptBox["t", 
    RowBox[{"2", " ", "s1"}]]}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", 
   SuperscriptBox["t", 
    RowBox[{"2", " ", "s2"}]]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["dt", "2"]}], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   SuperscriptBox["t", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "s1", " ", "s2"}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.852396212212367*^9, 3.8523965168320637`*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"1c7e4a4f-3b7e-4a2e-ba5f-67e879026236"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric1pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric1pt1", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1pt1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dz", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric1pt1", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.852396214141687*^9, 3.852396231852449*^9}, {
   3.852396387949463*^9, 3.852396400805111*^9}, 3.852396516832411*^9},
 CellLabel->
  "In[170]:=",ExpressionUUID->"91f42fc5-6599-49d9-9bb8-101350b07ab8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox["t", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "s1", " ", "s2"}]]}], "0", "0", "0"},
     {"0", 
      SuperscriptBox["t", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "s1", " ", "s2"}]], "0", "0"},
     {"0", "0", 
      SuperscriptBox["t", 
       RowBox[{"2", " ", "s1"}]], "0"},
     {"0", "0", "0", 
      SuperscriptBox["t", 
       RowBox[{"2", " ", "s2"}]]}
    },
    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.852396225136808*^9, 3.852396401332*^9, 
  3.852396516833262*^9},
 CellLabel->
  "Out[172]//MatrixForm=",ExpressionUUID->"f13a7268-0e04-447e-a8d7-\
ed741b8ea258"],

Cell["\<\
In a similar way, the Khan-Penrose solution (which is \
\[OpenCurlyDoubleQuote]equivalent\[CloseCurlyDoubleQuote] to the \
Schwarzschild solution) can be found by using as a seed the Kasner metric: in \
the case s1 = 1/2 s2 = 1/2 and assuming that the space-time has two spacelike \
Killing vectors. \
\>", "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8523962862307*^9, 3.852396335277872*^9}, 
   3.8523965168333683`*^9},ExpressionUUID->"deca4a90-31fe-4cbb-a8ea-\
0c0f389b3f19"],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq1pt1", " ", "/.", " ", 
   RowBox[{"s1", "->", " ", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}]}], "/.", " ", 
  RowBox[{"s2", "->", " ", 
   RowBox[{"(", 
    RowBox[{"1", "/", "2"}], ")"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.852396252869062*^9, 3.85239627070837*^9}, 
   3.852396406421144*^9, 
   3.852396516833581*^9},ExpressionUUID->"868533ce-5dc3-4c7a-b520-\
11167a541e38"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["dt", "2"]}], "+", 
    SuperscriptBox["dz", "2"]}], 
   SqrtBox["t"]], "+", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", "t"}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", "t"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.85239626788211*^9, 3.852396516834298*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"e3abd228-d8ae-401f-a7a8-930ec67f5d0a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq1pt1", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dz"}], "}"}]}], "]"}], "/.", " ", 
   RowBox[{"s1", "->", " ", 
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}]}]}], "/.", " ", 
  RowBox[{"s2", "->", " ", 
   RowBox[{"(", 
    RowBox[{"1", "/", "2"}], ")"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.852396427782482*^9, 3.852396448997493*^9}, 
   3.8523965168345137`*^9},
 CellLabel->
  "In[174]:=",ExpressionUUID->"d978fd17-2e1b-4f61-8d82-716eb6009eee"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       SqrtBox["t"]]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["1", 
      SqrtBox["t"]]}], "}"}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.852396440924786*^9, 3.8523964497707567`*^9}, 
   3.852396516835328*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"b4ba38a5-b87f-4d01-8e3a-480a69ebeb3c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 4.9", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8252884838221083`*^9, {3.852396116969842*^9, 
   3.852396133356214*^9}},ExpressionUUID->"359b07bf-e8dc-42cc-8936-\
c8b6af837bd7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4pt9", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq4pt9", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"4", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"g", "[", "v", "]"}], "]"}], " ", "du", " ", "dv"}], " ", "-", 
   " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["v", "2"]}], ")"}], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Chi]", "[", "v", "]"}], " ", 
       SuperscriptBox["dx2", "2"]}], "+", " ", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"\[Chi]", "[", "v", "]"}]], 
       SuperscriptBox[
        RowBox[{"(", " ", 
         RowBox[{"dx1", " ", "-", " ", 
          RowBox[{
           RowBox[{"q2", "[", "v", "]"}], " ", "dx2"}]}], " ", ")"}], 
        "2"]}]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824193705652318*^9, 3.824193765050047*^9}, 
   3.8523961169700403`*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"a02b44ee-77f5-410f-8f4d-6ddfc6b7bf59"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "du", " ", "dv", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"g", "[", "v", "]"}]]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["v", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"dx1", "-", 
         RowBox[{"dx2", " ", 
          RowBox[{"q2", "[", "v", "]"}]}]}], ")"}], "2"], 
      RowBox[{"\[Chi]", "[", "v", "]"}]], "+", 
     RowBox[{
      SuperscriptBox["dx2", "2"], " ", 
      RowBox[{"\[Chi]", "[", "v", "]"}]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8241937748031273`*^9, 3.852396116970262*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"b975e5d5-fb63-4f47-b0ef-3c6776ce7b34"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric4pt9", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric4pt9", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", 
      RowBox[{"eq4pt9", ",", 
       RowBox[{"{", 
        RowBox[{"du", ",", "dv", ",", "dx1", ",", "dx2"}], "}"}]}], "]"}], 
     "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric4pt9", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824193777747529*^9, 3.8241938413837843`*^9}, 
   3.85239611697042*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"09274cad-687e-4082-9de3-41f159329c3e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"g", "[", "v", "]"}]]}], "0", "0"},
     {
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"g", "[", "v", "]"}]]}], "0", "0", "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["v", "2"]}], 
       RowBox[{"\[Chi]", "[", "v", "]"}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["v", "2"]}], ")"}], " ", 
         RowBox[{"q2", "[", "v", "]"}]}], 
        RowBox[{"\[Chi]", "[", "v", "]"}]]}]},
     {"0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["v", "2"]}], ")"}], " ", 
         RowBox[{"q2", "[", "v", "]"}]}], 
        RowBox[{"\[Chi]", "[", "v", "]"}]]}], 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["v", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"q2", "[", "v", "]"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"\[Chi]", "[", "v", "]"}], "2"]}], ")"}]}], 
       RowBox[{"\[Chi]", "[", "v", "]"}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824193793631386*^9, 3.824193843146624*^9}, 
   3.852396116970604*^9},
 CellLabel->
  "Out[20]//MatrixForm=",ExpressionUUID->"2acff5fd-20f6-41c1-b0fc-\
fb07a00894a2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq4pt10", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4pt10", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"g", "[", "v", "]"}], "\[Rule]", " ", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"f", "[", "v", "]"}], 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["v", "2"]}]]], "]"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Chi]", "[", "v", "]"}], "\[Rule]", " ", 
      RowBox[{"-", 
       RowBox[{"(", 
        FractionBox[
         RowBox[{"1", "-", 
          SuperscriptBox["v", "2"]}], 
         RowBox[{"g11", "[", "v", "]"}]], ")"}]}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq4pt10", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8241938476817017`*^9, 3.824193903168614*^9}, {
   3.824193982787943*^9, 3.824193991628418*^9}, 3.8523961169707737`*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"eb984ed3-be8d-4581-a370-d01f77f91f77"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"g", "[", "v", "]"}], "\[Rule]", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"f", "[", "v", "]"}], 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["v", "2"]}]]], "]"}]}]},
     {
      RowBox[{
       RowBox[{"\[Chi]", "[", "v", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", 
          SuperscriptBox["v", "2"]}], 
         RowBox[{"g11", "[", "v", "]"}]]}]}]}
    },
    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.824193989547867*^9, 3.8241939922735243`*^9}, 
   3.8523961169709597`*^9},
 CellLabel->
  "Out[26]//TableForm=",ExpressionUUID->"297a06b6-faa1-4018-bc8b-\
3ea0b9baad4f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 6.1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8523960718593597`*^9, 
  3.852396083139718*^9}},ExpressionUUID->"e441b11f-3b03-45a2-a91c-\
a23a9dd41dda"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt1", "  ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"f", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], "-", " ", 
      SuperscriptBox["d\[Theta]", "2"]}], ")"}]}], " ", "+", " ", 
   RowBox[{"g11", " ", 
    SuperscriptBox["dx1", "2"]}], "+", " ", 
   RowBox[{"g22", " ", 
    SuperscriptBox["dx2", "2"], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824193994803626*^9, 3.824194102381899*^9}, 
   3.824194139023934*^9, 3.8523960687728662`*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"3d76810a-3a02-4b7d-bd39-d2df449b7a85"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["d\[Theta]", "2"]}], "+", 
     SuperscriptBox["d\[Phi]", "2"]}], ")"}], " ", "f"}], "+", 
  RowBox[{
   SuperscriptBox["dx1", "2"], " ", "g11"}], "+", 
  RowBox[{
   SuperscriptBox["dx2", "2"], " ", "g22"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8241940584664392`*^9, 3.824194104004417*^9, 
  3.8241941507831182`*^9, 3.852396068773121*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"172f9018-060a-46b8-a8a9-1f39d0270692"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"lineToMetric", "[", " ", 
      RowBox[{"eq6pt1", " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"d\[Phi]", ",", "d\[Theta]", ",", "dx1", ",", "dx2"}], 
        "}"}]}], "]"}], " ", "/.", " ", 
     RowBox[{"f", "\[Rule]", " ", 
      RowBox[{"f", "[", "v", "]"}]}]}], " ", "/.", " ", 
    RowBox[{"g11", "\[Rule]", " ", 
     RowBox[{"g11", "[", "v", "]"}]}]}], " ", "/.", " ", 
   RowBox[{"g22", "\[Rule]", " ", 
    RowBox[{"g22", "[", "v", "]"}]}]}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824194108062622*^9, 3.824194135684258*^9}, {
   3.8241943164793253`*^9, 3.824194318008162*^9}, 
   3.852396068773288*^9},ExpressionUUID->"963661be-7a60-4315-8541-\
8853c5750f56"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"f", "[", "v", "]"}], "0", "0", "0"},
     {"0", 
      RowBox[{"-", 
       RowBox[{"f", "[", "v", "]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"g11", "[", "v", "]"}], "0"},
     {"0", "0", "0", 
      RowBox[{"g22", "[", "v", "]"}]}
    },
    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.824194128338999*^9, 3.824194164273038*^9}, 
   3.852396068773473*^9},
 CellLabel->
  "Out[35]//MatrixForm=",ExpressionUUID->"31333980-a464-49f0-b915-\
890b6dc59d18"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 6.5", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.85239608621172*^9, 
  3.852396099459676*^9}},ExpressionUUID->"472c7530-1ccf-483a-a51b-\
435a30ddf911"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt5", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt5", "  ", "=", " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"f", "[", "v", "]"}], " ", "du", " ", "dv"}], 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["v", "2"]}]]], "+", " ", 
   RowBox[{"g11", " ", 
    SuperscriptBox["dx1", "2"]}], "+", " ", 
   RowBox[{"g22", " ", 
    SuperscriptBox["dx2", "2"], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8241940657251472`*^9, 3.82419407696577*^9}, {
   3.824194190838182*^9, 3.824194248722437*^9}, 3.824194281991324*^9, 
   3.8523960914606543`*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"5fd7d8e3-2384-421b-8bff-4b8657f6d694"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["dx1", "2"], " ", "g11"}], "+", 
  RowBox[{
   SuperscriptBox["dx2", "2"], " ", "g22"}], "+", 
  FractionBox[
   RowBox[{"du", " ", "dv", " ", 
    RowBox[{"f", "[", "v", "]"}]}], 
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["v", "2"]}]]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824194255381125*^9, 3.824194285323351*^9}, 
   3.852396091460881*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"c9c3b4da-1e1a-418f-899b-95e279f328a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq6pt5", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dv", ",", "dx1", ",", "dx2"}], "}"}]}], "]"}], "  ", 
  "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824194257631013*^9, 3.8241943086216307`*^9}, 
   3.852396091461049*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"f3bc69c5-85af-4fa5-953a-5ea24dad93cb"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      FractionBox[
       RowBox[{"f", "[", "v", "]"}], 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["v", "2"]}]]}]], "0", "0"},
     {
      FractionBox[
       RowBox[{"f", "[", "v", "]"}], 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["v", "2"]}]]}]], "0", "0", "0"},
     {"0", "0", "g11", "0"},
     {"0", "0", "0", "g22"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8241942733805113`*^9, 3.824194308979848*^9}, 
   3.8523960914613323`*^9},
 CellLabel->
  "Out[42]//MatrixForm=",ExpressionUUID->"f3d3509c-a63c-412e-8ecf-\
364455fdcae2"]
}, Closed]]
},
WindowSize->{1276, 675},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"02c0fb8d-9b65-4325-8e2c-4b71b032dcf9"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1578, 24, 221, "Title",ExpressionUUID->"60989bed-07a4-4c49-b3dc-fdee45adf645",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[2161, 48, 840, 15, 76, "Author",ExpressionUUID->"0f8553f2-719e-436e-848c-b7e7d1424669",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3038, 68, 228, 4, 69, "Section",ExpressionUUID->"aecb9d5f-e36d-402a-98b5-80353a06bf21",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3269, 74, 433, 9, 63, "Input",ExpressionUUID->"66205b31-10dd-4834-bd54-d337931ce94d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3705, 85, 1339, 21, 43, "Output",ExpressionUUID->"eedd1430-289b-40bf-adfa-b8c2f0edd0cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5081, 111, 545, 9, 55, "Section",ExpressionUUID->"419b6cc0-5cdb-4f14-a4b0-a51b38febcde",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5629, 122, 674, 12, 63, "Input",ExpressionUUID->"3a58bd68-ba1d-4754-967e-757fe50f765b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6306, 136, 1164, 19, 43, "Output",ExpressionUUID->"bb925faf-8f59-4695-a4ed-3d2b4913fcdb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[7507, 160, 253, 4, 55, "Section",ExpressionUUID->"20e3d83e-c754-4597-849a-0a5bd1bc7313",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[7763, 166, 1666, 45, 189, "Input",ExpressionUUID->"fe78e4a4-1b52-43bb-9ef1-0fcf86ce2d8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[9432, 213, 1615, 27, 24, "Print",ExpressionUUID->"4e30db42-19ea-48c8-a0d6-6cadeb7d3561",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11050, 242, 1634, 28, 24, "Print",ExpressionUUID->"59256f48-0e91-42cb-81a9-21665421b923",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12687, 272, 1563, 24, 41, "Output",ExpressionUUID->"ea12d1e9-9925-4fb7-a967-46df48bec4d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14253, 298, 268, 4, 41, "Input",ExpressionUUID->"edee5cb4-dfa5-4a08-8312-6b15df7572ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[14524, 304, 306, 5, 41, "Input",ExpressionUUID->"f361d8fa-4391-4cc7-a65b-82d1bf8295ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14867, 314, 266, 5, 55, "Section",ExpressionUUID->"7638bef7-f8d8-46a9-aadd-dffce3d6116d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[15136, 321, 4781, 108, 756, "Input",ExpressionUUID->"70f008ef-3e53-4ae4-aa9a-fb9585852c27",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19920, 431, 3623, 115, 591, "Output",ExpressionUUID->"ca4ff6d8-a253-45c9-b27b-ca04d819df91",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23546, 548, 721, 16, 63, "Input",ExpressionUUID->"4898095f-01d8-4646-b6ca-d48ace2f4bef",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24304, 569, 362, 6, 55, "Section",ExpressionUUID->"b8229fa7-b68d-4d2f-bd62-3e26765a6fac",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24669, 577, 1659, 41, 126, "Input",ExpressionUUID->"9f167075-5c35-4cf7-9685-b6b8d0f68034",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26331, 620, 1056, 26, 84, "Input",ExpressionUUID->"f7f20ab4-1fab-44bc-8bf2-e501c067ce04",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27424, 651, 229, 4, 55, "Section",ExpressionUUID->"d35633fc-49a3-40c3-9aab-86c423fd4192",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[27656, 657, 860, 24, 86, "Input",ExpressionUUID->"50586094-7fbd-4887-bef2-f27979c68106",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[28519, 683, 697, 22, 44, "Output",ExpressionUUID->"1c7e4a4f-3b7e-4a2e-ba5f-67e879026236",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[29219, 707, 705, 14, 105, "Input",ExpressionUUID->"91f42fc5-6599-49d9-9bb8-101350b07ab8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[29927, 723, 1117, 34, 113, "Output",ExpressionUUID->"f13a7268-0e04-447e-a8d7-ed741b8ea258",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[31047, 759, 528, 10, 57, "Text",ExpressionUUID->"deca4a90-31fe-4cbb-a8ea-0c0f389b3f19",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[31578, 771, 484, 13, 41, "Input",ExpressionUUID->"868533ce-5dc3-4c7a-b520-11167a541e38",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[32065, 786, 492, 15, 64, "Output",ExpressionUUID->"e3abd228-d8ae-401f-a7a8-930ec67f5d0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[32560, 803, 617, 17, 41, "Input",ExpressionUUID->"d978fd17-2e1b-4f61-8d82-716eb6009eee",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[33180, 822, 506, 16, 61, "Output",ExpressionUUID->"b4ba38a5-b87f-4d01-8e3a-480a69ebeb3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[33723, 843, 255, 5, 55, "Section",ExpressionUUID->"359b07bf-e8dc-42cc-8936-c8b6af837bd7",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33981, 850, 1069, 29, 104, "Input",ExpressionUUID->"a02b44ee-77f5-410f-8f4d-6ddfc6b7bf59",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35053, 881, 822, 23, 63, "Output",ExpressionUUID->"b975e5d5-fb63-4f47-b0ef-3c6776ce7b34",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35878, 906, 741, 16, 105, "Input",ExpressionUUID->"09274cad-687e-4082-9de3-41f159329c3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36622, 924, 2109, 65, 143, "Output",ExpressionUUID->"2acff5fd-20f6-41c1-b0fc-fb07a00894a2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38734, 991, 1148, 28, 222, "Input",ExpressionUUID->"eb984ed3-be8d-4581-a370-d01f77f91f77",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39885, 1021, 1167, 37, 95, "Output",ExpressionUUID->"297a06b6-faa1-4018-bc8b-3ea0b9baad4f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[41089, 1063, 229, 4, 55, "Section",ExpressionUUID->"e441b11f-3b03-45a2-a91c-a23a9dd41dda",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[41321, 1069, 710, 16, 86, "Input",ExpressionUUID->"3d76810a-3a02-4b7d-bd39-d2df449b7a85",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[42034, 1087, 575, 15, 44, "Output",ExpressionUUID->"172f9018-060a-46b8-a8a9-1f39d0270692",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[42612, 1104, 835, 21, 41, "Input",ExpressionUUID->"963661be-7a60-4315-8541-8853c5750f56",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[43450, 1127, 954, 28, 105, "Output",ExpressionUUID->"31333980-a464-49f0-b915-890b6dc59d18",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[44441, 1160, 226, 4, 55, "Section",ExpressionUUID->"472c7530-1ccf-483a-a51b-435a30ddf911",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[44670, 1166, 774, 18, 113, "Input",ExpressionUUID->"5fd7d8e3-2384-421b-8bff-4b8657f6d694",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[45447, 1186, 542, 15, 63, "Output",ExpressionUUID->"c9c3b4da-1e1a-418f-899b-95e279f328a3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[45992, 1203, 461, 10, 41, "Input",ExpressionUUID->"f3bc69c5-85af-4fa5-953a-5ea24dad93cb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[46456, 1215, 1139, 35, 131, "Output",ExpressionUUID->"f3d3509c-a63c-412e-8ecf-364455fdcae2",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]]
}
]
*)