Colliding neutrino fields by Griffiths.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[     58371,       1459]
NotebookOptionsPosition[     50176,       1325]
NotebookOutlinePosition[     50642,       1342]
CellTagsIndexPosition[     50599,       1339]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Colliding neutrino fields by Griffiths\
\>", "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.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.82795429722185*^9, 
   3.827954302845343*^9}, 3.855504527239293*^9, 3.855504601130533*^9},
 TextAlignment->Center,ExpressionUUID->"bd82a828-e5d6-4bf1-bda2-a3f7586814f8"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
April 20, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9, {3.855407872416093*^9, 3.855407879483934*^9}, 
   3.8554963948316936`*^9, {3.855504601130645*^9, 3.8555046071352787`*^9}},
 TextAlignment->Center,ExpressionUUID->"5063f0be-7180-4b8a-ac60-1d1ccfa831f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"c84b093d-0c78-4564-9765-\
821dbae17498"],

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[3]:=",ExpressionUUID->"00a26e03-fb24-4228-bba1-61ffb4e03052"],

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.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.8279557154177027`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"46113459-112c-4770-a606-7abdfd33bfe1"]
}, 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.85550458542528*^9},ExpressionUUID->"34024dde-8186-4b54-9ff1-\
252b9ad859f3"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding neutrino fields in general relativity by Griffiths\>\"", ",",
    "\[IndentingNewLine]", 
   "\"\<https://iopscience.iop.org/article/10.1088/0305-4470/9/1/009/meta\>\"\
"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8555045548897676`*^9, 3.855504576912219*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"ccccd096-09d8-4efd-9d58-a22f3d5ab7bf"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding neutrino fields in general relativity by Griffiths\"", 
   "https://iopscience.iop.org/article/10.1088/0305-4470/9/1/009/meta"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.855504578819747*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"dadf3131-1178-44a9-bcd8-e588c618690a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"1eba5a7f-9ddb-4956-93d2-\
55a7d7dd41f8"],

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[6]:=",ExpressionUUID->"e7bfc982-0848-44eb-a803-ab1706cad033"],

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.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.8279557158304777`*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"dcbc8c5b-b2f2-4b7d-9c3e-dd6f261e87c0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"12 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "12 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.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.827955715835835*^9},
 CellLabel->
  "During evaluation of \
In[6]:=",ExpressionUUID->"05dec954-de00-4a4e-9c5a-be070dcbbc5a"],

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.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827955715837903*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"75026e64-4b36-4e4f-b17f-5a680dbc3111"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"e035356f-2b1f-4a73-8f3a-71e0f10738c1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"41e99e12-4978-43fd-ad26-\
04fe6183d1f0"],

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", "[", "\[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", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[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[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"2e75ed35-a5c4-4542-86ee-724a2e86819f"],

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", "[", "\[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", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      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.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.827955715914514*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"f396c67c-ca17-4912-bd58-96e5200f9e17"]
}, 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->"df3477c6-8c25-47bf-a4d6-\
bf63b13a4c36"],

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[6]:=",ExpressionUUID->"ef4a4f5f-ade7-42e8-aa56-8499dcd1f51c"],

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[8]:=",ExpressionUUID->"9890bf68-1194-4895-8363-4bd9d0908028"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric II", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827955720345166*^9, 
  3.827955734352516*^9}},ExpressionUUID->"d9669283-6247-4bb9-9ecf-\
c63bb960bd51"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eqII", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eqII", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2", " ", "du", " ", "dv"}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"F", "[", "u", "]"}], "2"], 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["dx", "2"], "+", " ", 
      SuperscriptBox["dy", "2"]}], ")"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827954375528674*^9, 3.827954404286428*^9}, 
   3.827955727551052*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"7c8b2b77-8f6e-438f-86fd-4584093f56b6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"F", "[", "u", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827955705442107*^9, 3.827955727551301*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"69a70337-e893-4463-b002-204c4975e47e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricII", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricII", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eqII", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metricII", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8279544404244432`*^9, 3.827954479497662*^9}, 
   3.8279557275514727`*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"b7a918a2-a79f-4e2d-8ce9-8f7413ff418d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"F", "[", "u", "]"}], "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"F", "[", "u", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.827955715976034*^9, 3.827955727551598*^9}},
 CellLabel->
  "Out[14]//MatrixForm=",ExpressionUUID->"97311fd3-811f-461e-b27b-\
ec76b8dcd7ff"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric I", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.827955738543572*^9, 
  3.827955752625284*^9}},ExpressionUUID->"a629f344-ce04-4026-a4d4-\
cdcfb6ba81d2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eqI", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eqI", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2", " ", "du", " ", "dv"}], " ", "-", " ", 
   RowBox[{"(", " ", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", " ", 
     SuperscriptBox["dy", "2"]}], ")"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.82795441425517*^9, 3.827954419358289*^9}, 
   3.827955745309511*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"9b9e3ec2-676c-47fe-8b8b-30d1f57b2708"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "-", 
  SuperscriptBox["dx", "2"], "-", 
  SuperscriptBox["dy", "2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.827955716004388*^9, 3.8279557453097057`*^9}},
 CellLabel->"Out[16]=",ExpressionUUID->"cb3979a0-0406-454e-8887-005ea66a2611"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricI", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricI", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eqI", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metricI", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8279544585990047`*^9, 3.827954498742819*^9}, 
   3.827955745309909*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"2bc9aee5-0a20-434b-845c-d216152c0fed"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", "1"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.827955716016745*^9, 3.8279557453100653`*^9}},
 CellLabel->
  "Out[19]//MatrixForm=",ExpressionUUID->"933ee496-34e4-45c7-a96a-\
a923fef5b2bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric III", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8279557554731903`*^9, 
  3.827955770681237*^9}},ExpressionUUID->"e950bfed-ecf4-4564-a8e8-\
88a2cfaa47de"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eqIII", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eqIII", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"2", " ", "du", " ", "dv"}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"G", "[", "v", "]"}], "2"], 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["dx", "2"], "+", " ", 
      SuperscriptBox["dy", "2"]}], ")"}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{{3.8279544289511003`*^9, 3.8279544365423203`*^9}, 
   3.827955763182582*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"35152abe-5a29-4c97-a816-c788ae8a7b7f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "du", " ", "dv"}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"G", "[", "v", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.8279557160452213`*^9, 3.8279557631827173`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"d2f01dae-374e-46c5-9fd6-72a5640a8d77"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricIII", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricIII", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eqIII", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}]}], "  ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"metricIII", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{
  3.827954462975047*^9, {3.8279545040476*^9, 3.827954524399413*^9}, 
   3.8279557631829*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"c8f3802f-9530-4793-94ba-9e9ad287df36"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"1", "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"G", "[", "v", "]"}], "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"G", "[", "v", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.},
 CellChangeTimes->{3.827955716058839*^9, 3.827955763183243*^9},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"9a32e7fd-b6b8-4576-ab0c-\
0de7015bcc58"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Construction of Null Tetrad - Check of Completeness and Orthogonality\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937415766047*^9, 3.820937454357855*^9}, 
   3.820944472322068*^9},ExpressionUUID->"78660a3a-a376-4e24-b758-\
af3dc1cab007"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptL]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptL]", "=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820933371686145*^9, 3.82093337715728*^9}, 
   3.8209374103413973`*^9, 3.820944472322248*^9, {3.8279554001915493`*^9, 
   3.827955444566778*^9}, {3.827955542949628*^9, 
   3.827955546797689*^9}},ExpressionUUID->"166d2554-13f8-4cfc-a9bd-\
f0c3743ce6ac"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"B", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820933237654937*^9, 3.820933379685409*^9, 
  3.820933448095758*^9, 3.820937410341577*^9, 3.820944472322352*^9, 
  3.8243816284850473`*^9, 3.82438185652029*^9, 3.824511849396772*^9, 
  3.82451417433105*^9, 3.827881408346784*^9, 3.8279088684007072`*^9, 
  3.8279127528460903`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"070828ee-8b75-44b3-8797-497cd29085fe"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptN]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptN]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820933298406392*^9, 3.820933313508857*^9}, 
   3.820937410341757*^9, 3.820944472322452*^9, {3.827955420327025*^9, 
   3.82795544951103*^9}, {3.827955549413904*^9, 
   3.827955552549625*^9}},ExpressionUUID->"44beb956-47b0-46e5-a76a-\
f75198e2312b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", "0", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820933313826449*^9, 3.820933381335147*^9, 
  3.820933448122315*^9, 3.820937410341963*^9, 3.820944472322535*^9, 
  3.8243816285060167`*^9, 3.824381856534606*^9, 3.824511849423729*^9, 
  3.8245141743647127`*^9, 3.827881408364291*^9, 3.827908868433913*^9, 
  3.8279127528564997`*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"7b4e019b-968f-41d1-885f-958a28e9be40"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"U", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "-", 
          RowBox[{"V", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"Sinh", "[", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"W", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}]}], ")"}]}], 
     SqrtBox["2"]], ",", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"U", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "+", 
          RowBox[{"V", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"Cosh", "[", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"W", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "+", 
        RowBox[{"Sinh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], ")"}]}], 
     SqrtBox["2"]]}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820933317854281*^9, 3.8209333396620893`*^9}, 
   3.820937410342205*^9, 3.820944472322617*^9},
 CellLabel->"In[93]:=",ExpressionUUID->"7f7bc680-b910-4b2d-88d8-23cacbd33be1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"U", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "-", 
         RowBox[{"V", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Cosh", "[", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"W", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"Sinh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}]}], ")"}]}], 
    SqrtBox["2"]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"U", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "+", 
         RowBox[{"V", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "+", 
       RowBox[{"Sinh", "[", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"W", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], ")"}]}], 
    SqrtBox["2"]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820933339966406*^9, 3.8209333835387917`*^9, 
  3.8209334481343927`*^9, 3.82093741034233*^9, 3.820944472322708*^9, 
  3.8243816285481443`*^9, 3.824381856569952*^9, 3.824511849437441*^9, 
  3.8245141743819103`*^9, 3.827881408383581*^9, 3.8279088684487877`*^9, 
  3.8279127528896923`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"46feed25-bbb6-4515-b5ae-62ac5baddff7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]bar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]bar", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"U", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "-", 
          RowBox[{"V", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cosh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"Sinh", "[", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"W", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}]}], ")"}]}], 
     SqrtBox["2"]], ",", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"U", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "+", 
          RowBox[{"V", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"Cosh", "[", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"W", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "+", 
        RowBox[{"Sinh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], ")"}]}], 
     SqrtBox["2"]]}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820933342941945*^9, 3.8209333673030777`*^9}, 
   3.820937410342538*^9, 3.820944472322826*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"077a3f9b-9fcf-4ace-9047-d9f8f7b8b023"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"U", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "-", 
         RowBox[{"V", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Cosh", "[", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"W", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"Sinh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}]}], ")"}]}], 
    SqrtBox["2"]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"U", "[", 
          RowBox[{"u", ",", "v"}], "]"}], "+", 
         RowBox[{"V", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{"Cosh", "[", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"W", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "+", 
       RowBox[{"Sinh", "[", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"W", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], ")"}]}], 
    SqrtBox["2"]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820933367920988*^9, 3.820933385725149*^9}, 
   3.82093344816428*^9, 3.820937410342681*^9, 3.820944472322927*^9, 
   3.824381628567217*^9, 3.824381856586792*^9, 3.824511849465397*^9, 
   3.824514174420451*^9, 3.8278814084050694`*^9, 3.827908868486685*^9, 
   3.827912752905385*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"8309eeb0-77b8-44a0-9fe3-d222d6dd1087"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "needed", " ", 
    "are", " ", "up", " ", "or", " ", "down"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"l", " ", "=", " ", 
    RowBox[{"ToTensor", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<l\>\""}], "}"}], " ", 
      ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptL]", " ", ",", 
      " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"n", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<n\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptN]", " ", ",", 
      " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}]}], " ", "\[IndentingNewLine]", 
   RowBox[{"m", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<m\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]", " ", ",", 
      " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}]}], " ", "\[IndentingNewLine]", 
   RowBox[{"mbar", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<mbar\>\""}], " ", 
       "}"}], " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]bar", " ", 
      ",", " ", 
      RowBox[{"{", "\[Mu]", "}"}]}], " ", "]"}], " "}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820937410342936*^9, 3.8209444723230133`*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"662968f7-7a07-4053-ba01-7063f305daba"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["l", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.827881408421948*^9, 3.827908868502118*^9, 3.827912752943025*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"814ccc7c-e6e1-43cd-b4d6-7480ab3070b8"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["n", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.827881408421948*^9, 3.827908868502118*^9, 3.827912752947057*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"4ebd188d-da57-4e0e-b052-b177c18dbdc7"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["m", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.827881408421948*^9, 3.827908868502118*^9, 3.827912752949018*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"c942fe0b-e0ff-4139-8fc9-2b8e2fb7ef08"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["mbar", "", "\[Mu]"],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.820932775640643*^9, 3.820933448175404*^9, 
  3.82093741034304*^9, 3.820944472323167*^9, 3.824381628607512*^9, 
  3.824381856622077*^9, 3.824511849476097*^9, 3.824514174436861*^9, 
  3.827881408421948*^9, 3.827908868502118*^9, 3.827912752950939*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"dc608b01-d820-48de-a7b1-5ee5c5c4125f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"l", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], " ", "]"}], "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"m", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "1"}], "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", "\[Mu]", "]"}], 
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ", 
     "1"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", 
     RowBox[{"-", " ", "1"}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", "\[Mu]", "]"}], 
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ", 
     
     RowBox[{"-", " ", "1"}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessDownIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessDownIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", "metric2pt22", "]"}], " ", "\[Equal]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", " ", 
        RowBox[{
        "TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
        "]"}]}], " ", "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "FullSimplify"}], "  ", "//", " ", "TableForm"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessUpIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessUpIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"l", "[", "\[Mu]", "]"}], 
      RowBox[{"n", "[", "\[Nu]", "]"}]}], "+", 
     RowBox[{
      RowBox[{"n", "[", "\[Mu]", "]"}], 
      RowBox[{"l", "[", "\[Nu]", "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Mu]", "]"}], 
      RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Nu]", "]"}], 
      RowBox[{"mbar", "[", "\[Mu]", "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "inverse2pt22", "]"}], " ", "\[Equal]", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", " ", 
       RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
       "]"}]}], " ", "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820937410343767*^9, 3.820944472323543*^9, {3.8237794627048893`*^9, 
   3.823779471575405*^9}, 3.823780788700976*^9},
 CellLabel->
  "In[101]:=",ExpressionUUID->"74bfd26e-47bd-4f75-bc6b-c08d4665d8ee"]
}, Closed]]
},
WindowSize->{1280, 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->"59d34a64-1f1b-459d-8292-b889cab6f8b0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1018, 16, 159, "Title",ExpressionUUID->"bd82a828-e5d6-4bf1-bda2-a3f7586814f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1601, 40, 1256, 21, 94, "Author",ExpressionUUID->"5063f0be-7180-4b8a-ac60-1d1ccfa831f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[2894, 66, 228, 4, 69, "Section",ExpressionUUID->"c84b093d-0c78-4564-9765-821dbae17498",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3125, 72, 433, 9, 63, "Input",ExpressionUUID->"00a26e03-fb24-4228-bba1-61ffb4e03052",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3561, 83, 998, 16, 43, "Output",ExpressionUUID->"46113459-112c-4770-a606-7abdfd33bfe1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4596, 104, 544, 9, 55, "Section",ExpressionUUID->"34024dde-8186-4b54-9ff1-252b9ad859f3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5143, 115, 462, 9, 63, "Input",ExpressionUUID->"ccccd096-09d8-4efd-9d58-a22f3d5ab7bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5608, 126, 378, 7, 43, "Output",ExpressionUUID->"dadf3131-1178-44a9-bcd8-e588c618690a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6023, 138, 228, 4, 55, "Section",ExpressionUUID->"1eba5a7f-9ddb-4956-93d2-55a7d7dd41f8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[6254, 144, 1640, 44, 189, "Input",ExpressionUUID->"e7bfc982-0848-44eb-a803-ab1706cad033",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[7897, 190, 1213, 21, 24, "Print",ExpressionUUID->"dcbc8c5b-b2f2-4b7d-9c3e-dd6f261e87c0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9113, 213, 1228, 22, 24, "Print",ExpressionUUID->"05dec954-de00-4a4e-9c5a-be070dcbbc5a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10344, 237, 1163, 18, 41, "Output",ExpressionUUID->"75026e64-4b36-4e4f-b17f-5a680dbc3111",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11510, 257, 246, 4, 41, "Input",ExpressionUUID->"e035356f-2b1f-4a73-8f3a-71e0f10738c1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[11793, 266, 240, 4, 55, "Section",ExpressionUUID->"41e99e12-4978-43fd-ad26-04fe6183d1f0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[12036, 272, 2548, 57, 420, "Input",ExpressionUUID->"2e75ed35-a5c4-4542-86ee-724a2e86819f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14587, 331, 2372, 71, 321, "Output",ExpressionUUID->"f396c67c-ca17-4912-bd58-96e5200f9e17",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[16996, 407, 362, 6, 55, "Section",ExpressionUUID->"df3477c6-8c25-47bf-a4d6-bf63b13a4c36",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[17361, 415, 1659, 41, 126, "Input",ExpressionUUID->"ef4a4f5f-ade7-42e8-aa56-8499dcd1f51c",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[19023, 458, 1055, 26, 84, "Input",ExpressionUUID->"9890bf68-1194-4895-8363-4bd9d0908028",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20115, 489, 226, 4, 55, "Section",ExpressionUUID->"d9669283-6247-4bb9-9ecf-c63bb960bd51",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20344, 495, 639, 15, 86, "Input",ExpressionUUID->"7c8b2b77-8f6e-438f-86fd-4584093f56b6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20986, 512, 468, 12, 44, "Output",ExpressionUUID->"69a70337-e893-4463-b002-204c4975e47e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21457, 526, 651, 13, 105, "Input",ExpressionUUID->"b7a918a2-a79f-4e2d-8ce9-8f7413ff418d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22111, 541, 943, 28, 107, "Output",ExpressionUUID->"97311fd3-811f-461e-b27b-ec76b8dcd7ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[23091, 574, 225, 4, 55, "Section",ExpressionUUID->"a629f344-ce04-4026-a4d4-cdcfb6ba81d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[23319, 580, 556, 12, 86, "Input",ExpressionUUID->"9b9e3ec2-676c-47fe-8b8b-30d1f57b2708",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[23878, 594, 347, 7, 41, "Output",ExpressionUUID->"cb3979a0-0406-454e-8887-005ea66a2611",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[24228, 603, 645, 13, 105, "Input",ExpressionUUID->"2bc9aee5-0a20-434b-845c-d216152c0fed",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[24876, 618, 819, 24, 101, "Output",ExpressionUUID->"933ee496-34e4-45c7-a96a-a923fef5b2bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[25732, 647, 229, 4, 55, "Section",ExpressionUUID->"e950bfed-ecf4-4564-a8e8-88a2cfaa47de",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[25964, 653, 645, 15, 86, "Input",ExpressionUUID->"35152abe-5a29-4c97-a816-c788ae8a7b7f",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[26612, 670, 470, 12, 44, "Output",ExpressionUUID->"d2f01dae-374e-46c5-9fd6-72a5640a8d77",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[27085, 684, 672, 14, 105, "Input",ExpressionUUID->"c8f3802f-9530-4793-94ba-9e9ad287df36",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}],
Cell[27760, 700, 941, 28, 107, "Output",ExpressionUUID->"9a32e7fd-b6b8-4576-ab0c-0de7015bcc58",
 CellGroupingRules->{"GroupTogetherGrouping", 10006.}]
}, Closed]],
Cell[CellGroupData[{
Cell[28738, 733, 300, 6, 55, "Section",ExpressionUUID->"78660a3a-a376-4e24-b758-af3dc1cab007",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[29041, 741, 547, 10, 84, "Input",ExpressionUUID->"166d2554-13f8-4cfc-a9bd-f0c3743ce6ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[29591, 753, 581, 11, 41, "Output",ExpressionUUID->"070828ee-8b75-44b3-8797-497cd29085fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[30175, 766, 563, 10, 84, "Input",ExpressionUUID->"44beb956-47b0-46e5-a76a-f75198e2312b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[30741, 778, 586, 12, 41, "Output",ExpressionUUID->"7b4e019b-968f-41d1-885f-958a28e9be40",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[31330, 792, 2048, 58, 123, "Input",ExpressionUUID->"7f7bc680-b910-4b2d-88d8-23cacbd33be1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[33381, 852, 2054, 59, 75, "Output",ExpressionUUID->"46feed25-bbb6-4515-b5ae-62ac5baddff7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[35438, 913, 2056, 59, 102, "Input",ExpressionUUID->"077a3f9b-9fcf-4ace-9047-d9f8f7b8b023",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[37497, 974, 2074, 60, 75, "Output",ExpressionUUID->"8309eeb0-77b8-44a0-9fe3-d222d6dd1087",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[39574, 1036, 2034, 50, 126, "Input",ExpressionUUID->"662968f7-7a07-4053-ba01-7063f305daba",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[41611, 1088, 492, 9, 43, "Output",ExpressionUUID->"814ccc7c-e6e1-43cd-b4d6-7480ab3070b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[42106, 1099, 492, 9, 43, "Output",ExpressionUUID->"4ebd188d-da57-4e0e-b052-b177c18dbdc7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[42601, 1110, 492, 9, 43, "Output",ExpressionUUID->"c942fe0b-e0ff-4139-8fc9-2b8e2fb7ef08",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[43096, 1121, 499, 10, 43, "Output",ExpressionUUID->"dc608b01-d820-48de-a7b1-5ee5c5c4125f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[43598, 1133, 6562, 189, 504, "Input",ExpressionUUID->"74bfd26e-47bd-4f75-bc6b-c08d4665d8ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]]
}
]
*)