Analysis of Gravitational Wave Data by Jaranowski and Krolak.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    364171,       9575]
NotebookOptionsPosition[    327846,       9044]
NotebookOutlinePosition[    328312,       9061]
CellTagsIndexPosition[    328269,       9058]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Analysis of Gravitational Wave Data by Jaranowski & Krolak\
\>", "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.825843456962591*^9, 3.825843470538437*^9}, {
   3.82587531772775*^9, 3.825875324670994*^9}, {3.8260076306940603`*^9, 
   3.826007641918522*^9}, 3.826011839512066*^9, {3.8263801688919907`*^9, 
   3.82638019304388*^9}, {3.8263958589521112`*^9, 3.826395869887525*^9}, {
   3.826395931303625*^9, 3.826395939943798*^9}, {3.8263961522321043`*^9, 
   3.8263961649670258`*^9}, 3.8264576044436207`*^9, {3.826532680726181*^9, 
   3.8265326870531597`*^9}, 3.826532734543453*^9, {3.826533116450289*^9, 
   3.826533124873698*^9}, {3.826533177034293*^9, 3.826533177449621*^9}, {
   3.826533345354254*^9, 3.826533345712063*^9}, {3.826533447380822*^9, 
   3.82653350371865*^9}, {3.826533627028933*^9, 3.82653363935043*^9}, {
   3.826533707484222*^9, 3.82653371594044*^9}, {3.826533828077026*^9, 
   3.8265338284558773`*^9}, {3.826534072681231*^9, 3.826534075296845*^9}, {
   3.826534277005148*^9, 3.826534295116191*^9}, {3.8265344097890177`*^9, 
   3.82653441661204*^9}, {3.826534538309024*^9, 3.826534543164234*^9}, {
   3.826534621037068*^9, 3.826534629179826*^9}, {3.826534709420918*^9, 
   3.826534712612302*^9}, {3.8273315873641787`*^9, 3.82733160993854*^9}, {
   3.8388888895504704`*^9, 3.838888899800873*^9}, {3.838894723612216*^9, 
   3.8388947330365343`*^9}, {3.838899675596537*^9, 3.838899678980839*^9}, {
   3.8389955109968653`*^9, 3.838995531410061*^9}, {3.839182680073485*^9, 
   3.8391827135224533`*^9}, {3.8393256245836277`*^9, 3.839325636127164*^9}},
 TextAlignment->Center,ExpressionUUID->"bf2093aa-0c8a-441d-80c9-a9038bcabcc5"],

Cell["\<\
Geoff Cope
University of Utah
August 28th, 2021 \
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.825859229609981*^9, 3.825859230168909*^9}, {
   3.826007696989152*^9, 3.8260076984430513`*^9}, {3.8263801504852552`*^9, 
   3.826380154467449*^9}, {3.8265330435150127`*^9, 3.826533045288892*^9}, {
   3.8273315103889437`*^9, 3.82733151088379*^9}, {3.838888904614192*^9, 
   3.8388889155104313`*^9}, {3.8389966031830053`*^9, 3.838996603566495*^9}, {
   3.839182720922699*^9, 3.839182721306826*^9}},
 TextAlignment->Center,ExpressionUUID->"d90b3a65-fc1b-46ac-95bb-caff546061e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"4018e0fa-934d-4e80-aa06-\
e9c4a30e0e1b"],

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[110]:=",ExpressionUUID->"f776081a-9155-4882-b10a-e9629774f434"],

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.825843522027536*^9, 
   3.825875355898499*^9, 3.8260077681021748`*^9, 3.826380423345456*^9, 
   3.8263927978526917`*^9, 3.826553813481596*^9, 3.827332028734309*^9, 
   3.838894835833177*^9, 3.838899774331003*^9, 3.8389955975801353`*^9, 
   3.839432580739284*^9, 3.839507152169723*^9, 3.8395904758491383`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"8ea8bb32-186a-4632-b5af-395f66a653bf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Book ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 3.8265327310118723`*^9, {
   3.826533163674143*^9, 3.826533167241699*^9}, 3.82653355805296*^9, {
   3.839434718850711*^9, 3.839434724194426*^9}, 
   3.843082362446764*^9},ExpressionUUID->"0af3484f-1ffe-44b0-b08e-\
a37f1829f5ff"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Analysis of Gravitational Wave Data by Jaranowski & Krolak\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://www.cambridge.org/core/books/analysis-of-gravitationalwave-\
data/B1E1515267485C54B654CF1F45BEF07B\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843082300340723*^9, 3.8430823310442266`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"d44c5ea1-c3f6-4e97-9c00-08ba7ba1ec31"],

Cell[BoxData[
 TemplateBox[{
  "\"Analysis of Gravitational Wave Data by Jaranowski & Krolak\"", 
   "https://www.cambridge.org/core/books/analysis-of-gravitationalwave-data/\
B1E1515267485C54B654CF1F45BEF07B"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8430823229024963`*^9, 3.843082331045395*^9}},
 CellLabel->"Out[71]=",ExpressionUUID->"82057568-99b1-41bf-842d-193a74107fda"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825287778263229*^9},ExpressionUUID->"ebe3be3e-1cb6-4d5c-addd-\
4e11ac2c2adb"],

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.8252877782634068`*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"b8ef1450-7e76-419a-9732-5513bb364347"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.83943258102431*^9, 3.839434747558474*^9, 
  3.83950715261631*^9, 3.8395904761595287`*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"53ae92ab-bb92-42f9-b9ea-7fac536cf1ab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"2970 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "2970 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.83943258102431*^9, 3.839434747558474*^9, 
  3.83950715261631*^9, 3.839590476165072*^9},
 CellLabel->
  "During evaluation of \
In[113]:=",ExpressionUUID->"324f6291-8739-4bdd-9f58-c57eb0b3bee7"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.825287778263854*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"5f117bb9-8ce7-4786-b153-9d29a8dc9ba7"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825287778263926*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"26f406c9-2de2-4098-925a-8f76f01b7fcb"]
}, 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->"928a374f-c351-4f5d-b5a8-\
2faf74eef30f"],

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[4]:=",ExpressionUUID->"a18bc018-459d-4cf5-9e5e-03c5c3955ce4"],

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[6]:=",ExpressionUUID->"81a63e82-cce3-4e53-8378-f8cd91aa4ea6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Chapter 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839335792146779*^9, 
  3.839335816766494*^9}},ExpressionUUID->"4a9bda0f-6315-42db-9744-\
92e1b46d943a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "1.69"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "ePlus", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ePlus", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "0"},
        {"0", "1", "0", "0"},
        {"0", "0", 
         RowBox[{"-", "1"}], "0"},
        {"0", "0", "0", "0"}
       }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"ePlus", "  ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839337963410181*^9, 3.839338084343342*^9}, 
   3.839339473010476*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"0e62baef-caa5-474e-a894-525fb67c1018"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "1"}], "0"},
     {"0", "0", "0", "0"}
    },
    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.839338084826633*^9, 3.839338423379403*^9, 
  3.839339473015814*^9, 3.8394325811898403`*^9, 3.839507152732709*^9, 
  3.839590476296567*^9},
 CellLabel->
  "Out[10]//MatrixForm=",ExpressionUUID->"8c050ba3-9a6f-4c0b-be70-\
c49ebd12db53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "1.69"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eCross", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eCross", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "0", "0"},
        {"0", "0", "1", "0"},
        {"0", "1", "0", "0"},
        {"0", "0", "0", "0"}
       }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"eCross", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839338035070771*^9, 3.8393380742311087`*^9}, {
   3.839338410488346*^9, 3.839338420857266*^9}, 3.83933947301646*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"803e278a-0956-48b2-8c7e-5dfc5c3be833"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "0", "0"}
    },
    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.839338186886271*^9, 3.839338421579506*^9, 
  3.839339473022294*^9, 3.839432581228994*^9, 3.83950715276801*^9, 
  3.839590476331575*^9},
 CellLabel->
  "Out[13]//MatrixForm=",ExpressionUUID->"05759ae3-1355-4c4e-a883-\
6d7715266ca5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt83a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt83a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"x0", " ", "+", " ", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"hPlus", "[", "t", "]"}], " ", "x0"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"hCross", "[", "t", "]"}], " ", "y0"}]}], " ", ")"}], 
    " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839331652183259*^9, 3.839331724775544*^9}, 
   3.8393358082739487`*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"bed20dc6-f645-4ba5-9669-7d8dffc800e0"],

Cell[BoxData[
 RowBox[{"x0", "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"y0", " ", 
      RowBox[{"hCross", "[", "t", "]"}]}], "+", 
     RowBox[{"x0", " ", 
      RowBox[{"hPlus", "[", "t", "]"}]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8393317295229597`*^9, 3.8393358082786617`*^9, 
  3.8394325812452707`*^9, 3.839507152784429*^9, 3.839590476351985*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"1faa6c85-a692-4640-b582-052e90709c99"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt83b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt83b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"y0", " ", "+", " ", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"hCross", "[", "t", "]"}], " ", "x0"}], " ", "-", " ", 
      RowBox[{
       RowBox[{"hPlus", "[", "t", "]"}], " ", "y0"}]}], " ", ")"}], 
    " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839331737807722*^9, 3.839331756463399*^9}, {
   3.839332030995866*^9, 3.839332031625689*^9}, 3.8393358082792253`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"e2371f19-e949-4d9d-850b-5e12a147a4f9"],

Cell[BoxData[
 RowBox[{"y0", "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x0", " ", 
      RowBox[{"hCross", "[", "t", "]"}]}], "-", 
     RowBox[{"y0", " ", 
      RowBox[{"hPlus", "[", "t", "]"}]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839331761768615*^9, 3.8393320330491056`*^9, 
  3.839335808283942*^9, 3.839432581283239*^9, 3.839507152820795*^9, 
  3.839590476388188*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"85ece645-ac88-43ff-ad70-fb295a849efb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt83c", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt83c", " ", "=", " ", "\[IndentingNewLine]", "z0", 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393317714950457`*^9, 3.839331776366982*^9}, 
   3.8393358082844553`*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"f137aca9-e388-4bad-905a-6535ef609f72"],

Cell[BoxData["z0"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839331777882303*^9, 3.839335808289259*^9, 
  3.839432581298935*^9, 3.8395071528367023`*^9, 3.839590476404838*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"0c2aee1d-e247-4051-8b6b-5674f29aa582"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt84", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt84", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"x0", " ", "==", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"y0", " ", "==", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"z0", " ", "==", " ", "0"}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt84", "  ", "/.", " ", 
   RowBox[{"Equal", "->", " ", "Rule"}]}], " ", "//", " ", 
  "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393315791615467`*^9, 3.839331627900263*^9}, {
   3.839331788567009*^9, 3.839331794821011*^9}, 3.839335808289817*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"65bd6c42-4f2d-4c98-8e4d-8ffd19ca18a6"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"x0", "\[Rule]", 
       RowBox[{"r0", " ", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}]},
     {
      RowBox[{"y0", "\[Rule]", 
       RowBox[{"r0", " ", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}]},
     {
      RowBox[{"z0", "\[Rule]", "0"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839331628358983*^9, 3.8393317951773777`*^9, 
  3.83933580829381*^9, 3.839432581336828*^9, 3.839507152874926*^9, 
  3.839590476440174*^9},
 CellLabel->
  "Out[22]//TableForm=",ExpressionUUID->"d29a73ea-ea85-4275-a334-\
b2dcabe6c112"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt85", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt85", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{"Collect", "[", " ", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"eq1pt83a", "  ", "/.", " ", 
           RowBox[{
            RowBox[{"hCross", "[", "t", "]"}], "->", " ", "0"}]}], "  ", "/.",
           " ", 
          RowBox[{"(", 
           RowBox[{"eq1pt84", "  ", "/.", " ", 
            RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], " ", ")"}], 
        "  ", ",", " ", 
        RowBox[{"r0", " ", 
         RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "]"}]}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{"Collect", "[", " ", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"eq1pt83b", "  ", "/.", " ", 
           RowBox[{
            RowBox[{"hCross", "[", "t", "]"}], "->", " ", "0"}]}], "  ", "/.",
           " ", 
          RowBox[{"(", 
           RowBox[{"eq1pt84", "  ", "/.", " ", 
            RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], " ", ")"}], 
        "  ", ",", " ", 
        RowBox[{"r0", " ", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "]"}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt85", "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839331873891335*^9, 3.839331988954791*^9}, {
   3.839332043436348*^9, 3.839332044930294*^9}, {3.83933211546305*^9, 
   3.839332138701161*^9}, {3.839332185735097*^9, 3.839332190877987*^9}, 
   3.839335808294338*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"332ae654-c302-4b4d-85c4-8f9795143a3e"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"r0", " ", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"hPlus", "[", "t", "]"}], "2"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"y", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"r0", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"hPlus", "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}]}
    },
    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.83933187055842*^9, 3.839331989779463*^9}, 
   3.839332045428961*^9, 3.839332139157928*^9, 3.839332191654334*^9, 
   3.8393358083021173`*^9, 3.839432581356051*^9, 3.839507152892775*^9, 
   3.839590476462268*^9},
 CellLabel->
  "Out[25]//TableForm=",ExpressionUUID->"2cff46b7-7c6e-4f82-9352-\
a47fbf4c81e7"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt87", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt87", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"aPlus", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{"r0", "  ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"hPlus", "[", "t", "]"}], "2"]}], ")"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"bPlus", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"hPlus", "[", "t", "]"}], "2"]}], ")"}]}]}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt87", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393323805436773`*^9, 3.839332394620933*^9}, {
   3.8393324421962843`*^9, 3.839332481293804*^9}, {3.839332539701787*^9, 
   3.8393325422365847`*^9}, 3.839335808302672*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"491e0d80-4b16-4349-a946-e0a83fec200b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"aPlus", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"r0", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"hPlus", "[", "t", "]"}], "2"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{"bPlus", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"r0", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"hPlus", "[", "t", "]"}], "2"]}], ")"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839332481651842*^9, 3.8393325468347588`*^9, 
  3.839335808306406*^9, 3.839432581391942*^9, 3.839507152932045*^9, 
  3.839590476498633*^9},
 CellLabel->
  "Out[28]//TableForm=",ExpressionUUID->"0f8b50b7-8394-46f3-890d-\
b74c7cd5abc5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{"eq1pt85", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", "}"}]}], " ", "]"}], "]"}],
   " ", "//", " ", "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332160310553*^9, 3.8393322081170683`*^9}, 
   3.839335808306796*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"a91aa7d4-250b-4562-a5cc-c4cb52da8219"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Sin", "[", "\[Phi]", "]"}], "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"y", "[", "t", "]"}]}], 
         RowBox[{"r0", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            RowBox[{"hPlus", "[", "t", "]"}]}], ")"}]}]]}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Phi]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{"x", "[", "t", "]"}]}], 
        RowBox[{"r0", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"hPlus", "[", "t", "]"}]}], ")"}]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393321558408117`*^9, 3.839332208612194*^9}, 
   3.839335808310507*^9, 3.839432581441312*^9, 3.839507153060527*^9, 
   3.8395904765179663`*^9},
 CellLabel->
  "Out[29]//TableForm=",ExpressionUUID->"861b9d9b-34a5-4d5b-b97e-\
d95d1e8c0268"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt86a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt86a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], "+", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"]}], "==", "1"}], "  ", "/.", 
   " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq1pt85", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", "}"}]}], " ", "]"}], 
    "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393323154715223`*^9, 3.8393323419245777`*^9}, {
   3.8393326264064198`*^9, 3.839332640879014*^9}, 3.839335808310926*^9},
 CellLabel->"In[30]:=",ExpressionUUID->"38a18f77-59c5-4e32-bf5b-a10858e6419d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"x", "[", "t", "]"}], "2"]}], 
    RowBox[{
     SuperscriptBox["r0", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"hPlus", "[", "t", "]"}]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"y", "[", "t", "]"}], "2"]}], 
    RowBox[{
     SuperscriptBox["r0", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"hPlus", "[", "t", "]"}]}], ")"}], "2"]}]]}], "\[Equal]", 
  "1"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332329131969*^9, 3.839332342551553*^9}, 
   3.839332641991455*^9, 3.8393358083146477`*^9, 3.8394325814591637`*^9, 
   3.839507153076597*^9, 3.839590476559266*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"c9075ec7-88e0-4967-8c07-0a177eff5c9d"],

Cell[BoxData[{
 RowBox[{"eq1pt86a", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{"eq1pt87", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq1pt86a", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"eq1pt87", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
        RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//", 
  " ", "Simplify", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332649422686*^9, 3.839332738898882*^9}, 
   3.839335808315099*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"21868d08-c1b9-4699-aa23-2975df5d6e40"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"x", "[", "t", "]"}], "2"]}], 
  RowBox[{
   SuperscriptBox["r0", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"hPlus", "[", "t", "]"}]}], ")"}], "2"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332652866474*^9, 3.8393327392021723`*^9}, 
   3.839335808315436*^9, 3.839432581500018*^9, 3.839507153120866*^9, 
   3.839590476580112*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"aec7f5bf-b316-4de7-adad-d93321d8b5ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Rule]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"r0", "-", 
       RowBox[{"aPlus", "[", "t", "]"}]}], ")"}]}], "r0"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332652866474*^9, 3.8393327392021723`*^9}, 
   3.839335808315436*^9, 3.839432581500018*^9, 3.839507153120866*^9, 
   3.839590476587761*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"02fec1f2-71e1-4307-a2ed-9f8e8d95b691"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"x", "[", "t", "]"}], "2"], 
  SuperscriptBox[
   RowBox[{"aPlus", "[", "t", "]"}], "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332652866474*^9, 3.8393327392021723`*^9}, 
   3.839335808315436*^9, 3.839432581500018*^9, 3.839507153120866*^9, 
   3.8395904765935297`*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"82ef345d-220b-475b-9a93-bf6018d02d66"],

Cell[BoxData[{
 RowBox[{"eq1pt86a", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{"eq1pt87", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
     RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq1pt86a", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"eq1pt87", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
        RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//", 
  " ", "Simplify", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332759820751*^9, 3.83933279319496*^9}, 
   3.839335808320455*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"7e7596da-18f6-490e-aee0-3ed537458cd0"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"y", "[", "t", "]"}], "2"]}], 
  RowBox[{
   SuperscriptBox["r0", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"hPlus", "[", "t", "]"}]}], ")"}], "2"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332760299012*^9, 3.83933279367439*^9}, 
   3.839335808320916*^9, 3.83943258152573*^9, 3.8395071531479063`*^9, 
   3.8395904766298923`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"bb389bf6-3df7-4c28-bddb-b762bb7f0f1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Rule]", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"r0", "-", 
      RowBox[{"bPlus", "[", "t", "]"}]}], ")"}]}], "r0"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332760299012*^9, 3.83933279367439*^9}, 
   3.839335808320916*^9, 3.83943258152573*^9, 3.8395071531479063`*^9, 
   3.8395904766374083`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"899a702a-4a99-4e32-89af-03cce73230c3"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"y", "[", "t", "]"}], "2"], 
  SuperscriptBox[
   RowBox[{"bPlus", "[", "t", "]"}], "2"]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332760299012*^9, 3.83933279367439*^9}, 
   3.839335808320916*^9, 3.83943258152573*^9, 3.8395071531479063`*^9, 
   3.839590476644121*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"384f96bf-a0f0-4433-89f1-31c2da83f733"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt86", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt86", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"eq1pt86a", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "/.", " ", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq1pt87", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}], " ", ")"}], " ", "+", " ", "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"eq1pt86a", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "/.", " ", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Solve", "[", " ", 
           RowBox[{
            RowBox[{"eq1pt87", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
            RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
       " ", "Simplify"}], " ", ")"}]}], " ", "==", " ", "1", 
   " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393328143550777`*^9, 3.839332855595521*^9}, 
   3.8393358083258467`*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"c4d6e0e2-1ab0-4a5b-a8b2-eaa12062dd61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"x", "[", "t", "]"}], "2"], 
    SuperscriptBox[
     RowBox[{"aPlus", "[", "t", "]"}], "2"]], "+", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"y", "[", "t", "]"}], "2"], 
    SuperscriptBox[
     RowBox[{"bPlus", "[", "t", "]"}], "2"]]}], "\[Equal]", "1"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839332856041131*^9, 3.839335808329973*^9, 
  3.839432581571834*^9, 3.839507153196913*^9, 3.839590476679269*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"829e5fde-a056-4762-9b0a-e03f25061f16"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"DivideSides", "[", " ", 
     RowBox[{
      RowBox[{"Expand", "[", 
       RowBox[{"Eliminate", "[", " ", 
        RowBox[{"eq1pt85", " ", ",", " ", 
         RowBox[{"hPlus", "[", "t", "]"}]}], " ", "]"}], "]"}], "  ", ",", 
      RowBox[{"r0", " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "]"}], "//", " ", "Expand"}], 
   " ", "//", " ", "Apart"}], " ", "//", " ", "Expand", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332901318969*^9, 3.839332928733925*^9}, {
   3.839333037922607*^9, 3.8393331354469976`*^9}, {3.839333238165988*^9, 
   3.839333245979097*^9}, 3.839335808330494*^9},
 CellLabel->"In[40]:=",ExpressionUUID->"214a1f29-0791-46dd-aa3d-f48744f359ac"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{
         RowBox[{
          RowBox[{"2", " ", "r0", " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "-", 
          RowBox[{
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
         RowBox[{
          RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"x", "[", "t", "]"}]}]}], 
        RowBox[{
         RowBox[{"r0", " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "\[Equal]", "0"}]},
       {
        RowBox[{
         RowBox[{"2", "-", 
          FractionBox[
           RowBox[{
            RowBox[{"Csc", "[", "\[Phi]", "]"}], " ", 
            RowBox[{"y", "[", "t", "]"}]}], "r0"]}], "\[Equal]", 
         FractionBox[
          RowBox[{
           RowBox[{"Sec", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"x", "[", "t", "]"}]}], "r0"]}], 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839332903756555*^9, 3.8393329290145206`*^9}, {
   3.8393330398871737`*^9, 3.839333122562098*^9}, 3.839333247545291*^9, 
   3.839335808334395*^9, 3.8394325816124372`*^9, 3.839507153305222*^9, 
   3.839590476720936*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"d1111e10-ef44-475f-a951-89f1ab6ecb3f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt89", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt89", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"eq1pt83a", ",", "eq1pt83b"}], "}"}], " ", "/.", " ", 
     RowBox[{
      RowBox[{"hPlus", "[", "t", "]"}], "->", " ", "0"}]}], "  ", "/.", " ", 
    RowBox[{"(", 
     RowBox[{"eq1pt84", " ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt89", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393332806875257`*^9, 3.839333349159885*^9}, {
   3.839333388899926*^9, 3.839333423315475*^9}, 3.839335808334813*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"3a93a47b-dce7-4f52-b075-e74a7558daa3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"r0", " ", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "r0", " ", 
        RowBox[{"hCross", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "r0", " ", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
        RowBox[{"hCross", "[", "t", "]"}]}], "+", 
       RowBox[{"r0", " ", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}]}
    },
    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.8393333000451727`*^9, 3.83933334960353*^9}, 
   3.8393333936982193`*^9, 3.839333423715787*^9, 3.839335808338786*^9, 
   3.839432581631905*^9, 3.839507153327508*^9, 3.839590476745718*^9},
 CellLabel->
  "Out[43]//TableForm=",ExpressionUUID->"f2ca3c0a-aca6-4527-96df-\
a45193753e77"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt91", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt91", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Thread", "[", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[ScriptX]", "[", "t", "]"}], ",", 
        RowBox[{"\[ScriptY]", "[", "t", "]"}]}], " ", "}"}], " ", "==", " ", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"(", "\[NoBreak]", GridBox[{
            {
             RowBox[{"Cos", "[", "\[Alpha]", "]"}], 
             RowBox[{"Sin", "[", "\[Alpha]", "]"}]},
            {
             RowBox[{"-", 
              RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], 
             RowBox[{"Cos", "[", "\[Alpha]", "]"}]}
           }], "\[NoBreak]", ")"}], " ", "/.", " ", 
         RowBox[{"\[Alpha]", "->", " ", 
          FractionBox["\[Pi]", "4"]}]}], ")"}], "   ", ".", " ", 
       "eq1pt89"}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "Simplify"}], "   ", "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839333522548748*^9, 3.839333627990459*^9}, {
   3.839333686080119*^9, 3.839333696904058*^9}, {3.839333957547814*^9, 
   3.839333988995489*^9}, 3.839334019769071*^9, 3.839335808339299*^9},
 CellLabel->"In[44]:=",ExpressionUUID->"fdfa85fc-a64e-431c-8545-47cb8b37ba89"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptX]", "[", "t", "]"}], "\[Equal]", 
    FractionBox[
     RowBox[{"r0", " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Phi]", "]"}], "+", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}], 
     RowBox[{"2", " ", 
      SqrtBox["2"]}]]}], ",", 
   RowBox[{
    RowBox[{"\[ScriptY]", "[", "t", "]"}], "\[Equal]", 
    FractionBox[
     RowBox[{"r0", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Phi]", "]"}], "-", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}], 
     RowBox[{"2", " ", 
      SqrtBox["2"]}]]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.83933357324187*^9, {3.839333608513583*^9, 3.839333628394219*^9}, 
   3.839333697572549*^9, 3.839333984844046*^9, 3.8393358083429537`*^9, 
   3.839432581766225*^9, 3.8395071534687643`*^9, 3.839590476874709*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"5c422959-42d4-44a9-bf96-f2ce9076b7ea"],

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Solve", "[", " ", 
   RowBox[{"eq1pt91", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", ",", " ", 
      RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", "}"}]}], " ", "]"}], " ", 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839333845088766*^9, 3.8393338505332327`*^9}, {
   3.8393339152100677`*^9, 3.8393339504612827`*^9}, {3.839333997868865*^9, 
   3.839334052201531*^9}, 3.8393358083433228`*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"c5a7c055-dd7a-40ba-9205-49dc619e1ab9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "\[Phi]", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      SqrtBox["2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[ScriptX]", "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"hCross", "[", "t", "]"}], " ", 
         RowBox[{"\[ScriptX]", "[", "t", "]"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptY]", "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"hCross", "[", "t", "]"}], " ", 
         RowBox[{"\[ScriptY]", "[", "t", "]"}]}]}], ")"}]}], 
     RowBox[{"r0", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", 
        SuperscriptBox[
         RowBox[{"hCross", "[", "t", "]"}], "2"]}], ")"}]}]]}], ",", 
   RowBox[{
    RowBox[{"Cos", "[", "\[Phi]", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      SqrtBox["2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[ScriptX]", "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"hCross", "[", "t", "]"}], " ", 
         RowBox[{"\[ScriptX]", "[", "t", "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"\[ScriptY]", "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"hCross", "[", "t", "]"}], " ", 
         RowBox[{"\[ScriptY]", "[", "t", "]"}]}]}], ")"}]}], 
     RowBox[{"r0", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}]}]]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839334007565691*^9, 3.839334053549502*^9}, 
   3.839335808347628*^9, 3.839432581882182*^9, 3.839507153514974*^9, 
   3.839590477025326*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"2bd5ba8a-6f1f-4f9e-a206-85df7abac337"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt92a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt92a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"], "+", " ", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"]}], " ", "/.", " ", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Solve", "[", " ", 
          RowBox[{"eq1pt91", " ", ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", ",", " ", 
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", "}"}]}], " ", "]"}], 
         " ", "]"}]}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
      "Simplify"}], "  ", "//", " ", "Apart"}], "  ", ")"}], " ", "==", " ", 
   "1", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839334072317563*^9, 3.8393340812596083`*^9}, {
   3.839334176098687*^9, 3.8393342333159113`*^9}, {3.8393343345886593`*^9, 
   3.839334355276167*^9}, 3.83933580834824*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"0ae8106c-8676-4fa8-b264-fe14d5628b30"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptX]", "[", "t", "]"}], "2"]}], 
    RowBox[{
     SuperscriptBox["r0", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"\[ScriptY]", "[", "t", "]"}], "2"]}], 
    RowBox[{
     SuperscriptBox["r0", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}], "2"]}]]}], "\[Equal]", 
  "1"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8393340838884773`*^9, {3.839334177510256*^9, 3.8393341930231867`*^9}, 
   3.839334234112955*^9, {3.8393343363154697`*^9, 3.839334355635357*^9}, 
   3.839335808352271*^9, 3.839432581950143*^9, 3.839507153579721*^9, 
   3.839590477095682*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"ab42a6bb-3bb6-4eb7-99fc-06fa34c2f957"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt93", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt93", " ", "=", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"aCross", "[", "t", "]"}], " ", ",", " ", 
       RowBox[{"bCross", "[", "t", "]"}]}], " ", "}"}], " ", "==", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"PowerExpand", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"Coefficient", "[", " ", 
          RowBox[{
           RowBox[{"eq1pt92a", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", ",", 
           SuperscriptBox[
            RowBox[{"\[ScriptX]", "[", "t", "]"}], "2"]}], "]"}], "]"}], 
        "]"}], " ", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "*", 
        RowBox[{"PowerExpand", "[", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"Coefficient", "[", " ", 
           RowBox[{
            RowBox[{"eq1pt92a", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", 
            SuperscriptBox[
             RowBox[{"\[ScriptY]", "[", "t", "]"}], "2"]}], "]"}], "]"}], 
         "]"}]}]}], " ", "}"}]}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", 

 RowBox[{"eq1pt93", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839334365365396*^9, 3.839334425020701*^9}, {
   3.839334500737302*^9, 3.839334582751449*^9}, 3.839335808352952*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"31a0ff67-ae54-4d17-8f48-4981590d7574"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"aCross", "[", "t", "]"}], "\[Equal]", 
    FractionBox["2", 
     RowBox[{"r0", " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"hCross", "[", "t", "]"}]}], ")"}]}]]}], ",", 
   RowBox[{
    RowBox[{"bCross", "[", "t", "]"}], "\[Equal]", 
    RowBox[{"-", 
     FractionBox["2", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"hCross", "[", "t", "]"}]}], ")"}]}]]}]}]}], "}"}]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839334362891224*^9, 3.839334425736508*^9}, {
   3.839334502745267*^9, 3.839334514358149*^9}, 3.839334548239422*^9, 
   3.839334583366226*^9, 3.8393358083570213`*^9, 3.8394325819665747`*^9, 
   3.8395071535961237`*^9, 3.839590477118001*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"c0efaaab-1965-480d-bfa5-180e304d02ad"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[Delta]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "[", 
   RowBox[{"i_", ",", "j_"}], "]"}], ":=", " ", 
  RowBox[{"KroneckerDelta", "[", 
   RowBox[{"i", ",", "j"}], "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839336341858481*^9, 3.839336358052607*^9}, 
   3.8393376505476303`*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"d8266398-d8e3-4d58-b860-2e7a8d006479"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[CurlyEpsilon]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CurlyEpsilon]", " ", "=", " ", 
   RowBox[{"LeviCivitaTensor", "[", "3", "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[CurlyEpsilon]", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839173371898246*^9, 3.8391734064959297`*^9}, 
   3.839182876927371*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"e2a18f34-10a4-483c-9d87-a29db1eda9e9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"1"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {
           RowBox[{"-", "1"}]},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {
           RowBox[{"-", "1"}]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"1"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"1"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {
           RowBox[{"-", "1"}]},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}], 
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"0"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}]}
    },
    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[
   SparseArray[
    Automatic, {3, 3, 3}, 0, {
     1, {{0, 2, 4, 6}, {{2, 3}, {3, 2}, {1, 3}, {3, 1}, {1, 2}, {2, 1}}}, {
      1, -1, -1, 1, 1, -1}}]]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839339178088929*^9, 3.839339490197261*^9, 
  3.83943258202308*^9, 3.839507153647654*^9, 3.839590477173904*^9},
 CellLabel->
  "Out[56]//MatrixForm=",ExpressionUUID->"49bed35a-6644-4627-9b0f-\
76daf9effdd2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "1", "pt105", " ", "Page", " ", "21"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "P", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "[", "n_", "]"}], ":=", " ", 
    RowBox[{"Table", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Delta]", "[", 
        RowBox[{"i", ",", "j"}], "]"}], " ", "-", " ", 
       RowBox[{
        RowBox[{"n", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", 
        RowBox[{"n", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}]}], "  ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], " ", "]"}], 
    " "}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839336014986105*^9, 3.8393360233552017`*^9}, {
   3.839336325252082*^9, 3.8393363804607973`*^9}, {3.839336548422482*^9, 
   3.839336558145851*^9}, 3.839337650547945*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"ebdf530b-9c9a-47cf-9742-68ae060af965"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "n", "]"}], "\[IndentingNewLine]", 
 RowBox[{"n", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839336386870113*^9, 3.8393363955804453`*^9}, 
   3.839337650548195*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"e7cfea48-e12f-4d25-bd79-acf70fa19757"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", "1"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.83933639610037*^9, 3.839337650548497*^9, 
  3.8394325820828533`*^9, 3.839507153696509*^9, 3.839590477223876*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"487f2f02-8781-4f8f-ac94-0acef914d8ad"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "[", "n", "]"}], " ", "//", " ", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "took", " ", "unit", " ", "vecor", " ", "j", " ", "and", " ", "projected", 
    " ", "down", " ", "to", " ", "the", " ", "x", " ", "y", " ", "plane", " ",
     "perpendicular", " ", "to", " ", "z"}], " ", "*)"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393365607916727`*^9, 3.839336592018107*^9}, 
   3.8393376505487537`*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"afdfa751-24e2-42ae-b4e7-e47505c920e8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", "1", "0"},
     {"0", "0", "0"}
    },
    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.839336564067325*^9, 3.8393365926543703`*^9}, 
   3.83933765054904*^9, 3.839432582119121*^9, 3.839507153735928*^9, 
   3.839590477242629*^9},
 CellLabel->
  "Out[61]//MatrixForm=",ExpressionUUID->"740e93b4-b146-4e94-b58f-\
43f7668a8f9b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "J", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"J", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"Jxx", "[", "t", "]"}], 
       RowBox[{"Jxy", "[", "t", "]"}], 
       RowBox[{"Jxz", "[", "t", "]"}]},
      {
       RowBox[{"Jyx", "[", "t", "]"}], 
       RowBox[{"Jyy", "[", "t", "]"}], 
       RowBox[{"Jyz", "[", "t", "]"}]},
      {
       RowBox[{"Jzx", "[", "t", "]"}], 
       RowBox[{"Jzy", "[", "t", "]"}], 
       RowBox[{"Jzz", "[", "t", "]"}]}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"J", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839336432041654*^9, 3.839336493124036*^9}, {
   3.83933698460485*^9, 3.8393370024179363`*^9}, 3.839337650549296*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"bac85420-c596-49bc-a03f-6000d08170b4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Jxx", "[", "t", "]"}], 
      RowBox[{"Jxy", "[", "t", "]"}], 
      RowBox[{"Jxz", "[", "t", "]"}]},
     {
      RowBox[{"Jyx", "[", "t", "]"}], 
      RowBox[{"Jyy", "[", "t", "]"}], 
      RowBox[{"Jyz", "[", "t", "]"}]},
     {
      RowBox[{"Jzx", "[", "t", "]"}], 
      RowBox[{"Jzy", "[", "t", "]"}], 
      RowBox[{"Jzz", "[", "t", "]"}]}
    },
    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.839336493433516*^9, 3.839337004889085*^9, 
  3.839337650549618*^9, 3.839432582138331*^9, 3.839507153755773*^9, 
  3.8395904772819653`*^9},
 CellLabel->
  "Out[64]//MatrixForm=",ExpressionUUID->"9bb08ba0-dd6c-418d-a7f8-\
4c79a14afa15"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "JTT", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Transverse", " ", "Tracless"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"JTT", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{"Sum", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"P", "[", "n", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "k"}], "]"}], "]"}], " ", 
         RowBox[{
          RowBox[{"P", "[", "n", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], " ", 
         RowBox[{"J", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "l"}], "]"}], "]"}]}], " ", "-", " ", 
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", "2"], ")"}], " ", 
         RowBox[{
          RowBox[{"P", "[", "n", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
         RowBox[{
          RowBox[{"P", "[", "n", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "l"}], "]"}], "]"}], " ", 
         RowBox[{"J", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "l"}], "]"}], "]"}]}]}], "  ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "3"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], " ", "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], " ", "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"JTT", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393366009913273`*^9, 3.839336788860079*^9}, {
   3.839337275610435*^9, 3.839337308756796*^9}, 3.839337650549864*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"68b74659-7d09-4251-90ab-df0f9b39a828"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox[
        RowBox[{"Jxx", "[", "t", "]"}], "2"], "-", 
       FractionBox[
        RowBox[{"Jyy", "[", "t", "]"}], "2"]}], 
      RowBox[{"Jxy", "[", "t", "]"}], "0"},
     {
      RowBox[{"Jyx", "[", "t", "]"}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"Jxx", "[", "t", "]"}], "2"]}], "+", 
       FractionBox[
        RowBox[{"Jyy", "[", "t", "]"}], "2"]}], "0"},
     {"0", "0", "0"}
    },
    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.839336744014551*^9, 3.839336789162746*^9}, 
   3.839337007053277*^9, {3.839337300034854*^9, 3.839337309095501*^9}, 
   3.839337650550158*^9, 3.8394325821798067`*^9, 3.839507153800893*^9, 
   3.839590477328332*^9},
 CellLabel->
  "Out[67]//MatrixForm=",ExpressionUUID->"fc75dc6c-437a-4b08-83e3-\
e092ad82dc02"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "h", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "[", 
   RowBox[{"i_", ",", "j_"}], "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      RowBox[{"2", " ", "G"}], 
      SuperscriptBox["c", "4"]], ")"}], 
    RowBox[{"(", 
     FractionBox["1", "R"], ")"}], "  ", 
    RowBox[{"D", "[", " ", 
     RowBox[{
      RowBox[{"JTT", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", "2"}], "}"}]}], " ", "]"}]}], "  ", "/.", " ", 
   RowBox[{"t", "->", " ", 
    RowBox[{"(", 
     RowBox[{"t", "-", 
      FractionBox["R", "c"]}], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393371356507874`*^9, 3.8393371480217333`*^9}, {
   3.839337200414819*^9, 3.8393372404485817`*^9}, {3.839337329115383*^9, 
   3.8393373682826977`*^9}, 3.839337650550413*^9},
 CellLabel->"In[68]:=",ExpressionUUID->"91f1d19b-3514-465e-b9bd-dff241608f5b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt109a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt109a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hPlus", "[", "t", "]"}], " ", "==", " ", 
    RowBox[{"h", "[", 
     RowBox[{"1", ",", "1"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt109a", "  ", "/.", " ", 
  RowBox[{"Equal", "->", " ", "Rule", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839337371124423*^9, 3.839337372905691*^9}, {
   3.839337487872793*^9, 3.839337538673071*^9}, 3.839337650550872*^9, {
   3.839338222706841*^9, 3.839338236505774*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"9e307bbd-4532-4d16-bf8d-0e3739cc171c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Rule]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jxx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jyy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8393373731227818`*^9, 3.839337504233177*^9, 
  3.839337539512155*^9, 3.8393376505515623`*^9, 3.8393382367169743`*^9, 
  3.839432582227139*^9, 3.8395071538588133`*^9, 3.839590477378376*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"24ff202d-c820-433e-acd1-8b02979738c9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt109b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt109b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hCross", "[", "t", "]"}], " ", "==", " ", 
    RowBox[{"h", "[", 
     RowBox[{"1", ",", "2"}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt109a", "  ", "/.", " ", 
  RowBox[{"Equal", "->", " ", "Rule", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839337421949778*^9, 3.839337422053872*^9}, {
   3.839337510432459*^9, 3.83933755121297*^9}, 3.839337650551916*^9, {
   3.8393382440188217`*^9, 3.839338245239305*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"49a3c057-6052-4f90-b029-194dc1caf06d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Rule]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jxx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jyy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8393374223980618`*^9, 3.839337517596612*^9, 
  3.8393375516141863`*^9, 3.839337650552259*^9, 3.839338246632928*^9, 
  3.83943258224498*^9, 3.839507153882662*^9, 3.839590477397921*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"9c34edfb-7a2e-41ae-ad12-d013e75d1191"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1pt113", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1pt113", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"hPlus", "[", "t", "]"}], "*", " ", "ePlus"}], " ", "+", " ", 
       
       RowBox[{
        RowBox[{"hCross", "[", "t", "]"}], " ", "eCross"}]}], " ", ")"}], " ",
      "/.", "   ", 
     RowBox[{"(", 
      RowBox[{"eq1pt109a", "  ", "/.", " ", 
       RowBox[{"Equal", "->", " ", "Rule"}]}], " ", ")"}]}], " ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{"eq1pt109b", "  ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}]}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq1pt113", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839338275688487*^9, 3.839338313221919*^9}, 
   3.8393383766478987`*^9, {3.839338431872046*^9, 3.839338544653307*^9}, 
   3.8393394901977262`*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"0a962414-26ff-43ec-ac6c-5c44338e17ae"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0"},
     {"0", 
      FractionBox[
       RowBox[{"2", " ", "G", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{
            SuperscriptBox["Jxx", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["R", "c"]}], "+", "t"}], "]"}]}], "-", 
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{
            SuperscriptBox["Jyy", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", 
            RowBox[{
             RowBox[{"-", 
              FractionBox["R", "c"]}], "+", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["c", "4"], " ", "R"}]], 
      FractionBox[
       RowBox[{"2", " ", "G", " ", 
        RowBox[{
         SuperscriptBox["Jxy", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["R", "c"]}], "+", "t"}], "]"}]}], 
       RowBox[{
        SuperscriptBox["c", "4"], " ", "R"}]], "0"},
     {"0", 
      FractionBox[
       RowBox[{"2", " ", "G", " ", 
        RowBox[{
         SuperscriptBox["Jxy", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["R", "c"]}], "+", "t"}], "]"}]}], 
       RowBox[{
        SuperscriptBox["c", "4"], " ", "R"}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "G", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{
             SuperscriptBox["Jxx", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", 
             RowBox[{
              RowBox[{"-", 
               FractionBox["R", "c"]}], "+", "t"}], "]"}]}], "-", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{
             SuperscriptBox["Jyy", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", 
             RowBox[{
              RowBox[{"-", 
               FractionBox["R", "c"]}], "+", "t"}], "]"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["c", "4"], " ", "R"}]]}], "0"},
     {"0", "0", "0", "0"}
    },
    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.839338277321167*^9, 3.839338313709598*^9, {3.8393384302057667`*^9, 
   3.839338434980233*^9}, {3.839338467702896*^9, 3.8393384936337767`*^9}, 
   3.8393385456593647`*^9, 3.839339490203495*^9, 3.8394325822843122`*^9, 
   3.83950715393047*^9, 3.839590477435062*^9},
 CellLabel->
  "Out[78]//MatrixForm=",ExpressionUUID->"f2154dd1-f3f0-4074-9ecd-\
d8bf76748922"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "LEgw", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LEgw", "[", "J_", "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      FractionBox["G", 
       RowBox[{"5", " ", 
        SuperscriptBox["c", "5"]}]], ")"}], 
     RowBox[{"Sum", "[", " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", " ", 
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"J", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", ",", " ", 
           RowBox[{"{", 
            RowBox[{"t", ",", "3"}], "}"}]}], " ", "]"}], " ", ")"}], "2"], 
       " ", ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], " ", "]"}]}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", "  "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393387220990143`*^9, 3.8393387840878143`*^9}, {
   3.839338823445209*^9, 3.8393388371335077`*^9}, {3.8393392664351597`*^9, 
   3.8393392705494204`*^9}, 3.8393394902087173`*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"2d93dcf9-7377-4bc9-9d35-c87d2cd08bfb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LEgw", "[", "JTT", " ", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "No", " ", "idea", " ", "if", " ", "this", " ", "is", " ", "right"}], " ", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839338999153303*^9, 3.8393390027573147`*^9}, {
   3.839339248838822*^9, 3.8393392497022142`*^9}, {3.839339319925249*^9, 
   3.839339344492885*^9}, 3.8393394902093983`*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"b6c464f6-11e4-4d63-968c-135524a545ba"],

Cell[BoxData[
 FractionBox[
  RowBox[{"G", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["Jxx", 
        TagBox[
         RowBox[{"(", "3", ")"}],
         Derivative],
        MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["Jxy", 
         TagBox[
          RowBox[{"(", "3", ")"}],
          Derivative],
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["Jyx", 
         TagBox[
          RowBox[{"(", "3", ")"}],
          Derivative],
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["Jxx", 
        TagBox[
         RowBox[{"(", "3", ")"}],
         Derivative],
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["Jyy", 
        TagBox[
         RowBox[{"(", "3", ")"}],
         Derivative],
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["Jyy", 
        TagBox[
         RowBox[{"(", "3", ")"}],
         Derivative],
        MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
  RowBox[{"10", " ", 
   SuperscriptBox["c", "5"]}]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8393392499692802`*^9, 3.8393392728149548`*^9}, 
   3.839339320769806*^9, 3.839339490214285*^9, 3.8394325823425426`*^9, 
   3.839507153987865*^9, 3.839590477487545*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"4597666c-af41-43d0-8e20-4d5aaefe38fb"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "LJgw", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LJgw", "[", "J_", "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      FractionBox[
       RowBox[{"2", " ", "G"}], 
       RowBox[{"5", " ", 
        SuperscriptBox["c", "5"]}]], ")"}], 
     RowBox[{"Sum", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CurlyEpsilon]", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], 
        SuperscriptBox[
         RowBox[{"(", " ", 
          RowBox[{"D", "[", " ", 
           RowBox[{
            RowBox[{"J", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "l"}], "]"}], "]"}], " ", ",", " ", 
            RowBox[{"{", 
             RowBox[{"t", ",", "2"}], "}"}]}], " ", "]"}], " ", ")"}], "2"], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", " ", 
          RowBox[{"D", "[", " ", 
           RowBox[{
            RowBox[{"J", "[", 
             RowBox[{"[", 
              RowBox[{"k", ",", "l"}], "]"}], "]"}], " ", ",", " ", 
            RowBox[{"{", 
             RowBox[{"t", ",", "3"}], "}"}]}], " ", "]"}], " ", ")"}], "2"]}],
        ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "3"}], "}"}], " ", ",", 
       RowBox[{"{", 
        RowBox[{"l", ",", "1", ",", "3"}], "}"}]}], " ", "]"}]}], "  ", ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], " ", "]"}], " "}]}], "Input",\

 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839338851053246*^9, 3.839338956988282*^9}, {
   3.8393392226090508`*^9, 3.839339238530984*^9}, 3.839339490219729*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"cc158835-6d54-40b2-a396-6295b5f2f9a1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LJgw", "[", "JTT", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "No", " ", "idea", " ", "if", " ", "this", " ", "is", " ", "right"}], " ", 
   "*)"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.839339308644684*^9, 3.8393393108293457`*^9}, 
   3.839339349483088*^9, 3.839339490220189*^9},
 CellLabel->"In[84]:=",ExpressionUUID->"e1ba1122-0f0f-435f-bf8e-7360e4d54f76"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{"2", " ", "G", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              FractionBox["1", "2"]}], " ", 
             RowBox[{
              SuperscriptBox["Jxx", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["Jyy", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
          "2"]}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["Jxy", 
           TagBox[
            RowBox[{"(", "3", ")"}],
            Derivative],
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["Jxx", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["Jyy", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
        " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["Jyx", 
           TagBox[
            RowBox[{"(", "3", ")"}],
            Derivative],
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["Jyx", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{
             SuperscriptBox["Jxx", 
              TagBox[
               RowBox[{"(", "3", ")"}],
               Derivative],
              MultilineFunction->None], "[", "t", "]"}]}], "-", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{
             SuperscriptBox["Jyy", 
              TagBox[
               RowBox[{"(", "3", ")"}],
               Derivative],
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["Jxy", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "2"]}], " ", 
            RowBox[{
             SuperscriptBox["Jxx", 
              TagBox[
               RowBox[{"(", "3", ")"}],
               Derivative],
              MultilineFunction->None], "[", "t", "]"}]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{
             SuperscriptBox["Jyy", 
              TagBox[
               RowBox[{"(", "3", ")"}],
               Derivative],
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]}], 
      ")"}]}], 
    RowBox[{"5", " ", 
     SuperscriptBox["c", "5"]}]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.839339311237822*^9, 3.839339490225134*^9, 
  3.839432582400141*^9, 3.83950715404499*^9, 3.8395904775382023`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"3897431a-1f4d-4ad6-8166-e693306e33ff"]
}, Closed]],

Cell[CellGroupData[{

Cell["Chapter 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.83933582074719*^9, 
  3.8393358517823887`*^9}},ExpressionUUID->"202b57d4-f755-4079-a9e8-\
70e932bad91b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt8", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt8", " ", "=", "  ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"M", " ", "==", " ", 
      RowBox[{"m1", " ", "+", " ", "m2"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Mu]", " ", "==", " ", 
      FractionBox[
       RowBox[{"m1", " ", "m2"}], "M"]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt8", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839325691952331*^9, 3.839325726453617*^9}, 
   3.8393358424388523`*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"1da5e7ba-4b8a-4cb2-a596-f86387f50d0c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"M", "\[Equal]", 
       RowBox[{"m1", "+", "m2"}]}]},
     {
      RowBox[{"\[Mu]", "\[Equal]", 
       FractionBox[
        RowBox[{"m1", " ", "m2"}], "M"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.839325726948245*^9, 3.839325808780081*^9, 
  3.839335842443543*^9, 3.839432582417718*^9, 3.8395071540660543`*^9, 
  3.839590477560767*^9},
 CellLabel->
  "Out[87]//TableForm=",ExpressionUUID->"b6d8d466-a58a-4436-8b46-\
1e1fa97f92f7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eq2pt8", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "m1"}], "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eq2pt8", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "m2"}], "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eq2pt8", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"eq2pt8", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}], "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839325963422989*^9, 3.839326007239431*^9}, 
   3.839335842444085*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"fa06bdd4-3fd2-4bdc-957b-635ee9c75a3c"],

Cell[BoxData[
 RowBox[{"m1", "\[Rule]", 
  RowBox[{"M", "-", "m2"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259661128597`*^9, 3.8393260080431757`*^9}, 
   3.839335842444405*^9, 3.839432582455604*^9, 3.839507154104225*^9, 
   3.83959047759982*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"0e5a25df-20e8-4baa-b53b-c500a5214bd5"],

Cell[BoxData[
 RowBox[{"m2", "\[Rule]", 
  RowBox[{"M", "-", "m1"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259661128597`*^9, 3.8393260080431757`*^9}, 
   3.839335842444405*^9, 3.839432582455604*^9, 3.839507154104225*^9, 
   3.839590477607143*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"01a8be8c-31bd-46d9-a940-0e6dabce1b89"],

Cell[BoxData[
 RowBox[{"m1", "\[Rule]", 
  FractionBox[
   RowBox[{"M", " ", "\[Mu]"}], "m2"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259661128597`*^9, 3.8393260080431757`*^9}, 
   3.839335842444405*^9, 3.839432582455604*^9, 3.839507154104225*^9, 
   3.839590477612198*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"977e8027-f8e1-435c-aa56-38646b77fdfd"],

Cell[BoxData[
 RowBox[{"m2", "\[Rule]", 
  FractionBox[
   RowBox[{"M", " ", "\[Mu]"}], "m1"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259661128597`*^9, 3.8393260080431757`*^9}, 
   3.839335842444405*^9, 3.839432582455604*^9, 3.839507154104225*^9, 
   3.839590477617033*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"f64a09eb-8c06-42d0-89a2-d06b8baae080"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt9", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt9", " ", "=", "  ", "\[IndentingNewLine]", 
  RowBox[{"\[Eta]", " ", "==", " ", 
   FractionBox[
    RowBox[{"m1", " ", "m2"}], 
    SuperscriptBox["M", "2"]], "==", " ", 
   FractionBox["\[Mu]", "M"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839325765977812*^9, 3.83932580640176*^9}, 
   3.839335842449888*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"bacba9d8-2cf5-4af7-9447-0e783dee4086"],

Cell[BoxData[
 RowBox[{"\[Eta]", "\[Equal]", 
  FractionBox[
   RowBox[{"m1", " ", "m2"}], 
   SuperscriptBox["M", "2"]], "\[Equal]", 
  FractionBox["\[Mu]", "M"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393257934173403`*^9, 3.8393258105627623`*^9}, 
   3.8393358424542217`*^9, 3.8394325824862556`*^9, 3.83950715413104*^9, 
   3.839590477633095*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"33bae3cc-2c20-4488-b573-9481997fe792"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt10", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Make", " ", "these", " ", "functions", " ", "of", " ", "time", " ", 
    "here", " ", "or", " ", 
    RowBox[{"later", "?"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt10", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"r12", " ", "==", "  ", 
   RowBox[{"r1", " ", "-", " ", "r2"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839325813155409*^9, 3.839325838097692*^9}, {
   3.8393259047265673`*^9, 3.839325920088196*^9}, 3.839335842454852*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"4b56c2f7-83e3-4aac-959e-3951db05f3e8"],

Cell[BoxData[
 RowBox[{"r12", "\[Equal]", 
  RowBox[{"r1", "-", "r2"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8393258280208673`*^9, {3.839325907901567*^9, 3.839325920509302*^9}, 
   3.839335842459065*^9, 3.83943258252353*^9, 3.839507154168659*^9, 
   3.839590477666545*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"8aef6313-e5d8-4635-aea3-0f938e7f837f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt11", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt11", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"m1", " ", "r1"}], " ", "+", " ", 
    RowBox[{"m2", " ", "r2"}]}], " ", "==", " ", "0", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839325852665674*^9, 3.839325866585691*^9}, 
   3.83933584245957*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"d40deff3-110c-469f-ac4a-891dba41375d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"m1", " ", "r1"}], "+", 
   RowBox[{"m2", " ", "r2"}]}], "\[Equal]", "0"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8393258672752237`*^9, 3.839325922297496*^9, 
  3.839335842463952*^9, 3.839432582540022*^9, 3.839507154183609*^9, 
  3.8395904776856956`*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"1d85a429-34fc-41d2-9a59-f8c58d4ddb05"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"eq2pt10", " ", ",", "eq2pt11"}], "}"}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"r1", ",", "r2"}], "}"}]}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"eq2pt10", " ", ",", "eq2pt11"}], "}"}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"r1", ",", "r2"}], "}"}]}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq2pt12", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt12", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eq2pt10", " ", ",", "eq2pt11"}], "}"}], " ", ",", 
          RowBox[{"{", 
           RowBox[{"r1", ",", "r2"}], "}"}]}], " ", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "   ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"eq2pt8", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "m1"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eq2pt10", " ", ",", "eq2pt11"}], "}"}], " ", ",", 
          RowBox[{"{", 
           RowBox[{"r1", ",", "r2"}], "}"}]}], " ", "]"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}], "   ", "/.", " ", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"eq2pt8", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", "m2"}], "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], " ", "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt12", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839325876683859*^9, 3.839325931400291*^9}, {
   3.839326063737153*^9, 3.839326078439569*^9}, {3.839326115506339*^9, 
   3.839326231970599*^9}, 3.8393358424645348`*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"52bde896-c3d6-43a0-b592-421b2b45eac5"],

Cell[BoxData[
 RowBox[{"r1", "\[Rule]", 
  FractionBox[
   RowBox[{"m2", " ", "r12"}], 
   RowBox[{"m1", "+", "m2"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259002361107`*^9, 3.839325931846678*^9}, {
   3.839326068019244*^9, 3.8393260787143307`*^9}, {3.839326117645996*^9, 
   3.839326232429872*^9}, 3.8393358424649067`*^9, 3.8394325825772943`*^9, 
   3.839507154225059*^9, 3.839590477723831*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"107134d3-b209-4ee6-8c5e-8e46e0e2e896"],

Cell[BoxData[
 RowBox[{"r2", "\[Rule]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"m1", " ", "r12"}], 
    RowBox[{"m1", "+", "m2"}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259002361107`*^9, 3.839325931846678*^9}, {
   3.839326068019244*^9, 3.8393260787143307`*^9}, {3.839326117645996*^9, 
   3.839326232429872*^9}, 3.8393358424649067`*^9, 3.8394325825772943`*^9, 
   3.839507154225059*^9, 3.839590477730919*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"a946396e-5e2a-4600-a153-ac7ad032257b"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"r1", "\[Rule]", 
       FractionBox[
        RowBox[{"m2", " ", "r12"}], "M"]}]},
     {
      RowBox[{"r2", "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"m1", " ", "r12"}], "M"]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393259002361107`*^9, 3.839325931846678*^9}, {
   3.839326068019244*^9, 3.8393260787143307`*^9}, {3.839326117645996*^9, 
   3.839326232429872*^9}, 3.8393358424649067`*^9, 3.8394325825772943`*^9, 
   3.839507154225059*^9, 3.839590477735777*^9},
 CellLabel->
  "Out[102]//TableForm=",ExpressionUUID->"de3e7111-f30b-495e-a663-\
b583ef6123b4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt13", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt13", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{"r", "[", "t", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{"r", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}]}], "\[IndentingNewLine]",
     "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt13", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8395072457194653`*^9, 3.839507282962891*^9}, 
   3.839509032245164*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"abf7dc95-58ee-44ef-9c5f-676e4788a9e6"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"r", "[", "t", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"y", "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"r", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.839507283227158*^9, 3.83950903224551*^9, 
  3.839590477753409*^9},
 CellLabel->
  "Out[105]//TableForm=",ExpressionUUID->"48e396a7-acb1-4c59-a509-\
bfdf77e55057"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt14", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt14", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"r", "[", "\[Phi]", "]"}], " ", "==", " ", 
   FractionBox[
    RowBox[{"a", "(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[ScriptE]", "2"]}], ")"}], 
    RowBox[{"1", "+", 
     RowBox[{"\[ScriptE]", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "-", "\[Phi]0"}], "]"}]}]}]]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839326691013998*^9, 3.839326733524487*^9}, 
   3.839335842469882*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"437164bc-897a-4713-a0b0-89597ee1987a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", "\[Phi]", "]"}], "\[Equal]", 
  FractionBox[
   RowBox[{"a", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[ScriptE]", "2"]}], ")"}]}], 
   RowBox[{"1", "+", 
    RowBox[{"\[ScriptE]", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Phi]", "-", "\[Phi]0"}], "]"}]}]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.839326737181505*^9, 3.839335842475627*^9, 
  3.839432582602248*^9, 3.839507154319105*^9, 3.839590477788803*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"9a08592e-cc88-4e0c-9fc2-f6a7260abfb1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PolarPlot", "[", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"eq2pt14", "[", 
           RowBox[{"[", "2", "]"}], "]"}], " ", "/.", " ", 
          RowBox[{"a", "->", " ", "amax"}]}], " ", "/.", " ", 
         RowBox[{"\[ScriptE]", "->", " ", "emax"}]}], " ", "/.", " ", 
        RowBox[{"\[Phi]0", "->", " ", "\[Phi]max"}]}], "  ", ")"}], "  ", ",", 
      RowBox[{"{", " ", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "14"}]}], "]"}], " ", ",", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"amax", ",", " ", "0.1", " ", ",", " ", "7"}], " ", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"emax", ",", "0.01", ",", "0.99"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"\[Phi]max", ",", "0", ",", 
      RowBox[{"2", "\[Pi]"}]}], "}"}]}], " ", "]"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839326774900991*^9, 3.839326821373913*^9}, {
   3.839326861694518*^9, 3.83932697253839*^9}, {3.8393270549208527`*^9, 
   3.839327071050893*^9}, {3.839331255367248*^9, 3.839331283030931*^9}, 
   3.839335842476101*^9},
 CellLabel->
  "In[108]:=",ExpressionUUID->"14eb65a2-167a-450b-8af1-a7a7f8ff4462"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`amax$$ = 1.77, $CellContext`emax$$ = 
    0.25, $CellContext`\[Phi]max$$ = 0.9927432785343746, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`amax$$], 0.1, 7}, {
      Hold[$CellContext`emax$$], 0.01, 0.99}, {
      Hold[$CellContext`\[Phi]max$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`amax$$ = 0.1, $CellContext`emax$$ = 
        0.01, $CellContext`\[Phi]max$$ = 0}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> PolarPlot[
        ReplaceAll[
         ReplaceAll[
          ReplaceAll[
           
           Part[$CellContext`eq2pt14, 
            2], $CellContext`a -> $CellContext`amax$$], $CellContext`\
\[ScriptE] -> $CellContext`emax$$], $CellContext`\[Phi]0 -> $CellContext`\
\[Phi]max$$], {$CellContext`\[Phi], 0, 2 Pi}, PlotRange -> 14], 
      "Specifications" :> {{$CellContext`amax$$, 0.1, 
         7}, {$CellContext`emax$$, 0.01, 0.99}, {$CellContext`\[Phi]max$$, 0, 
         2 Pi}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{405., {251., 257.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393267756219254`*^9, 3.839326821622748*^9}, {
   3.8393268639973288`*^9, 3.839326892030439*^9}, {3.839326934910049*^9, 
   3.839326973323408*^9}, 3.8393270730250387`*^9, {3.8393312574361277`*^9, 
   3.839331283672855*^9}, 3.8393358424800577`*^9, 3.839432582646275*^9, 
   3.839507154363838*^9, 3.839590477835598*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"ade12960-fa39-438b-8b1e-54f00b9ee32b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "2.18", " ", "Page", " ", "34"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "S", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"S", " ", "=", " ", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"1", "0", "0"},
        {"0", 
         RowBox[{"Cos", "[", "\[Iota]", "]"}], 
         RowBox[{"Sin", "[", "\[Iota]", "]"}]},
        {"0", 
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[Iota]", "]"}]}], 
         RowBox[{"Cos", "[", "\[Iota]", "]"}]}
       }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"S", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833974480858012*^9, 3.8339745507887917`*^9}, {
   3.833974606789586*^9, 3.833974617037324*^9}, {3.839326345709599*^9, 
   3.8393263482294807`*^9}, 3.839335842485373*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"b3333317-61ce-44ee-807d-3d981221bda1"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", 
      RowBox[{"Cos", "[", "\[Iota]", "]"}], 
      RowBox[{"Sin", "[", "\[Iota]", "]"}]},
     {"0", 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}]}], 
      RowBox[{"Cos", "[", "\[Iota]", "]"}]}
    },
    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.833974545380886*^9, 3.833974551318701*^9}, 
   3.839335842485716*^9, 3.839432583071395*^9, 3.839507154545632*^9, 
   3.83959047814485*^9},
 CellLabel->
  "Out[111]//MatrixForm=",ExpressionUUID->"d3c98193-47c7-4990-afe5-\
19c66fc41cc3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "2.20"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "Ic", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ic", "[", "t", "]"}], " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Mu]", " ", 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {
          SuperscriptBox[
           RowBox[{"x", "[", "t", "]"}], "2"], 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], " ", 
           RowBox[{"y", "[", "t", "]"}]}], "0"},
         {
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], " ", 
           RowBox[{"y", "[", "t", "]"}]}], 
          SuperscriptBox[
           RowBox[{"y", "[", "t", "]"}], "2"], "0"},
         {"0", "0", "0"}
        }], "\[NoBreak]", ")"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ic", "[", "t", "]"}], " ", "//", " ", 
    "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839339808368655*^9, 3.839339934527931*^9}, 
   3.839340183394137*^9},
 CellLabel->
  "In[112]:=",ExpressionUUID->"cd70da4f-e006-4b0a-8793-e02688bb1a46"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"x", "[", "t", "]"}], "2"]}], 
      RowBox[{"\[Mu]", " ", 
       RowBox[{"x", "[", "t", "]"}], " ", 
       RowBox[{"y", "[", "t", "]"}]}], "0"},
     {
      RowBox[{"\[Mu]", " ", 
       RowBox[{"x", "[", "t", "]"}], " ", 
       RowBox[{"y", "[", "t", "]"}]}], 
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"y", "[", "t", "]"}], "2"]}], "0"},
     {"0", "0", "0"}
    },
    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.839339917757086*^9, 3.839339935468869*^9}, 
   3.839340183399494*^9, 3.83943258310576*^9, 3.839507154588283*^9, 
   3.839590478169743*^9},
 CellLabel->
  "Out[114]//MatrixForm=",ExpressionUUID->"a0e43ea0-75c1-480e-b4c2-\
7d1750853859"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt22a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt22a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"S", " ", ".", " ", 
    RowBox[{"Ic", "[", "t", "]"}], " ", ".", " ", 
    RowBox[{"Transpose", "[", "S", "]"}]}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt22a", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839339972741829*^9, 3.839339982097547*^9}, {
   3.839340055251739*^9, 3.839340057379324*^9}, 3.839340183399995*^9, {
   3.839507465136427*^9, 3.839507485685541*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"681cf130-58b1-440d-a3a7-e8b3bd2a3e9b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"x", "[", "t", "]"}], "2"]}], 
      RowBox[{"\[Mu]", " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"x", "[", "t", "]"}], " ", 
       RowBox[{"y", "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"x", "[", "t", "]"}], " ", 
       RowBox[{"y", "[", "t", "]"}]}]},
     {
      RowBox[{"\[Mu]", " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"x", "[", "t", "]"}], " ", 
       RowBox[{"y", "[", "t", "]"}]}], 
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"y", "[", "t", "]"}], "2"]}], 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"y", "[", "t", "]"}], "2"]}]},
     {
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"x", "[", "t", "]"}], " ", 
       RowBox[{"y", "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"y", "[", "t", "]"}], "2"]}], 
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Iota]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"y", "[", "t", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8393399825832663`*^9, 3.839340057688726*^9, 
  3.839340183405285*^9, 3.8394325831214647`*^9, 3.8395071546064253`*^9, 
  3.839507486942939*^9, 3.839590478207212*^9},
 CellLabel->
  "Out[117]//MatrixForm=",ExpressionUUID->"59cae5f5-c452-4107-b6f1-\
fe91e1f868d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"eq2pt13", "  ", "/.", " ", 
   RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", "//", " ", 
  "TableForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507366949945*^9, 3.83950737936765*^9}, 
   3.839509032245788*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"eabe6033-3ce4-461d-bf70-4b4886495447"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"r", "[", "t", "]"}]}]}]},
     {
      RowBox[{
       RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"r", "[", "t", "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507369066567*^9, 3.8395073796198473`*^9}, 
   3.8395090322460613`*^9, 3.83959047822471*^9},
 CellLabel->
  "Out[118]//TableForm=",ExpressionUUID->"1045eaba-0d0b-4f62-90b3-\
c416ee07d6c8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt22", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt22", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"S", " ", ".", " ", 
     RowBox[{"Ic", "[", "t", "]"}], " ", ".", " ", 
     RowBox[{"Transpose", "[", "S", "]"}]}], "   ", "/.", " ", 
    RowBox[{"(", 
     RowBox[{"eq2pt13", "  ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt22", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507388408391*^9, 3.839507396280205*^9}, {
   3.8395074945998697`*^9, 3.8395075024581203`*^9}, 3.839509032246295*^9},
 CellLabel->
  "In[119]:=",ExpressionUUID->"8d230939-0898-4fef-abaa-7764a250b7b5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"]}], 
      RowBox[{"\[Mu]", " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]},
     {
      RowBox[{"\[Mu]", " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]},
     {
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", "\[Mu]"}], " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], 
      RowBox[{"\[Mu]", " ", 
       SuperscriptBox[
        RowBox[{"r", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Iota]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8395073967689962`*^9, 3.8395075030041647`*^9, 
  3.8395090322465677`*^9, 3.839590478260466*^9},
 CellLabel->
  "Out[121]//MatrixForm=",ExpressionUUID->"cb60685e-184e-4fc8-9c45-\
5d927c6938da"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "jPolarReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jPolarReplace", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Thread", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"J", " ", "/.", " ", 
          RowBox[{"t", "->", " ", 
           RowBox[{"t", "-", 
            FractionBox["R", "c"]}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "2"}], "}"}]}], "]"}], "]"}], "==", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Simplify", "[", 
        RowBox[{"Expand", "[", 
         RowBox[{"D", "[", 
          RowBox[{"eq2pt22", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "2"}], "}"}]}], "]"}], "]"}], "]"}], "]"}]}], 
     "]"}], "  ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"jPolarReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507564846039*^9, 3.8395077185953074`*^9}, 
   3.839509032246809*^9},
 CellLabel->
  "In[122]:=",ExpressionUUID->"9b999668-cf70-4042-8c0c-141f03f9fa08"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jxx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
          RowBox[{"4", " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", 
                RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "-", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jxy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", 
                RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jxz", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "\[Mu]"}], " ", 
        RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", 
                RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jyx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", 
                RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jyy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"\[Mu]", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", 
                RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jyz", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[Mu]", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "\[Iota]"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", 
                RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jzx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "\[Mu]"}], " ", 
        RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Sin", "[", 
               RowBox[{"2", " ", 
                RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jzy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", "\[Mu]", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "\[Iota]"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", 
                RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jzz", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"\[Mu]", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Iota]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"r", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", 
                RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
              RowBox[{
               SuperscriptBox["r", "\[Prime]\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
             RowBox[{
              RowBox[{"r", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8395075686075277`*^9, 3.83950764767301*^9}, 
   3.8395076790886097`*^9, 3.839507719712433*^9, 3.83950903224708*^9, 
   3.839590478975935*^9},
 CellLabel->
  "Out[124]//TableForm=",ExpressionUUID->"478bef87-0c68-43ed-be11-\
6eace1897147"],

Cell[BoxData[{
 RowBox[{"eq1pt109a", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt23a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "No", " ", "idea", " ", "if", " ", "this", " ", "is", " ", "right"}], " ",
     "-", " ", 
    RowBox[{"check", " ", "this"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt23a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Collect", "[", " ", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"eq1pt109a", " ", "/.", " ", "jPolarReplace"}], "  ", "//", " ",
       "Expand"}], ")"}], " ", ",", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"2", 
        RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", ",", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", 
        RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", ",", " ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"]}], " ", "}"}]}], " ", "]"}],
   " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507553301399*^9, 3.839507557027268*^9}, {
   3.839507688267421*^9, 3.839507689457798*^9}, {3.8395077266235456`*^9, 
   3.839507736457143*^9}, {3.839507828213972*^9, 3.839507870802061*^9}, {
   3.8395081313953667`*^9, 3.839508148721827*^9}, {3.83950828087892*^9, 
   3.839508289374094*^9}, 3.839509032247303*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"2ea5b2b7-4f9d-4c65-96aa-e15772affb0b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Equal]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jxx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jyy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.839507557375784*^9, {3.8395077273423557`*^9, 3.839507736726322*^9}, 
   3.8395079131882772`*^9, 3.839508149645894*^9, 3.8395082901503477`*^9, 
   3.839509032247579*^9, 3.839590479002069*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"31c94fd7-ceb2-4863-9ba4-2862342ff56e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["r", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], 
    RowBox[{
     SuperscriptBox["c", "4"], " ", "R"}]], "+", 
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"2", " ", 
      RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
         SuperscriptBox[
          RowBox[{"r", "[", "t", "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[Phi]", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["c", "4"], " ", "R"}]]}], "-", 
      FractionBox[
       RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"r", "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[Phi]", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       RowBox[{
        SuperscriptBox["c", "4"], " ", "R"}]]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
     RowBox[{"r", "[", "t", "]"}], " ", 
     RowBox[{
      SuperscriptBox["r", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], 
    RowBox[{
     SuperscriptBox["c", "4"], " ", "R"}]], "+", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["r", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox["c", "4"], " ", "R"}]]}], "-", 
      FractionBox[
       RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
        RowBox[{"r", "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["r", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        SuperscriptBox["c", "4"], " ", "R"}]]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"2", " ", 
      RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"4", " ", "G", " ", "\[Mu]", " ", 
         RowBox[{"r", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["r", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Phi]", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{
         SuperscriptBox["c", "4"], " ", "R"}]]}], "-", 
      FractionBox[
       RowBox[{"G", " ", "\[Mu]", " ", 
        SuperscriptBox[
         RowBox[{"r", "[", "t", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        SuperscriptBox["c", "4"], " ", "R"}]], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", "G", " ", "\[Mu]", " ", 
            RowBox[{"r", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["\[Phi]", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}], 
           RowBox[{
            SuperscriptBox["c", "4"], " ", "R"}]]}], "-", 
         FractionBox[
          RowBox[{"G", " ", "\[Mu]", " ", 
           SuperscriptBox[
            RowBox[{"r", "[", "t", "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], 
          RowBox[{
           SuperscriptBox["c", "4"], " ", "R"}]]}], ")"}]}]}], 
     ")"}]}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.839507557375784*^9, {3.8395077273423557`*^9, 3.839507736726322*^9}, 
   3.8395079131882772`*^9, 3.839508149645894*^9, 3.8395082901503477`*^9, 
   3.839509032247579*^9, 3.83959047901324*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"ed6e11ca-8ecf-433a-8baf-b92c60d01586"],

Cell[BoxData[{
 RowBox[{"eq1pt109b", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt23b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "No", " ", "idea", " ", "if", " ", "this", " ", "is", " ", "right"}], " ",
     "-", " ", 
    RowBox[{"check", " ", "this"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt23b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Collect", "[", " ", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"eq1pt109b", " ", "/.", " ", "jPolarReplace"}], "  ", "//", " ",
       "Expand"}], " ", ")"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", ",", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", 
        RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", ",", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", 
        RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}], " ", "}"}]}], " ", 
   "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507926566977*^9, 3.839507974716387*^9}, {
   3.839508007949192*^9, 3.8395080794518547`*^9}, 3.839509032248077*^9},
 CellLabel->
  "In[128]:=",ExpressionUUID->"7f5b5042-ff86-4275-b415-4ef96a180447"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hCross", "[", "t", "]"}], "\[Equal]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", 
    RowBox[{
     SuperscriptBox["Jxy", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["R", "c"]}], "+", "t"}], "]"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507929463212*^9, 3.839507975419856*^9}, 
   3.839508015832079*^9, 3.839508079915427*^9, 3.839509032248357*^9, 
   3.839590479050116*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"c0c73f55-edc9-40c8-891c-ecc2aa082445"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hCross", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", 
        RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["r", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], 
         RowBox[{
          SuperscriptBox["c", "4"], " ", "R"}]], "-", 
        FractionBox[
         RowBox[{"4", " ", "G", " ", "\[Mu]", " ", 
          SuperscriptBox[
           RowBox[{"r", "[", "t", "]"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], 
         RowBox[{
          SuperscriptBox["c", "4"], " ", "R"}]], "+", 
        FractionBox[
         RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
          RowBox[{"r", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["r", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], 
         RowBox[{
          SuperscriptBox["c", "4"], " ", "R"}]]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", 
        RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"8", " ", "G", " ", "\[Mu]", " ", 
          RowBox[{"r", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["r", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Phi]", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], 
         RowBox[{
          SuperscriptBox["c", "4"], " ", "R"}]], "+", 
        FractionBox[
         RowBox[{"2", " ", "G", " ", "\[Mu]", " ", 
          SuperscriptBox[
           RowBox[{"r", "[", "t", "]"}], "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], 
         RowBox[{
          SuperscriptBox["c", "4"], " ", "R"}]]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839507929463212*^9, 3.839507975419856*^9}, 
   3.839508015832079*^9, 3.839508079915427*^9, 3.839509032248357*^9, 
   3.839590479058402*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"e40b74bf-dbab-4063-a669-d697611fd289"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<binary stress energy tensor\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://ned.ipac.caltech.edu/level5/March01/Carroll3/Carroll6.html\>\"\
"}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833976083583205*^9, 3.8339761015494328`*^9}, 
   3.8393358424859667`*^9},
 CellLabel->
  "In[131]:=",ExpressionUUID->"5a40cd72-a47d-4d16-97be-cb8a4888ad71"],

Cell[BoxData[
 TemplateBox[{
  "\"binary stress energy tensor\"", 
   "https://ned.ipac.caltech.edu/level5/March01/Carroll3/Carroll6.html"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.833976101843183*^9, 3.8393358424862547`*^9, 
  3.8394325831546993`*^9, 3.839507154649681*^9, 3.8395904791075706`*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"4ed0a3cb-3769-47d5-aa99-8fd4df6bd737"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[Delta]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "[", "u_", "]"}], ":=", " ", 
  RowBox[{"DiracDelta", "[", "u", "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833975761489088*^9, 3.833975774831201*^9}, 
   3.839335842486519*^9},
 CellLabel->
  "In[132]:=",ExpressionUUID->"26bde196-589d-4db1-89aa-f7b68ac586cc"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "r1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"r1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"r", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}], " ", ",", " ", 
    RowBox[{"r", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}]}], " ", "}"}], 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833976031542598*^9, 3.833976057021276*^9}, 
   3.8393358424868393`*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"cd7ebd4b-fac9-449a-bc0d-d510707326d8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"r", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}], ",", 
   RowBox[{"r", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.833976057792465*^9, 3.8393358424872017`*^9, 
  3.839432583196384*^9, 3.839507154698847*^9, 3.8395904791520243`*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"fcf11efb-1002-40e1-a329-7dc559466df9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "r2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"r2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", "r"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}], " ", ",", "  ", 
    RowBox[{
     RowBox[{"-", " ", "r"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}]}], " ", "}"}], 
  " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8339760686607323`*^9, 3.83397607523772*^9}, 
   3.8393358424874983`*^9},
 CellLabel->
  "In[136]:=",ExpressionUUID->"240f57a6-5232-49ce-bc77-2e596ef97ea4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "r"}], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "r"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.833976076175457*^9, 3.839335842487845*^9, 
  3.839432583209839*^9, 3.839507154715904*^9, 3.8395904791732063`*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"e3ac91f6-1243-4f1e-ae60-9cdcc671d1df"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "T00", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"REDO", " ", "THIS"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"T00", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"M", " ", 
    RowBox[{"\[Delta]", "[", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", "]"}], " ", 
    RowBox[{"\[Delta]", "[", 
     RowBox[{
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", "-", " ", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}]}], "  ", "]"}], " ", 
    RowBox[{"\[Delta]", "[", " ", 
     RowBox[{
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "-", "  ", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}]}], " ", "]"}]}], " ", 
   "+", " ", 
   RowBox[{
    RowBox[{"\[Delta]", "[", " ", 
     RowBox[{
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", "  ", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}]}], " ", "]"}], " ", 
    RowBox[{"\[Delta]", "[", " ", 
     RowBox[{
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "  ", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[CapitalOmega]", " ", "t"}], "]"}]}]}], " ", "]"}], 
    " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833976121218257*^9, 3.833976126712657*^9}, {
   3.833976165720697*^9, 3.833976240001748*^9}, {3.83397627746764*^9, 
   3.833976307683754*^9}, {3.833976351618024*^9, 3.833976367794505*^9}, {
   3.833976639515314*^9, 3.8339766583784018`*^9}, {3.8339767927598886`*^9, 
   3.833976852617002*^9}, {3.8339769908187037`*^9, 3.833977036433549*^9}, {
   3.833979483116609*^9, 3.833979487190983*^9}, 3.839335842488139*^9},
 CellLabel->
  "In[138]:=",ExpressionUUID->"e2882df0-8424-4ef9-b23f-1188ca9ceae2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", " ", 
   RowBox[{"DiracDelta", "[", 
    RowBox[{"r", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], " ", 
   RowBox[{"DiracDelta", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "r"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}], "+", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "]"}], " ", 
   RowBox[{"DiracDelta", "[", 
    RowBox[{
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "-", 
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"DiracDelta", "[", 
    RowBox[{
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "]"}], " ", 
   RowBox[{"DiracDelta", "[", 
    RowBox[{
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "]"}]}]}]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.833976853316369*^9, 3.83397703962694*^9, 
  3.839335842488495*^9, 3.83943258324776*^9, 3.8395071547565327`*^9, 
  3.8395904792160397`*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"0cdd8624-a998-42fb-8c50-cec0868b204b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Redo", " ", "this"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"I", "'"}], "m", " ", "sure", " ", "the", " ", "angles", " ", 
     "are", " ", "reversed"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"Integrate", "[", " ", "\[IndentingNewLine]", 
   RowBox[{"T00", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", 
      RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], " ", ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "0", ",", 
      RowBox[{"2", " ", "\[Pi]"}]}], "}"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"\[Phi]", ",", "0", ",", "\[Pi]"}], "}"}]}], " ", "]"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8339764010493383`*^9, 3.833976432743771*^9}, {
   3.833976841775096*^9, 3.8339768827201557`*^9}, 3.8393358424888077`*^9, {
   3.843389727917593*^9, 
   3.84338974182437*^9}},ExpressionUUID->"9afea3e1-d241-43ca-b69b-\
62da1ee854a0"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", 
   RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"2", " ", "\[Pi]"}]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"M", " ", 
        RowBox[{"DiracDelta", "[", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], " ", 
        RowBox[{"DiracDelta", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "r"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "]"}], " ", 
        RowBox[{"DiracDelta", "[", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}], "-", 
          RowBox[{"r", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"DiracDelta", "[", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "]"}], " ", 
        RowBox[{"DiracDelta", "[", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"t", " ", "\[CapitalOmega]"}], "]"}]}]}], "]"}]}]}], 
      ")"}], 
     RowBox[{"\[DifferentialD]", "\[Phi]"}], 
     RowBox[{"\[DifferentialD]", "\[Theta]"}], 
     RowBox[{"\[DifferentialD]", "r"}]}]}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.833976433269602*^9, 3.833976664571412*^9, 
  3.833976932612301*^9, 3.8339770508143587`*^9, 3.83933584248915*^9, 
  3.8394325913183126`*^9, 3.839507162807411*^9, 3.839590487397332*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"6b9364ce-e511-4607-8cb0-16de43b54dfc"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalI]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalI]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"M", " ", 
   RowBox[{
    SuperscriptBox["R", "2"], "(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"1", "+", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[CapitalOmega]", " ", "t"}], "]"}]}], 
       RowBox[{"Sin", "[", 
        RowBox[{"2", " ", "\[CapitalOmega]", " ", "t"}], "]"}], "0"},
      {
       RowBox[{"Sin", "[", 
        RowBox[{"2", " ", "\[CapitalOmega]", " ", "t"}], "]"}], 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[CapitalOmega]", " ", "t"}], "]"}]}], "0"},
      {"0", "0", "0"}
     }], "\[NoBreak]", ")"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833979274884342*^9, 3.833979367788094*^9}, 
   3.839335842489443*^9},
 CellLabel->
  "In[141]:=",ExpressionUUID->"dbbb5dc6-5983-4b56-a260-3881b8ff458a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"M", " ", 
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "t", " ", "\[CapitalOmega]"}], "]"}]}], ")"}]}], 
     ",", 
     RowBox[{"M", " ", 
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "t", " ", "\[CapitalOmega]"}], "]"}]}], ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"M", " ", 
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "t", " ", "\[CapitalOmega]"}], "]"}]}], ",", 
     RowBox[{"M", " ", 
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "t", " ", "\[CapitalOmega]"}], "]"}]}], ")"}]}], 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8339793760382833`*^9, 3.839335842489779*^9, 
  3.83943259150202*^9, 3.839507162954668*^9, 3.839590487587531*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"1f27b311-a9af-4340-b940-90a21e915d78"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     FractionBox[
      RowBox[{"2", " ", "G"}], "r"], ")"}], " ", 
    RowBox[{"D", "[", " ", 
     RowBox[{"\[ScriptCapitalI]", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", "2"}], "}"}]}], " ", "]"}]}], "  ", "/.", " ", 
   RowBox[{"t", "->", " ", 
    RowBox[{"t", "-", "r"}]}]}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.833979386294794*^9, 3.833979436474038*^9}, 
   3.8393358424900713`*^9},
 CellLabel->
  "In[143]:=",ExpressionUUID->"d8d9a8ca-a2f7-44a4-8a63-6af1f1a8c7b0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"8", " ", "G", " ", "M", " ", 
         SuperscriptBox["R", "2"], " ", 
         SuperscriptBox["\[CapitalOmega]", "2"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "r"}], "+", "t"}], ")"}], " ", "\[CapitalOmega]"}], 
          "]"}]}], "r"]}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"8", " ", "G", " ", "M", " ", 
         SuperscriptBox["R", "2"], " ", 
         SuperscriptBox["\[CapitalOmega]", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "r"}], "+", "t"}], ")"}], " ", "\[CapitalOmega]"}], 
          "]"}]}], "r"]}], "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"8", " ", "G", " ", "M", " ", 
         SuperscriptBox["R", "2"], " ", 
         SuperscriptBox["\[CapitalOmega]", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "r"}], "+", "t"}], ")"}], " ", "\[CapitalOmega]"}], 
          "]"}]}], "r"]}], 
      FractionBox[
       RowBox[{"8", " ", "G", " ", "M", " ", 
        SuperscriptBox["R", "2"], " ", 
        SuperscriptBox["\[CapitalOmega]", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "r"}], "+", "t"}], ")"}], " ", "\[CapitalOmega]"}], 
         "]"}]}], "r"], "0"},
     {"0", "0", "0"}
    },
    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.833979393674602*^9, 3.833979438215437*^9}, 
   3.839335842490423*^9, 3.8394325915422077`*^9, 3.839507162997959*^9, 
   3.8395904876281424`*^9},
 CellLabel->
  "Out[143]//MatrixForm=",ExpressionUUID->"a1c0f600-2498-4f09-ab8f-\
f5ae83aea11f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "2.57", " ", "Page", " ", "43"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "Is", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Is", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"Ixx", "0", "0"},
        {"0", "Iyy", "0"},
        {"0", "0", "Izz"}
       }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Is", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8394326221187983`*^9, 3.8394326760883636`*^9}, 
   3.839434645341444*^9},
 CellLabel->
  "In[144]:=",ExpressionUUID->"cb4961f2-3fb7-4342-b671-357bcd5e131d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"Ixx", "0", "0"},
     {"0", "Iyy", "0"},
     {"0", "0", "Izz"}
    },
    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.839432664115539*^9, 3.839432676624237*^9}, 
   3.839434645343533*^9, 3.839507163015534*^9, 3.839590487646772*^9},
 CellLabel->
  "Out[146]//MatrixForm=",ExpressionUUID->"b47e78f1-ae09-462d-90a8-\
67dc5d60ecba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "2.58", " ", "page", " ", "43"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "R\[Phi]", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"R\[Phi]", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"Cos", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], 
         RowBox[{"-", 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "0"},
        {
         RowBox[{"Sin", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "0"},
        {"0", "0", "1"}
       }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"R\[Phi]", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839327445141024*^9, 3.839327530385306*^9}, 
   3.839335842490768*^9},
 CellLabel->
  "In[147]:=",ExpressionUUID->"58e648fe-963f-44f8-9864-0a69f2df96f6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "0"},
     {
      RowBox[{"Sin", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "0"},
     {"0", "0", "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.839327527572164*^9, 3.839327530812913*^9}, 
   3.839335842494981*^9, 3.839432591558786*^9, 3.8395071630599422`*^9, 
   3.839590487681896*^9},
 CellLabel->
  "Out[149]//MatrixForm=",ExpressionUUID->"0a9f6f0f-7abe-496f-a71c-\
5b6e830c56d3"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "S", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"Cos", "[", "\[Iota]", "]"}], "0", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Iota]", "]"}]}]},
      {"0", "1", "0"},
      {
       RowBox[{"Sin", "[", "\[Iota]", "]"}], "0", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}]}
     }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"S", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393275592575293`*^9, 3.8393276081813726`*^9}, 
   3.8393358424954987`*^9},
 CellLabel->
  "In[150]:=",ExpressionUUID->"895eaba8-b3a2-46f5-82d3-5c14e8a10da4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Cos", "[", "\[Iota]", "]"}], "0", 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}]}]},
     {"0", "1", "0"},
     {
      RowBox[{"Sin", "[", "\[Iota]", "]"}], "0", 
      RowBox[{"Cos", "[", "\[Iota]", "]"}]}
    },
    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.839327608589212*^9, 3.8393358424996443`*^9, 
  3.839432591599864*^9, 3.839507163073162*^9, 3.83959048769979*^9},
 CellLabel->
  "Out[152]//MatrixForm=",ExpressionUUID->"6658e702-fb70-4963-ab5a-\
83a363adffd4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Iw", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Iw", "[", "t", "]"}], " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
     "S", " ", ".", " ", "R\[Phi]", " ", ".", " ", "Is", " ", ".", " ", 
      RowBox[{"Transpose", "[", "R\[Phi]", "]"}], " ", ".", " ", 
      RowBox[{"Transpose", "[", "S", "]"}]}], "  ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Iw", "[", "t", "]"}], "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839432708711829*^9, 3.8394327705714827`*^9}, 
   3.8394346453440437`*^9},
 CellLabel->
  "In[153]:=",ExpressionUUID->"9433c2ba-db8b-4e3e-ba8d-c07c50750dc2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Izz", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Iota]", "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Ixx", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], "+", 
          RowBox[{"Iyy", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "Izz"}], "+", 
         RowBox[{"Ixx", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], "+", 
         RowBox[{"Iyy", " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"Iyy", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], "+", 
       RowBox[{"Ixx", " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "Izz"}], "+", 
         RowBox[{"Ixx", " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], "+", 
         RowBox[{"Iyy", " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"Izz", " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Iota]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Ixx", " ", 
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}], "+", 
          RowBox[{"Iyy", " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839432728486046*^9, 3.839432771066876*^9}, 
   3.8394346453461246`*^9, 3.839507163214353*^9, 3.83959048784691*^9},
 CellLabel->
  "Out[155]//MatrixForm=",ExpressionUUID->"4b1262bd-05c7-4b7d-b8e5-\
d9fde0055e76"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "jReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jReplace", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"D", "[", " ", 
         RowBox[{
          RowBox[{"Flatten", "[", "J", "]"}], " ", ",", " ", 
          RowBox[{"{", 
           RowBox[{"t", ",", "2"}], "}"}]}], " ", "]"}], " ", "/.", " ", 
        RowBox[{"t", "->", " ", 
         RowBox[{"t", "-", 
          FractionBox["R", "c"]}]}]}], "  ", ")"}], " ", "==", " ", 
      RowBox[{"Simplify", "[", 
       RowBox[{"Expand", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"Iw", "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "2"}], "}"}]}], "]"}], "]"}], " ", "]"}], 
       "]"}]}], "]"}], " ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"jReplace", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8394331066045227`*^9, 3.839433231840867*^9}, {
   3.839433297489972*^9, 3.839433316593288*^9}, 3.83943464534664*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"9dc17011-ca83-434f-9b94-4c1913ec6eb7"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jxx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Cos", "[", "\[Iota]", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[Phi]", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
         ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jxy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[Phi]", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
         ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jxz", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{"(", 
         RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "\[Iota]"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[Phi]", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jyx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
          RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[Phi]", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
         ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jyy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[Phi]", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jyz", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
          RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[Phi]", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
         ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jzx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{"(", 
         RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "\[Iota]"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[Phi]", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jzy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
          RowBox[{"Sin", "[", "\[Iota]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[Phi]", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"]}], "-", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
         ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["Jzz", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}], "\[Rule]", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Ixx", "-", "Iyy"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Sin", "[", "\[Iota]", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[Phi]", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{"2", " ", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
         ")"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839433107363556*^9, 3.839433232793077*^9}, 
   3.839433317300515*^9, 3.839434645348144*^9, 3.8395071633340683`*^9, 
   3.839590487974263*^9},
 CellLabel->
  "Out[158]//TableForm=",ExpressionUUID->"f9180829-cb82-4de9-ac85-\
9cca0272db5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Need", " ", "this", " ", "first"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq2pt63", "]"}], "\[IndentingNewLine]", 
   RowBox[{"eq2pt63", " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{"\[Epsilon]", " ", "==", " ", 
     FractionBox[
      RowBox[{"Ixx", "-", "Iyy"}], "Izz"]}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8394335381497297`*^9, 3.839433573285883*^9}, {
   3.839433616596693*^9, 3.8394336271073647`*^9}, 3.839434645348465*^9},
 CellLabel->
  "In[159]:=",ExpressionUUID->"7ef26c0e-6737-433c-bfaf-ed1d267e8455"],

Cell[BoxData[
 RowBox[{"\[Epsilon]", "\[Equal]", 
  FractionBox[
   RowBox[{"Ixx", "-", "Iyy"}], "Izz"]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8394335757242327`*^9, 3.839434645350281*^9, 
  3.8395071633482637`*^9, 3.83959048799266*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"d0ad21d0-10c9-4562-896d-e912784a3968"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq2pt63", "  ", ",", " ", "Ixx"}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq2pt63", "  ", ",", " ", "Iyy"}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8394335788157673`*^9, 3.83943361323529*^9}, 
   3.839434645350594*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"756de3f0-a782-44c5-8ae6-30816f4c351d"],

Cell[BoxData[
 RowBox[{"Ixx", "\[Rule]", 
  RowBox[{"Iyy", "+", 
   RowBox[{"Izz", " ", "\[Epsilon]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839433590141555*^9, 3.8394336136866903`*^9}, 
   3.839434645350895*^9, 3.839507163389351*^9, 3.8395904880306473`*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"66229d20-f446-4e8a-8fcf-95bb304b4e7c"],

Cell[BoxData[
 RowBox[{"Iyy", "\[Rule]", 
  RowBox[{"Ixx", "-", 
   RowBox[{"Izz", " ", "\[Epsilon]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839433590141555*^9, 3.8394336136866903`*^9}, 
   3.839434645350895*^9, 3.839507163389351*^9, 3.839590488037023*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"189dc884-789f-4e7f-9cba-8cd43ce46cbc"],

Cell[BoxData[{
 RowBox[{"eq1pt109a", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt62a", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Haven", "'"}], "t", " ", "been", " ", "careful", " ", "about", 
    " ", "R", " ", "vs", " ", "rstar"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt62a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq1pt109a", " ", "/.", " ", "jReplace"}], "  ", "/.", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{"eq2pt63", "  ", ",", " ", "Ixx"}], " ", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "  ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839432811990844*^9, 3.8394328142029057`*^9}, {
   3.839432849492104*^9, 3.839432851267109*^9}, {3.839433322770002*^9, 
   3.839433336424509*^9}, {3.839433400639744*^9, 3.839433413582657*^9}, {
   3.8394334749322433`*^9, 3.839433488516361*^9}, {3.8394336585480556`*^9, 
   3.839433675557083*^9}, 3.839434172147546*^9, 3.839434645352722*^9},
 CellLabel->
  "In[163]:=",ExpressionUUID->"08791cc5-5672-4d58-be2f-9b9409ebeb84"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Equal]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jxx", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["Jyy", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["R", "c"]}], "+", "t"}], "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8394328145983887`*^9, 3.8394328558583*^9, {3.839433329154025*^9, 
   3.839433336748911*^9}, 3.8394334901845703`*^9, 3.839433672828765*^9, 
   3.8394338324497843`*^9, 3.839434645353005*^9, 3.8395071634054613`*^9, 
   3.839590488054616*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"1f081940-79a7-4902-a0e3-14c43b2f34a1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Equal]", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"G", " ", "Izz", " ", "\[Epsilon]", " ", 
     RowBox[{"(", 
      RowBox[{"3", "+", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Iota]"}], "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", 
          RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[Phi]", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", 
          RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["c", "4"], " ", "R"}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.8394328145983887`*^9, 3.8394328558583*^9, {3.839433329154025*^9, 
   3.839433336748911*^9}, 3.8394334901845703`*^9, 3.839433672828765*^9, 
   3.8394338324497843`*^9, 3.839434645353005*^9, 3.8395071634054613`*^9, 
   3.8395904883736563`*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"b83720a7-ee94-4158-bbc6-86d4787ac36f"],

Cell[BoxData[{
 RowBox[{"eq1pt109b", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt62b", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Haven", "'"}], "t", " ", "been", " ", "careful", " ", "about", 
    " ", "R", " ", "vs", " ", "rstar"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt62b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq1pt109b", " ", "/.", " ", "jReplace"}], "  ", "/.", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{"eq2pt63", "  ", ",", " ", "Ixx"}], " ", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839432864270784*^9, 3.839432864366885*^9}, {
   3.839433422984058*^9, 3.839433426846561*^9}, {3.839433495420043*^9, 
   3.8394335010444927`*^9}, {3.83943366509092*^9, 3.839433682886197*^9}, {
   3.839434153992393*^9, 3.8394341645573053`*^9}, 3.839434645354703*^9},
 CellLabel->
  "In[166]:=",ExpressionUUID->"788c7c27-9f8a-4be4-b8d3-8d0e11323562"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hCross", "[", "t", "]"}], "\[Equal]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", 
    RowBox[{
     SuperscriptBox["Jxy", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["R", "c"]}], "+", "t"}], "]"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.839432864871881*^9, 3.839433427425262*^9, 3.839433501708515*^9, {
   3.839433669250486*^9, 3.839433684562727*^9}, 3.839434645354967*^9, 
   3.839507163738909*^9, 3.839590488390819*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"74f97cd5-4ba5-43fb-b5fa-1a08f3444f99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hCross", "[", "t", "]"}], "\[Equal]", 
  FractionBox[
   RowBox[{"2", " ", "G", " ", "Izz", " ", "\[Epsilon]", " ", 
    RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"2", " ", 
         RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[Phi]", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", 
         RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{
  3.839432864871881*^9, 3.839433427425262*^9, 3.839433501708515*^9, {
   3.839433669250486*^9, 3.839433684562727*^9}, 3.839434645354967*^9, 
   3.839507163738909*^9, 3.8395904886318502`*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"1e99b209-e775-48ad-b4bc-7263afc21a0d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt67", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt67", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"h0", " ", "==", 
   RowBox[{
    RowBox[{"(", " ", 
     FractionBox[
      RowBox[{"16", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", "G"}], 
      SuperscriptBox["c", "4"]], " ", ")"}], " ", 
    RowBox[{"(", 
     FractionBox[
      RowBox[{"\[Epsilon]", " ", "Izz", " ", 
       SuperscriptBox["f0", "2"]}], "R"], ")"}], " "}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839434076945822*^9, 3.839434146101161*^9}, 
   3.8394346453566437`*^9},
 CellLabel->
  "In[169]:=",ExpressionUUID->"e75ddad2-2946-483a-a846-f7fa70a0c9ec"],

Cell[BoxData[
 RowBox[{"h0", "\[Equal]", 
  FractionBox[
   RowBox[{"16", " ", 
    SuperscriptBox["f0", "2"], " ", "G", " ", "Izz", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", "\[Epsilon]"}], 
   RowBox[{
    SuperscriptBox["c", "4"], " ", "R"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.839434186631627*^9, 3.839434645357999*^9, 
  3.8395071640560637`*^9, 3.8395904886835213`*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"2e3f50fa-0987-455f-b739-5a845a526259"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", " ", 
     RowBox[{"eq2pt67", " ", ",", " ", "Izz"}], " ", "]"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8394341903700113`*^9, 3.839434211511655*^9}, 
   3.8394346453583117`*^9},
 CellLabel->
  "In[171]:=",ExpressionUUID->"61c53c69-afd8-44dc-8d09-5a83395861dc"],

Cell[BoxData[
 RowBox[{"Izz", "\[Rule]", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", "h0", " ", "R"}], 
   RowBox[{"16", " ", 
    SuperscriptBox["f0", "2"], " ", "G", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", "\[Epsilon]"}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8394342047754793`*^9, 3.839434211770129*^9}, 
   3.8394346453598957`*^9, 3.839507164070428*^9, 3.839590488700728*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"e9556976-1d95-42fd-a6b5-ff6514fe8879"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq2pt66a", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Just", " ", "looks", " ", "funny", " ", "with", " ", "trig", " ", 
    "identity"}], " ", "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt66a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq2pt62a", "  ", "/.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Phi]", "''"}], "[", "t", "]"}], "->", " ", "0"}]}], "  ", "/.",
     " ", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "->", " ", 
     RowBox[{"2", " ", "\[Pi]", " ", "f0"}]}]}], " ", "/.", " ", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq2pt67", " ", ",", " ", "Izz"}], " ", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "  "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839433777346045*^9, 3.839433825802279*^9}, {
   3.839434226334036*^9, 3.8394342589785233`*^9}, 3.839434645360512*^9},
 CellLabel->
  "In[172]:=",ExpressionUUID->"0be56ff9-4abd-4480-a664-43e31ff37e19"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "4"]}], " ", "h0", " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Iota]"}], "]"}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", 
     RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839433775669899*^9, 3.839433798874374*^9}, 
   3.839433836204854*^9, 3.83943422873934*^9, 3.83943464536231*^9, 
   3.839507164108019*^9, 3.839590488736849*^9},
 CellLabel->
  "Out[173]=",ExpressionUUID->"5c335b0f-a40a-40d1-a437-adf511453f16"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt66b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt66b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq2pt62b", "  ", "/.", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Phi]", "''"}], "[", "t", "]"}], "->", " ", "0"}]}], "  ", "/.",
     " ", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "->", " ", 
     RowBox[{"2", " ", "\[Pi]", " ", "f0"}]}]}], " ", "/.", " ", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{"eq2pt67", " ", ",", " ", "Izz"}], " ", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "  "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839434066461451*^9, 3.8394340702936993`*^9}, {
   3.8394342318813553`*^9, 3.839434232997244*^9}, 3.839434645362741*^9},
 CellLabel->
  "In[174]:=",ExpressionUUID->"95570965-69a7-41db-a4f1-da88be0abb8b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hCross", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "h0"}], " ", 
   RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"2", " ", 
     RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.839434071831408*^9, 3.839434233393201*^9, 
  3.839434645364362*^9, 3.839507164122889*^9, 3.839590488755815*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"633fb5ab-600d-4bf4-b043-669f767055cf"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt81", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt81", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"n", " ", "==", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", ",", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", "}"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839327694516736*^9, 3.839327723567473*^9}, 
   3.83933584250008*^9},
 CellLabel->
  "In[176]:=",ExpressionUUID->"4a92f557-e1e5-4b41-a739-69a23c2525d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", 
    RowBox[{
     RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "}"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.839327724020433*^9, 3.839335842504383*^9, 
  3.839432591615458*^9, 3.839507164161306*^9, 3.839590488790846*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"c2e7d8f2-df5b-4c09-b067-bada7d8c7ed1"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt83", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt83", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"p", " ", "==", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", ",", " ", 
        RowBox[{"-", " ", 
         RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", ",", " ", "0"}], " ", 
       "}"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"q", " ", "==", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", ",", " ", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Phi]", "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", ",", " ", 
        RowBox[{"-", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], " ", "}"}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt83", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839327739183679*^9, 3.839327799407629*^9}, 
   3.839335842504919*^9},
 CellLabel->
  "In[178]:=",ExpressionUUID->"2827d29b-9341-422e-b76d-49722dbdd70e"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"p", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", "0"}], "}"}]}]},
     {
      RowBox[{"q", "\[Equal]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
         RowBox[{
          RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{3.8393277998529053`*^9, 3.8393358425087147`*^9, 
  3.839432591652622*^9, 3.839507164175172*^9, 3.839590488812994*^9},
 CellLabel->
  "Out[180]//TableForm=",ExpressionUUID->"5cb6ab43-7344-470b-93d7-\
7be178994ecf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equations", " ", "2.82", "  ", "page", " ", "48"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"ePlus", ",", "eCross"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ePlus", "[", 
     RowBox[{"p_", ",", "q_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"p", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"p", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}], " ", "-", " ", 
         RowBox[{
          RowBox[{"q", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"q", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "p", "]"}]}], "}"}], " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", "q", "]"}]}], "}"}]}], " ", "]"}], "   ", "//",
       " ", "Expand"}], " ", "//", " ", "Simplify"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eCross", "[", 
     RowBox[{"p_", ",", "q_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"p", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"q", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"q", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"p", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "p", "]"}]}], "}"}], " ", ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", "q", "]"}]}], "}"}]}], " ", "]"}], "  ", "//",
       " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393278186560183`*^9, 3.83932800518139*^9}, {
   3.839328083997974*^9, 3.839328101003714*^9}, 3.83933584251264*^9, {
   3.839434536068138*^9, 3.8394345537957983`*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"861f4e14-ae1b-4c89-ac85-99bec982a3ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equations", " ", "2.82", "  ", "page", " ", "48"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ePlus", "[", " ", 
    RowBox[{
     RowBox[{"eq2pt83", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     RowBox[{"eq2pt83", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}]}], " ", "]"}], "  ", "//", " ", 
   "MatrixForm"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839328007448453*^9, 3.8393280497001123`*^9}, {
   3.839328106396483*^9, 3.839328108467185*^9}, 3.839335842513132*^9, {
   3.839434564786478*^9, 3.839434566440299*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"38bbe3f3-d2ea-44e4-ac0d-0d33c15160ec"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], " ", 
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"]}], 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
     {
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           SuperscriptBox[
            RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Cos", "[", "\[Phi]", "]"}], "2"], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Phi]", "]"}], "2"]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}], 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.8393280258473663`*^9, 3.839328050194166*^9}, {
   3.8393280872163363`*^9, 3.839328108783931*^9}, 3.839335842517*^9, 
   3.83943259170761*^9, 3.8395071642543287`*^9, 3.839590488890493*^9},
 CellLabel->
  "Out[184]//MatrixForm=",ExpressionUUID->"be702d08-b09d-4935-bc72-\
4acdcb662c36"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equations", " ", "2.82", "  ", "page", " ", "48"}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"eCross", "[", " ", 
    RowBox[{
     RowBox[{"eq2pt83", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
     RowBox[{"eq2pt83", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}]}], " ", "]"}], "  ", "//", " ", 
   "MatrixForm"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839328140341732*^9, 3.8393281429362803`*^9}, 
   3.839335842517448*^9, {3.8394345684108887`*^9, 3.839434570304171*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"3322a77d-d752-4524-844a-381cb5714437"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"2", " ", "\[Phi]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Phi]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", " ", "\[Phi]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Phi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}
    },
    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.839328143324479*^9, 3.839335842521366*^9, 
  3.839432591749083*^9, 3.839507164296102*^9, 3.83959048892656*^9},
 CellLabel->
  "Out[185]//MatrixForm=",ExpressionUUID->"5f5a7d50-7bea-4cf4-b911-\
0a2cb3dcb78b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eij", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eij", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ePlus", "[", " ", 
      RowBox[{
       RowBox[{"eq2pt83", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
       RowBox[{"eq2pt83", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}], " ", "]"}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"eCross", "[", " ", 
      RowBox[{
       RowBox[{"eq2pt83", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", ",", " ", 
       RowBox[{"eq2pt83", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "2"}], "]"}], "]"}]}], " ", "]"}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839328261979868*^9, 3.839328284432598*^9}, 
   3.83933584252531*^9},
 CellLabel->
  "In[186]:=",ExpressionUUID->"40826446-961e-4bac-8524-7b2433699ed4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Solid", " ", "angle", " ", "is", " ", "4", " ", "\[Pi]", " ", 
     "prefactor"}], " ", "-", " ", 
    RowBox[{"find", " ", "steradian", " ", "integration"}]}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "eq2pt84", "]"}], "\[IndentingNewLine]", 
   RowBox[{"eq2pt84", " ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{"4", "\[Pi]", "  ", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Expand", "[", 
       RowBox[{"Sum", "[", " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", " ", 
           RowBox[{
            RowBox[{"eij", "[", 
             RowBox[{"[", "a", "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", ")"}], "2"], " ", 
         ",", " ", 
         RowBox[{"{", 
          RowBox[{"a", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], " ", "]"}], "]"}], " ", 
      "]"}]}]}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839328314721097*^9, 3.839328350657621*^9}, {
   3.839328407706274*^9, 3.839328533657751*^9}, {3.839328646610505*^9, 
   3.839328669249363*^9}, {3.839328781011466*^9, 3.839328798450944*^9}, 
   3.839335842525805*^9, {3.83943459316324*^9, 3.839434609170691*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"7616a2e7-69bc-45cb-bd05-726d019034da"],

Cell[BoxData[
 RowBox[{"16", " ", "\[Pi]"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.},
 CellChangeTimes->{{3.839328657782205*^9, 3.8393286702599907`*^9}, {
   3.839328782898383*^9, 3.839328799908757*^9}, 3.839335842529891*^9, 
   3.839432591798464*^9, 3.839507164341474*^9, 3.839590488973962*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"8b4b1b6d-f6dc-41fc-8c87-f527b1ef375e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Chapter 3", "Section",
 CellChangeTimes->{{3.839335854306911*^9, 3.839335871966262*^9}, 
   3.8394357676037817`*^9},ExpressionUUID->"c7a6c427-b19f-4a05-b4e8-\
15ec99aa6c61"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt87a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3pt87a", " ", "=", "  ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"p0", " ", "==", " ", 
      RowBox[{
       FractionBox["1", 
        SqrtBox[
         RowBox[{"2", " ", "\[Pi]", " ", 
          SuperscriptBox["\[Rho]", "2"]}]]], 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         FractionBox[
          SuperscriptBox["G", "2"], 
          SuperscriptBox["\[Rho]", "2"]]}], "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"p1", " ", "==", " ", 
      RowBox[{
       FractionBox["1", 
        SqrtBox[
         RowBox[{"2", " ", "\[Pi]", " ", 
          SuperscriptBox["\[Rho]", "2"]}]]], 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"G", "-", 
             SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], 
          SuperscriptBox["\[Rho]", "2"]]}], "]"}]}]}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt87a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.839329151855201*^9, 3.839329280491579*^9}, 
   3.83933586608327*^9, 3.83943576760454*^9},
 CellLabel->
  "In[190]:=",ExpressionUUID->"894a61c7-0d48-4562-99ad-167d49f5714a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"p0", "\[Equal]", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox["G", "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Rho]", "2"]}]]}]], 
        RowBox[{
         SqrtBox[
          RowBox[{"2", " ", "\[Pi]"}]], " ", 
         SqrtBox[
          SuperscriptBox["\[Rho]", "2"]]}]]}]},
     {
      RowBox[{"p1", "\[Equal]", 
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"G", "-", 
              SuperscriptBox["\[Rho]", "2"]}], ")"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Rho]", "2"]}]]}]], 
        RowBox[{
         SqrtBox[
          RowBox[{"2", " ", "\[Pi]"}]], " ", 
         SqrtBox[
          SuperscriptBox["\[Rho]", "2"]]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.839329281063593*^9, 3.8393358660879602`*^9, 
  3.839432591821308*^9, 3.839435767604911*^9, 3.839507164361758*^9, 
  3.839590488993668*^9},
 CellLabel->
  "Out[192]//TableForm=",ExpressionUUID->"70390ba9-9beb-4628-9178-\
09940c2109d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt88a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt88a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Erfc", "[", 
   FractionBox["G0", "\[Rho]"], "]"}]}]}], "Input",
 CellChangeTimes->{{3.839329307341127*^9, 3.839329417904387*^9}, 
   3.839335866088464*^9, 3.8394357676052227`*^9},
 CellLabel->
  "In[193]:=",ExpressionUUID->"04a939c0-44e8-4efd-863d-26eddf4d7f4f"],

Cell[BoxData[
 RowBox[{"Erfc", "[", 
  FractionBox["G0", "\[Rho]"], "]"}]], "Output",
 CellChangeTimes->{3.839329422094244*^9, 3.8393358660926857`*^9, 
  3.839432591874501*^9, 3.839435767605508*^9, 3.839507164393525*^9, 
  3.839590489024971*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"e67dced0-d434-48fb-b943-01e9ded03641"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3pt88b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq3pt88b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"Erfc", "[", 
   RowBox[{
    FractionBox["G0", "\[Rho]"], "-", "\[Rho]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.839329307341127*^9, 3.839329417904387*^9}, 
   3.839335866093142*^9, 3.839435767605802*^9},
 CellLabel->
  "In[195]:=",ExpressionUUID->"8a350153-4ff2-410b-9e9d-c3381e762560"],

Cell[BoxData[
 RowBox[{"Erfc", "[", 
  RowBox[{
   FractionBox["G0", "\[Rho]"], "-", "\[Rho]"}], "]"}]], "Output",
 CellChangeTimes->{3.839329310145049*^9, 3.8393294247424583`*^9, 
  3.8393358660970583`*^9, 3.839432591893194*^9, 3.83943576760607*^9, 
  3.83950716440282*^9, 3.8395904890361433`*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"541adae6-8e08-4adb-af82-e0d3dd15a19f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Chapter 5", "Section",
 CellChangeTimes->{{3.8394357809450283`*^9, 
  3.839435803366172*^9}},ExpressionUUID->"e3a6149f-f0b1-4038-85e1-\
471ef0abbd26"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5pt1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq5pt1", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"g", "  ", "==", "  ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["c", "2"]}], " ", 
     SuperscriptBox["dt", "2"]}], "+", " ", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{"1", " ", "+", " ", 
       RowBox[{"hPlus", "[", 
        RowBox[{"t", "-", 
         RowBox[{"z", "/", "c"}]}], "]"}]}], " ", ")"}], " ", 
     SuperscriptBox["dx", "2"]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{"1", " ", "-", " ", 
       RowBox[{"hPlus", "[", 
        RowBox[{"t", "-", 
         RowBox[{"z", "/", "c"}]}], "]"}]}], " ", ")"}], " ", 
     SuperscriptBox["dy", "2"]}], " ", "+", " ", 
    RowBox[{"2", " ", 
     RowBox[{"hCross", "[", 
      RowBox[{"t", "-", 
       RowBox[{"z", "/", "c"}]}], "]"}], " ", "dx", " ", "dy"}], " ", "+", 
    " ", 
    SuperscriptBox["dz", "2"]}]}]}]}], "Input",
 CellChangeTimes->{{3.8393298330835323`*^9, 3.839329952872303*^9}, 
   3.8393358660976067`*^9, {3.8394357676064157`*^9, 3.839435803366791*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"ed5d86e6-e07d-43bd-b477-dc686297624e"],

Cell[BoxData[
 RowBox[{"g", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["c", "2"]}], " ", 
    SuperscriptBox["dt", "2"]}], "+", 
   SuperscriptBox["dz", "2"], "+", 
   RowBox[{"2", " ", "dx", " ", "dy", " ", 
    RowBox[{"hCross", "[", 
     RowBox[{"t", "-", 
      FractionBox["z", "c"]}], "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["dy", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"hPlus", "[", 
       RowBox[{"t", "-", 
        FractionBox["z", "c"]}], "]"}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["dx", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"hPlus", "[", 
       RowBox[{"t", "-", 
        FractionBox["z", "c"]}], "]"}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.839329955518396*^9, 3.8393358661015387`*^9, 3.83943259193681*^9, {
   3.8394357676066923`*^9, 3.839435803367235*^9}, 3.8395071644384327`*^9, 
   3.839590489064867*^9},
 CellLabel->
  "Out[198]=",ExpressionUUID->"c37925e0-dc5b-4e6d-9eca-02b3c3444d80"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{
     RowBox[{"eq5pt1", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ", "]"}]}], 
  "   ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"g", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.8393301852162943`*^9, 3.839330259148197*^9}, 
   3.839335866102037*^9, {3.839435767606992*^9, 3.839435803367607*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"91d0a6d6-441e-4fa3-a4b0-553a9ad208f9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox["c", "2"]}], "0", "0", "0"},
     {"0", 
      RowBox[{"1", "+", 
       RowBox[{"hPlus", "[", 
        RowBox[{"t", "-", 
         FractionBox["z", "c"]}], "]"}]}], 
      RowBox[{"hCross", "[", 
       RowBox[{"t", "-", 
        FractionBox["z", "c"]}], "]"}], "0"},
     {"0", 
      RowBox[{"hCross", "[", 
       RowBox[{"t", "-", 
        FractionBox["z", "c"]}], "]"}], 
      RowBox[{"1", "-", 
       RowBox[{"hPlus", "[", 
        RowBox[{"t", "-", 
         FractionBox["z", "c"]}], "]"}]}], "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.839330212193818*^9, 3.839330219171569*^9}, {
   3.839330255087762*^9, 3.8393302602731667`*^9}, 3.839335866105929*^9, 
   3.839432591956894*^9, {3.839435767607275*^9, 3.839435803367931*^9}, 
   3.839507164451908*^9, 3.8395904890800543`*^9},
 CellLabel->
  "Out[201]//MatrixForm=",ExpressionUUID->"4d65f75c-1426-4de4-be6e-\
ac3d92931df8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "X", "]"}], "\[IndentingNewLine]", 
 RowBox[{"X", " ", "=", " ", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"t", "[", "\[Lambda]", "]"}], ",", " ", 
    RowBox[{"x", "[", "\[Lambda]", "]"}], ",", " ", 
    RowBox[{"y", "[", "\[Lambda]", "]"}], " ", ",", " ", 
    RowBox[{"z", "[", "\[Lambda]", "]"}]}], " ", "}"}], " "}]}], "Input",
 CellChangeTimes->{{3.839330270513917*^9, 3.8393303588377247`*^9}, 
   3.8393358661063643`*^9, {3.8394357676075697`*^9, 3.839435803368269*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"ed7fb597-cc1b-435a-bb2c-9cc19fcdbfa5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"t", "[", "\[Lambda]", "]"}], ",", 
   RowBox[{"x", "[", "\[Lambda]", "]"}], ",", 
   RowBox[{"y", "[", "\[Lambda]", "]"}], ",", 
   RowBox[{"z", "[", "\[Lambda]", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.839330271841626*^9, 3.839330316101544*^9}, 
   3.839330359474654*^9, 3.8393358661101313`*^9, 3.83943259199835*^9, {
   3.8394357676078377`*^9, 3.839435803368601*^9}, 3.8395071644848623`*^9, 
   3.839590489110423*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"a70baab0-89a4-4a17-b67f-9d94f52d799a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", " ", 
   RowBox[{"X", " ", ",", " ", "\[Lambda]"}], " ", "]"}], " "}]], "Input",
 CellChangeTimes->{{3.839435008957399*^9, 3.839435014974704*^9}, {
  3.839435776504095*^9, 3.839435803369029*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"c9161feb-9a52-4bee-9613-941cf83f43ac"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["t", "\[Prime]",
     MultilineFunction->None], "[", "\[Lambda]", "]"}], ",", 
   RowBox[{
    SuperscriptBox["x", "\[Prime]",
     MultilineFunction->None], "[", "\[Lambda]", "]"}], ",", 
   RowBox[{
    SuperscriptBox["y", "\[Prime]",
     MultilineFunction->None], "[", "\[Lambda]", "]"}], ",", 
   RowBox[{
    SuperscriptBox["z", "\[Prime]",
     MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.839435015258511*^9, {3.839435776506139*^9, 3.8394358033693953`*^9}, 
   3.839507164497541*^9, 3.8395904891237307`*^9},
 CellLabel->
  "Out[204]=",ExpressionUUID->"911764db-2d7a-4b3a-840b-d3f4e43db3e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Page", " ", "116"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "K", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"K", " ", "=", " ", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "}"}]}], 
      "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"K", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellChangeTimes->{{3.839329646659066*^9, 3.839329661443763*^9}, {
   3.839329734335203*^9, 3.839329785396055*^9}, {3.83933062803512*^9, 
   3.839330653888136*^9}, 3.839335866110519*^9, {3.8394348147636633`*^9, 
   3.839434822299046*^9}, {3.83943577650663*^9, 3.839435803369781*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"d5a04edd-5176-4ede-a465-a81cde88a5ae"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"1", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.839329793390882*^9, 3.839330654352803*^9, 3.839335866110869*^9, 
   3.8394325920208817`*^9, {3.839435776507072*^9, 3.839435803370137*^9}, 
   3.839507164534123*^9, 3.839590489154273*^9},
 CellLabel->
  "Out[207]//MatrixForm=",ExpressionUUID->"a4d51646-622a-4469-92e8-\
ba888a76a4db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "eq5pt4", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Geodesic", " ", "Equation"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq5pt4", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Sum", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"g", "[", 
       RowBox[{"[", 
        RowBox[{"\[Alpha]", " ", ",", " ", "\[Beta]"}], "]"}], "]"}], " ", 
      RowBox[{
       RowBox[{"D", "[", " ", 
        RowBox[{"X", " ", ",", " ", "\[Lambda]"}], " ", "]"}], " ", "[", 
       RowBox[{"[", "\[Alpha]", "]"}], "]"}], " ", 
      RowBox[{
       RowBox[{"D", "[", " ", 
        RowBox[{"X", " ", ",", " ", "\[Lambda]"}], " ", "]"}], " ", "[", 
       RowBox[{"[", "\[Beta]", "]"}], "]"}]}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Alpha]", ",", "1", ",", "4"}], "}"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Beta]", ",", "1", ",", "4"}], "}"}]}], " ", "]"}], "  ", "==",
    " ", "0", "  "}]}]}], "Input",
 CellChangeTimes->{{3.839434988820861*^9, 3.8394351036715927`*^9}, {
  3.839435776507428*^9, 3.839435803370524*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"4f94f45f-723e-4409-b09b-320f385e92b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["c", "2"]}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["t", "\[Prime]",
       MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"hPlus", "[", 
       RowBox[{"t", "-", 
        FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["x", "\[Prime]",
       MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "+", 
   RowBox[{"2", " ", 
    RowBox[{"hCross", "[", 
     RowBox[{"t", "-", 
      FractionBox["z", "c"]}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["x", "\[Prime]",
      MultilineFunction->None], "[", "\[Lambda]", "]"}], " ", 
    RowBox[{
     SuperscriptBox["y", "\[Prime]",
      MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"hPlus", "[", 
       RowBox[{"t", "-", 
        FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["y", "\[Prime]",
       MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "+", 
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["z", "\[Prime]",
      MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{
  3.839434989186048*^9, {3.8394350528767567`*^9, 3.839435095915903*^9}, {
   3.839435776509371*^9, 3.839435803370841*^9}, 3.8395071645473413`*^9, 
   3.839590489168908*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"a8d7e5a6-6375-4d10-b705-42fecfc8fe60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptCapitalC]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalC]", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"c1", ",", "c2", ",", "c3"}], "}"}], " "}]}], "Input",
 CellChangeTimes->{{3.839330403613269*^9, 3.839330420814742*^9}, 
   3.839335866111177*^9, {3.839435776509817*^9, 3.839435803371161*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"4b90593d-b81e-4586-b67e-07846d4a68ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"c1", ",", "c2", ",", "c3"}], "}"}]], "Output",
 CellChangeTimes->{
  3.839330421763403*^9, 3.8393358661148767`*^9, 3.839432592066361*^9, {
   3.839435776510315*^9, 3.83943580337147*^9}, 3.8395071645798883`*^9, 
   3.8395904891993027`*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"52df5a91-bc88-4785-93bb-7f36022cc63b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5pt6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5pt6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", " ", 
    RowBox[{
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{"Sum", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"g", "[", 
           RowBox[{"[", 
            RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], "]"}], " ", 
          RowBox[{
           RowBox[{"K", "[", 
            RowBox[{"[", "n", "]"}], "]"}], "[", 
           RowBox[{"[", "\[Alpha]", "]"}], "]"}], " ", 
          RowBox[{"D", "[", " ", 
           RowBox[{
            RowBox[{"X", "[", 
             RowBox[{"[", "\[Beta]", "]"}], "]"}], " ", ",", " ", 
            "\[Lambda]"}], " ", "]"}]}], "  ", ",", " ", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Beta]", ",", "1", ",", "4"}], "}"}]}], " ", "]"}], " ", 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "3"}], "}"}]}], "]"}], "   ", "==", " ", 
     "\[ScriptCapitalC]"}], " ", "]"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5pt6", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.839330434587469*^9, 3.8393305903172207`*^9}, {
   3.839330720150023*^9, 3.839330720658915*^9}, 3.8393358661153173`*^9, {
   3.839434890252058*^9, 3.839434964086926*^9}, {3.839435487202038*^9, 
   3.83943548922546*^9}, {3.8394357765107727`*^9, 3.839435803371852*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"155065ad-36bb-4212-8d75-7bf93bc57d02"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         RowBox[{"hCross", "[", 
          RowBox[{"t", "-", 
           FractionBox["z", "c"]}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}]}], "\[Equal]", 
       "c1"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"hCross", "[", 
          RowBox[{"t", "-", 
           FractionBox["z", "c"]}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}]}], "\[Equal]", 
       "c2"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["c", "2"]}], " ", 
         RowBox[{
          SuperscriptBox["t", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["z", "\[Prime]",
          MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "\[Equal]", 
       "c3"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.839330712242416*^9, 3.839330721275413*^9}, 
   3.83933586611903*^9, 3.839432592088085*^9, {3.839434892552767*^9, 
   3.83943492019946*^9}, 3.839434964387733*^9, 3.839435492422028*^9, {
   3.839435776513027*^9, 3.839435803372176*^9}, 3.839507164594797*^9, 
   3.8395904892151537`*^9},
 CellLabel->
  "Out[214]//TableForm=",ExpressionUUID->"bed7d647-29b4-48cd-b8ea-\
96c14cc4c2cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Union", "[", 
   RowBox[{
    RowBox[{"{", " ", "eq5pt4", "}"}], " ", ",", "eq5pt6"}], " ", "]"}], "  ",
   "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.839435118699141*^9, 3.8394351617746143`*^9}, {
  3.839435776513386*^9, 3.8394358033725*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"3ba43ea1-ae65-45f3-8f01-12bc6fca3205"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         RowBox[{"hCross", "[", 
          RowBox[{"t", "-", 
           FractionBox["z", "c"]}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}]}], "\[Equal]", 
       "c1"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"hCross", "[", 
          RowBox[{"t", "-", 
           FractionBox["z", "c"]}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}]}], "\[Equal]", 
       "c2"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["c", "2"]}], " ", 
         RowBox[{
          SuperscriptBox["t", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["z", "\[Prime]",
          MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "\[Equal]", 
       "c3"}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["c", "2"]}], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["t", "\[Prime]",
            MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["x", "\[Prime]",
            MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"hCross", "[", 
          RowBox[{"t", "-", 
           FractionBox["z", "c"]}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["y", "\[Prime]",
            MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["z", "\[Prime]",
           MultilineFunction->None], "[", "\[Lambda]", "]"}], "2"]}], 
       "\[Equal]", "0"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.839435130484087*^9, 3.839435162020707*^9}, 
   3.8394354960311317`*^9, {3.839435776515298*^9, 3.839435803372816*^9}, 
   3.839507164630499*^9, 3.8395904892479343`*^9},
 CellLabel->
  "Out[215]//TableForm=",ExpressionUUID->"acdbe0b2-0695-4e92-953a-\
c170ec532f66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Figure", " ", "out", " ", "how", " ", "to", " ", "set", " ", "higher", 
      " ", "powers", " ", "equal", " ", "to", " ", "zero"}], "..."}], " ", 
    RowBox[{
     RowBox[{"x", "'"}], "[", "\[Lambda]", "]"}], " ", "and", " ", 
    RowBox[{
     RowBox[{"y", "'"}], "[", "\[Lambda]", "]"}], " ", "look", " ", "right"}],
    " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Collect", "[", " ", 
    RowBox[{
     RowBox[{"Flatten", "[", " ", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"Union", "[", 
         RowBox[{
          RowBox[{"{", " ", "eq5pt4", "}"}], " ", ",", "eq5pt6"}], " ", "]"}],
         " ", ",", " ", 
        RowBox[{"D", "[", " ", 
         RowBox[{"X", " ", ",", " ", "\[Lambda]"}], " ", "]"}]}], "  ", "]"}],
       "  ", "]"}], "  ", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"hPlus", "[", 
        RowBox[{"t", "-", 
         FractionBox["z", "c"]}], "]"}], " ", ",", " ", 
       RowBox[{"hCross", "[", 
        RowBox[{"t", "-", 
         FractionBox["z", "c"]}], "]"}]}], " ", "}"}]}], " ", "]"}], "  ", "//",
    " ", "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.839435164556032*^9, 3.839435211982768*^9}, {
  3.8394353298956203`*^9, 3.8394354027550793`*^9}, {3.839435607377853*^9, 
  3.839435633593264*^9}, {3.839435776515872*^9, 3.8394358033732243`*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"19d1ae1e-98b9-4ee8-bb19-eadc69008dae"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["t", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["c", "2"], " ", "c3"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["c", "2"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hCross", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["c", "2"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SuperscriptBox["c", "2"], " ", "c3"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["c", "2"], " ", "c3", " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["c", "2"], " ", "c3", " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], "2"], "-", 
           
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["c", "2"], "-", 
              SuperscriptBox["c", "4"], "-", 
              RowBox[{
               SuperscriptBox["c", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["c", "4"], " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["c", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["c", "4"], " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["c1", "2"]}], "-", 
              SuperscriptBox["c2", "2"], "-", 
              SuperscriptBox["c3", "2"], "+", 
              RowBox[{"2", " ", "c1", " ", "c2", " ", 
               RowBox[{"hCross", "[", 
                RowBox[{"t", "-", 
                 FractionBox["z", "c"]}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["c3", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["c1", "2"], " ", 
               RowBox[{"hPlus", "[", 
                RowBox[{"t", "-", 
                 FractionBox["z", "c"]}], "]"}]}], "-", 
              RowBox[{
               SuperscriptBox["c2", "2"], " ", 
               RowBox[{"hPlus", "[", 
                RowBox[{"t", "-", 
                 FractionBox["z", "c"]}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["c3", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["c", "2"], "-", 
           SuperscriptBox["c", "4"], "-", 
           RowBox[{
            SuperscriptBox["c", "2"], " ", 
            SuperscriptBox[
             RowBox[{"hCross", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["c", "4"], " ", 
            SuperscriptBox[
             RowBox[{"hCross", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
           RowBox[{
            SuperscriptBox["c", "2"], " ", 
            SuperscriptBox[
             RowBox[{"hPlus", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["c", "4"], " ", 
            SuperscriptBox[
             RowBox[{"hPlus", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "c1"}], "+", 
         RowBox[{"c2", " ", 
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}], "+", 
         RowBox[{"c1", " ", 
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"]}]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "c2"}], "+", 
         RowBox[{"c1", " ", 
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}], "-", 
         RowBox[{"c2", " ", 
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"]}]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["z", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       RowBox[{"c3", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "4"], " ", "c3"}], 
         RowBox[{
          SuperscriptBox["c", "2"], "-", 
          SuperscriptBox["c", "4"], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}]}]], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "4"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hCross", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], 
         RowBox[{
          SuperscriptBox["c", "2"], "-", 
          SuperscriptBox["c", "4"], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}]}]], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "4"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], 
         RowBox[{
          SuperscriptBox["c", "2"], "-", 
          SuperscriptBox["c", "4"], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}]}]], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "2"], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                SuperscriptBox["c", "2"], " ", "c3"}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["c", "2"], " ", "c3", " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["c", "2"], " ", "c3", " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], "2"], "-", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["c", "2"], "-", 
               SuperscriptBox["c", "4"], "-", 
               RowBox[{
                SuperscriptBox["c", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["c", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
               RowBox[{
                SuperscriptBox["c", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["c", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["c1", "2"]}], "-", 
               SuperscriptBox["c2", "2"], "-", 
               SuperscriptBox["c3", "2"], "+", 
               RowBox[{"2", " ", "c1", " ", "c2", " ", 
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["c3", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["c1", "2"], " ", 
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}]}], "-", 
               RowBox[{
                SuperscriptBox["c2", "2"], " ", 
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["c3", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["c", "2"], "-", 
            SuperscriptBox["c", "4"], "-", 
            RowBox[{
             SuperscriptBox["c", "2"], " ", 
             SuperscriptBox[
              RowBox[{"hCross", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["c", "4"], " ", 
             SuperscriptBox[
              RowBox[{"hCross", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
            RowBox[{
             SuperscriptBox["c", "2"], " ", 
             SuperscriptBox[
              RowBox[{"hPlus", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["c", "4"], " ", 
             SuperscriptBox[
              RowBox[{"hPlus", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]]}]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["t", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["c", "2"], " ", "c3"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["c", "2"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hCross", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["c", "2"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               SuperscriptBox["c", "2"], " ", "c3"}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["c", "2"], " ", "c3", " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["c", "2"], " ", "c3", " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], "2"], "-", 
           
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["c", "2"], "-", 
              SuperscriptBox["c", "4"], "-", 
              RowBox[{
               SuperscriptBox["c", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["c", "4"], " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox["c", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["c", "4"], " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["c1", "2"]}], "-", 
              SuperscriptBox["c2", "2"], "-", 
              SuperscriptBox["c3", "2"], "+", 
              RowBox[{"2", " ", "c1", " ", "c2", " ", 
               RowBox[{"hCross", "[", 
                RowBox[{"t", "-", 
                 FractionBox["z", "c"]}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["c3", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
              RowBox[{
               SuperscriptBox["c1", "2"], " ", 
               RowBox[{"hPlus", "[", 
                RowBox[{"t", "-", 
                 FractionBox["z", "c"]}], "]"}]}], "-", 
              RowBox[{
               SuperscriptBox["c2", "2"], " ", 
               RowBox[{"hPlus", "[", 
                RowBox[{"t", "-", 
                 FractionBox["z", "c"]}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["c3", "2"], " ", 
               SuperscriptBox[
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["c", "2"], "-", 
           SuperscriptBox["c", "4"], "-", 
           RowBox[{
            SuperscriptBox["c", "2"], " ", 
            SuperscriptBox[
             RowBox[{"hCross", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["c", "4"], " ", 
            SuperscriptBox[
             RowBox[{"hCross", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
           RowBox[{
            SuperscriptBox["c", "2"], " ", 
            SuperscriptBox[
             RowBox[{"hPlus", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["c", "4"], " ", 
            SuperscriptBox[
             RowBox[{"hPlus", "[", 
              RowBox[{"t", "-", 
               FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "c1"}], "+", 
         RowBox[{"c2", " ", 
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}], "+", 
         RowBox[{"c1", " ", 
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"]}]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "c2"}], "+", 
         RowBox[{"c1", " ", 
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}], "-", 
         RowBox[{"c2", " ", 
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}]}]}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"hCross", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"hPlus", "[", 
           RowBox[{"t", "-", 
            FractionBox["z", "c"]}], "]"}], "2"]}]]}]},
     {
      RowBox[{
       RowBox[{
        SuperscriptBox["z", "\[Prime]",
         MultilineFunction->None], "[", "\[Lambda]", "]"}], "\[Rule]", 
       RowBox[{"c3", "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "4"], " ", "c3"}], 
         RowBox[{
          SuperscriptBox["c", "2"], "-", 
          SuperscriptBox["c", "4"], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}]}]], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "4"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hCross", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], 
         RowBox[{
          SuperscriptBox["c", "2"], "-", 
          SuperscriptBox["c", "4"], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}]}]], "-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "4"], " ", "c3", " ", 
          SuperscriptBox[
           RowBox[{"hPlus", "[", 
            RowBox[{"t", "-", 
             FractionBox["z", "c"]}], "]"}], "2"]}], 
         RowBox[{
          SuperscriptBox["c", "2"], "-", 
          SuperscriptBox["c", "4"], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hCross", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["c", "2"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["c", "4"], " ", 
           SuperscriptBox[
            RowBox[{"hPlus", "[", 
             RowBox[{"t", "-", 
              FractionBox["z", "c"]}], "]"}], "2"]}]}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["c", "2"], " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                SuperscriptBox["c", "2"], " ", "c3"}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["c", "2"], " ", "c3", " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["c", "2"], " ", "c3", " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], "2"], "-", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["c", "2"], "-", 
               SuperscriptBox["c", "4"], "-", 
               RowBox[{
                SuperscriptBox["c", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["c", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
               RowBox[{
                SuperscriptBox["c", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["c", "4"], " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["c1", "2"]}], "-", 
               SuperscriptBox["c2", "2"], "-", 
               SuperscriptBox["c3", "2"], "+", 
               RowBox[{"2", " ", "c1", " ", "c2", " ", 
                RowBox[{"hCross", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["c3", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hCross", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["c1", "2"], " ", 
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}]}], "-", 
               RowBox[{
                SuperscriptBox["c2", "2"], " ", 
                RowBox[{"hPlus", "[", 
                 RowBox[{"t", "-", 
                  FractionBox["z", "c"]}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["c3", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"hPlus", "[", 
                  RowBox[{"t", "-", 
                   FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["c", "2"], "-", 
            SuperscriptBox["c", "4"], "-", 
            RowBox[{
             SuperscriptBox["c", "2"], " ", 
             SuperscriptBox[
              RowBox[{"hCross", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["c", "4"], " ", 
             SuperscriptBox[
              RowBox[{"hCross", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}], "-", 
            RowBox[{
             SuperscriptBox["c", "2"], " ", 
             SuperscriptBox[
              RowBox[{"hPlus", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}], "+", 
            RowBox[{
             SuperscriptBox["c", "4"], " ", 
             SuperscriptBox[
              RowBox[{"hPlus", "[", 
               RowBox[{"t", "-", 
                FractionBox["z", "c"]}], "]"}], "2"]}]}], ")"}]}]]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8394351852009897`*^9, 3.839435212390214*^9}, 
   3.839435331775557*^9, {3.839435395602891*^9, 3.839435403152484*^9}, 
   3.8394354994639606`*^9, {3.8394357765181*^9, 3.839435803373542*^9}, 
   3.8395071647012053`*^9, 3.839590489313449*^9},
 CellLabel->
  "Out[216]//TableForm=",ExpressionUUID->"54edd16a-e426-4f73-8395-\
a7210f45d87e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5pt30", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5pt30", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H", "[", "t", "]"}], " ", "==", " ", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"hPlus", "[", "t", "]"}], 
        RowBox[{"hCross", "[", "t", "]"}], "0"},
       {
        RowBox[{"hCross", "[", "t", "]"}], 
        RowBox[{"-", 
         RowBox[{"hPlus", "[", "t", "]"}]}], "0"},
       {"0", "0", "0"}
      }], "\[NoBreak]", ")"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5pt30", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "    ", "//", " ", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.8395895776764517`*^9, 3.839589646707925*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"5492de5b-d7cd-41c1-be7c-29b6aa38985a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"hPlus", "[", "t", "]"}], 
      RowBox[{"hCross", "[", "t", "]"}], "0"},
     {
      RowBox[{"hCross", "[", "t", "]"}], 
      RowBox[{"-", 
       RowBox[{"hPlus", "[", "t", "]"}]}], "0"},
     {"0", "0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8395896384661627`*^9, 3.839589646938201*^9}, 
   3.83959048934237*^9},
 CellLabel->
  "Out[219]//MatrixForm=",ExpressionUUID->"56b9f26c-3830-4be2-bc51-\
88e035e28ec8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5pt31", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5pt31", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"n", " ", "==", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", ",", " ", 
      RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", ",", " ", 
      RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", "}"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5pt31", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.839589663900258*^9, 3.839589701676111*^9}},
 CellLabel->
  "In[220]:=",ExpressionUUID->"796e9dfe-eeb1-4908-b6db-fb76a0b81bb3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", 
   RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", 
   RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.839589687921288*^9, 3.839589701926696*^9}, 
   3.8395904893715363`*^9},
 CellLabel->
  "Out[222]=",ExpressionUUID->"cd0ea29c-3bd6-4cf6-9740-e5b583088cd8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5pt43", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq5pt43", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", "\[Phi]"}]}], ")"}]}], 
    SuperscriptBox["c", "2"], 
    SuperscriptBox["dt", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"2", "\[Phi]"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["dx", "2"], "+", 
      SuperscriptBox["dy", "2"], "+", 
      SuperscriptBox["dz", "2"]}], ")"}], " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"Plus", " ", "hij", " ", "part"}], ",", " ", 
      RowBox[{"put", " ", "this", " ", "in", " ", "later"}]}], " ", "*)"}], 
    " "}]}]}]}], "Input",
 CellChangeTimes->{{3.839589786349709*^9, 3.83958984634582*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"064980d6-cd9b-4fc2-839b-354e89552cc8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["c", "2"], " ", 
   SuperscriptBox["dt", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     RowBox[{"2", " ", "\[Phi]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"], "+", 
     SuperscriptBox["dz", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"2", " ", "\[Phi]"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.8395898474426928`*^9, 3.839590489384679*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"8099d69d-281e-49be-a06d-ce13fd105a67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq5pt43", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ", "]"}], 
  " ", "//", " ", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.839589849803734*^9, 3.839589869009326*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"cee61de5-6f7a-4f9d-a825-897d94c64397"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "\[Phi]"}]}], ")"}]}], "0", "0", "0"},
     {"0", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Phi]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Phi]"}]}], "0"},
     {"0", "0", "0", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Phi]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8395901791332417`*^9, 3.839590489414586*^9},
 CellLabel->
  "Out[225]//MatrixForm=",ExpressionUUID->"769d4ec2-9b2b-40f2-8dcd-\
60b9e6741c54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", " ", 
    RowBox[{"eq5pt43", " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"dt", ",", "dx", ",", "dy", ",", "dz"}], "}"}]}], " ", "]"}], 
   " ", "/.", " ", 
   RowBox[{"\[Phi]", "->", " ", "0"}]}], " ", "//", " ", "MatrixForm", 
  " "}]], "Input",
 CellChangeTimes->{{3.8395901942153797`*^9, 3.839590203423018*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"c474922f-6427-423a-a3bc-9587ba3c928e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       SuperscriptBox["c", "2"]}], "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.839590203692532*^9, 3.839590489429062*^9},
 CellLabel->
  "Out[226]//MatrixForm=",ExpressionUUID->"b77babf9-0d16-41c5-a031-\
ecfb86952baf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5pt55", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq5pt55", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[CapitalPhi]a", "[", "t", "]"}], " ", "==", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"FaPlus", "[", "t", "]"}], " ", 
     RowBox[{"hPlus", "[", 
      RowBox[{"t", "-", "tr"}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"FaCross", "[", "x", "]"}], " ", 
     RowBox[{"hCross", "[", 
      RowBox[{"t", "-", "tr"}], "]"}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Redo", " ", "this", " ", "so", " ", "that", " ", "retarded", " ", 
       "time", " ", "is", " ", "a", " ", "function", " ", "of", " ", "t"}], 
      " ", "*)"}], " "}]}]}]}]}], "Input",
 CellChangeTimes->{{3.839589934075142*^9, 3.839590006771298*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"0b0e3147-cd61-4d0a-aa4e-bd28b092d44e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalPhi]a", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"FaCross", "[", "x", "]"}], " ", 
    RowBox[{"hCross", "[", 
     RowBox[{"t", "-", "tr"}], "]"}]}], "+", 
   RowBox[{
    RowBox[{"FaPlus", "[", "t", "]"}], " ", 
    RowBox[{"hPlus", "[", 
     RowBox[{"t", "-", "tr"}], "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.839590489459873*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"a3aaf536-363c-4410-85be-3115b5d1fedd"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Chapter 6", "Section",
 CellChangeTimes->{{3.839589551850938*^9, 3.839589565081225*^9}, 
   3.839590458220216*^9},ExpressionUUID->"6e566085-ea15-40b1-ba8f-\
ea5c6a32fcb1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt80a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt80a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"eq2pt66a", "/.", " ", 
   RowBox[{
    RowBox[{"\[Phi]", "[", "t", "]"}], "->", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["1", "2"], ")"}], 
     RowBox[{"(", "  ", 
      RowBox[{
       RowBox[{"\[Phi]", "[", "t", "]"}], "+", " ", 
       RowBox[{"\[Phi]0", "[", "t", "]"}]}], " ", ")"}], 
     "  "}]}]}]}]}], "Input",
 CellChangeTimes->{{3.8394359948052807`*^9, 3.8394359993185663`*^9}, {
   3.8394360558783712`*^9, 3.839436056341284*^9}, {3.8394362223457727`*^9, 
   3.839436242872415*^9}, 3.839589559283554*^9, 3.839590458222315*^9, 
   3.8395977471315613`*^9},
 CellLabel->
  "In[229]:=",ExpressionUUID->"36526f1a-3586-4880-9607-373d0550c24b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hPlus", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "4"]}], " ", "h0", " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Iota]"}], "]"}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "+", 
     RowBox[{"\[Phi]0", "[", "t", "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.839436000140102*^9, 3.8394360569881477`*^9, 
  3.8394362230588207`*^9, 3.839436254490759*^9, 3.839507164713522*^9, 
  3.8395895592838907`*^9, 3.8395904582237673`*^9, 3.8395904894718323`*^9, 
  3.839597747131962*^9},
 CellLabel->
  "Out[230]=",ExpressionUUID->"3cf6ea9a-2a7b-46c8-86ca-ca574b9a375d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt80b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt80b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"eq2pt66b", " ", "/.", " ", 
   RowBox[{
    RowBox[{"\[Phi]", "[", "t", "]"}], "->", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["1", "2"], ")"}], 
     RowBox[{"(", "  ", 
      RowBox[{
       RowBox[{"\[Phi]", "[", "t", "]"}], "+", " ", 
       RowBox[{"\[Phi]0", "[", "t", "]"}]}], " ", ")"}], 
     "  "}]}]}]}]}], "Input",
 CellChangeTimes->{{3.839436075349262*^9, 3.839436079224922*^9}, {
   3.839436109795136*^9, 3.839436213592519*^9}, {3.839436247184637*^9, 
   3.8394362522964907`*^9}, 3.839589559284164*^9, 3.8395904582251062`*^9, 
   3.839597747132327*^9},
 CellLabel->
  "In[231]:=",ExpressionUUID->"acae7075-599e-4fb5-84a4-c078bda7be47"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hCross", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"-", "h0"}], " ", 
   RowBox[{"Cos", "[", "\[Iota]", "]"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "+", 
     RowBox[{"\[Phi]0", "[", "t", "]"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.839436111320766*^9, {3.8394361444651537`*^9, 3.839436213970173*^9}, 
   3.8394362562002373`*^9, 3.8395071647463217`*^9, 3.839589559284474*^9, 
   3.839590458226131*^9, 3.8395904895048847`*^9, 3.839597747132741*^9},
 CellLabel->
  "Out[232]=",ExpressionUUID->"d76ea811-2f46-4ccc-bc0e-1fbfe405e6d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt83a", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt83a", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Fplus", "[", "t", "]"}], " ", "==", " ", 
   RowBox[{
    RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "\[Psi]"}], "]"}]}], " ", "+", " ", 
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"2", "\[Psi]"}], "]"}]}]}], " ", ")"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.839590593780383*^9, 3.8395906425898323`*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"bd6cc6a9-0451-455d-8a02-0f2650eed03b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Fplus", "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "\[Psi]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"b", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "\[Psi]"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.839590662220173*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"974bd2a6-0ad8-47f6-82db-285d2546b61d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq6pt83b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6pt83b", " ", "=", "  ", 
  RowBox[{
   RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
   RowBox[{"(", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", "t", "]"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", "\[Psi]"}], "]"}]}], " ", "-", " ", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "\[Psi]"}], "]"}]}]}], " ", ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.839590596180758*^9, 3.8395906006605663`*^9}, {
  3.839590652252962*^9, 3.8395906608221073`*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"d4d022ac-2dce-4941-87dd-7bec25530b39"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "[", "t", "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "\[Psi]"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"a", "[", "t", "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"2", " ", "\[Psi]"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.839590663660116*^9},
 CellLabel->
  "Out[236]=",ExpressionUUID->"94a1602b-c3bd-4872-90ab-740c751876e4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Appendix (Figure out different coordinate systems and rotation matrices)\
\>", "Section",
 CellChangeTimes->{{3.839597679042922*^9, 3.8395976898405037`*^9}, {
  3.839597747132855*^9, 
  3.8395977673504887`*^9}},ExpressionUUID->"596dd541-c6ae-420f-8255-\
53ed2b33ae33"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Rx", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Rx", "[", "\[Theta]_", "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
     {"0", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}
    }], "\[NoBreak]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.839596714356967*^9, 3.839596734145727*^9}, {
   3.83959679200152*^9, 3.8395968135135927`*^9}, {3.8395968642660427`*^9, 
   3.839596865337328*^9}, {3.839596980397279*^9, 3.839596980555963*^9}, 
   3.839597684229768*^9, 3.839597747133184*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"21181733-98e9-4132-8d78-32a53755ef85"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Ry", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ry", "[", "\[Theta]_", "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Cos", "[", "\[Theta]", "]"}], "0", 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
     {"0", "1", "0"},
     {
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "0", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}
    }], "\[NoBreak]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.839596741913124*^9, 3.8395967881692743`*^9}, {
   3.839596982629315*^9, 3.839596982875877*^9}, 3.8395976842300663`*^9, 
   3.839597747133505*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"2e39c4d8-9fe7-4530-a791-68d9b4e80dcf"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Rz", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Rz", "[", "\[Theta]_", "]"}], ":=", " ", "\[IndentingNewLine]", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"Cos", "[", "\[Theta]", "]"}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"},
     {
      RowBox[{"Sin", "[", "\[Theta]", "]"}], 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], "0"},
     {"0", "0", "1"}
    }], "\[NoBreak]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.839596749201214*^9, 3.839596751393486*^9}, {
   3.8395968274650517`*^9, 3.8395968472723618`*^9}, {3.839596984501334*^9, 
   3.839596984692484*^9}, 3.839597684230361*^9, 3.839597747134001*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"21644670-c04c-4a8f-b481-030bc5aa53cb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Rz", "[", "\[Lambda]", "]"}], " ", ".", "  ", 
   RowBox[{"Rx", "[", "\[Beta]", "]"}], " ", ".", "  ", 
   RowBox[{"Rz", "[", "\[Psi]", "]"}]}], "  ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8395972344414673`*^9, 3.8395972874737797`*^9}, 
   3.839597684230657*^9, 3.8395977471343403`*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"b264bb01-7d55-451b-aa6f-f765d93fb730"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", 
        RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Lambda]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Lambda]", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Lambda]", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Lambda]", "]"}]}], " ", 
       RowBox[{"Sin", "[", "\[Beta]", "]"}]}]},
     {
      RowBox[{
       RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Psi]", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Beta]", "]"}]}], 
      RowBox[{"Cos", "[", "\[Beta]", "]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.839597276457259*^9, 3.8395972877109127`*^9}, 
   3.83959768423102*^9, 3.839597747134667*^9},
 CellLabel->
  "Out[22]//MatrixForm=",ExpressionUUID->"46e0fd35-65f6-4e81-9adb-\
8530767d52b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "C", ".8"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "O1", "]"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"O1", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{
          RowBox[{
           RowBox[{"Sin", "[", "\[Lambda]", "]"}], 
           RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "\[Minus]", 
          RowBox[{
           RowBox[{"Cos", "[", "\[Lambda]", "]"}], 
           RowBox[{"Sin", "[", "\[Beta]", "]"}], 
           RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"\[Minus]", 
            RowBox[{"Sin", "[", "\[Lambda]", "]"}]}], 
           RowBox[{"Sin", "[", "\[Psi]", "]"}]}], "\[Minus]", 
          RowBox[{
           RowBox[{"Cos", "[", "\[Lambda]", "]"}], 
           RowBox[{"Sin", "[", "\[Beta]", "]"}], 
           RowBox[{"Cos", "[", "\[Psi]", "]"}]}]}], 
         RowBox[{
          RowBox[{"\[Minus]", 
           RowBox[{"Cos", "[", "\[Lambda]", "]"}]}], 
          RowBox[{"Cos", "[", "\[Beta]", "]"}]}]},
        {
         RowBox[{
          RowBox[{
           RowBox[{"\[Minus]", 
            RowBox[{"Cos", "[", "\[Lambda]", "]"}]}], 
           RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "\[Minus]", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Lambda]", "]"}], 
           RowBox[{"Sin", "[", "\[Beta]", "]"}], 
           RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
         RowBox[{
          RowBox[{"Cos", "[", "\[Lambda]", "]"}], 
          RowBox[{"Sin", "[", "\[Psi]", "]"}], 
          RowBox[{"Sin", "[", "\[Lambda]", "]"}], 
          RowBox[{"Sin", "[", "\[Beta]", "]"}], 
          RowBox[{"Cos", "[", "\[Psi]", "]"}]}], 
         RowBox[{
          RowBox[{"\[Minus]", 
           RowBox[{"Sin", "[", "\[Lambda]", "]"}]}], 
          RowBox[{"Cos", "[", "\[Beta]", "]"}]}]},
        {
         RowBox[{
          RowBox[{"Cos", "[", "\[Beta]", "]"}], 
          RowBox[{"Sin", "[", "\[Psi]", "]"}]}], 
         RowBox[{
          RowBox[{"Cos", "[", "\[Beta]", "]"}], 
          RowBox[{"Cos", "[", "\[Psi]", "]"}]}], 
         RowBox[{"-", 
          RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}
       }], "\[NoBreak]", ")"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{"O1", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellChangeTimes->{{3.839600568648211*^9, 3.839600569899828*^9}, {
  3.8396007385898943`*^9, 
  3.839600971412272*^9}},ExpressionUUID->"c2239d0d-e696-44d4-a416-\
bb228caa9218"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Lambda]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "\[Lambda]", "]"}]}], " ", 
        RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", 
       RowBox[{"Cos", "[", "\[Lambda]", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "\[Lambda]", "]"}]}], " ", 
        RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Lambda]", "]"}], " ", 
        RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Lambda]", "]"}], " ", 
       RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Lambda]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Psi]", "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", 
       RowBox[{"Sin", "[", "\[Lambda]", "]"}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Psi]", "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", 
       RowBox[{"Cos", "[", "\[Psi]", "]"}]}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.839600926378189*^9, 3.8396009569142227`*^9},
 CellLabel->
  "Out[28]//MatrixForm=",ExpressionUUID->"7c4362bd-b262-49bb-b831-\
6b03f530d397"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "C", ".9"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\[Sigma]", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Sigma]", "[", "a_", "]"}], ":=", " ", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", "3"}], "\[Pi]"}], "2"], "+", 
     RowBox[{
      FractionBox["2", "3"], 
      RowBox[{"(", 
       RowBox[{"a", "-", "1"}], ")"}], "\[Pi]", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.839600993517932*^9, 3.8396010337345533`*^9}, {
  3.839601127882388*^9, 
  3.839601134961033*^9}},ExpressionUUID->"5900f885-1987-4dfd-894f-\
6de7efd3bb6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"\[Sigma]", "[", "a", "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"a", ",", "1", ",", "3"}], "}"}]}], " ", "]"}], "  "}]], "Input",\

 CellChangeTimes->{{3.839601036763517*^9, 
  3.839601044942795*^9}},ExpressionUUID->"331dd4bc-75b0-4898-90d8-\
25314e6d1b8a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"5", " ", "\[Pi]"}], "6"]}], ",", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "6"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8396010430397882`*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"7f8f3863-f8a2-4186-9e15-fd81c99a7de1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "C", ".8"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "x", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "[", "a_", "]"}], ":=", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["L", 
       SqrtBox["3"]], ")"}], 
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"-", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", 
          RowBox[{"\[Sigma]", "[", "a", "]"}]}], " ", "]"}]}], " ", ",", " ", 
       
       RowBox[{"Sin", "[", 
        RowBox[{"2", " ", 
         RowBox[{"\[Sigma]", "[", "a", "]"}]}], "]"}], " ", ",", " ", "0"}], 
      " ", "}"}], " "}]}]}]}]], "Input",
 CellChangeTimes->{{3.839601063766657*^9, 
  3.839601141368978*^9}},ExpressionUUID->"84f36a84-4dff-4a67-9b99-\
d54e6440a485"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", " ", 
   RowBox[{
    RowBox[{"x", "[", "a", "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"a", ",", "1", ",", "3"}], "}"}]}], " ", "]"}], "  "}]], "Input",\

 CellChangeTimes->{{3.839601155885111*^9, 3.839601171563427*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"0032eeaa-b4b3-48f2-8b7d-901741c8e4da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["L", 
      SqrtBox["3"]], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["L", 
       RowBox[{"2", " ", 
        SqrtBox["3"]}]]}], ",", 
     FractionBox["L", "2"], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["L", 
       RowBox[{"2", " ", 
        SqrtBox["3"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox["L", "2"]}], ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.83960116256882*^9, 3.839601171976239*^9}},
 CellLabel->"Out[35]=",ExpressionUUID->"b48f59ec-6f72-4049-aeaf-c9634aef60c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eqCpt11a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eqCpt11a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Eta]", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{"\[CapitalOmega]", " ", "t"}], " ", "+", " ", "\[Eta]0"}]}], 
     " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Xi]", "[", "t", "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", " ", "\[CapitalOmega]"}], " ", "t"}], " ", "+", " ", 
       "\[Xi]0"}]}]}], "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eqCpt11a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8396012010435038`*^9, 3.8396012623889513`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"1e9d46de-4363-4404-8e16-8a70be0f6b0c"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"\[Eta]", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"\[Eta]0", "+", 
        RowBox[{"t", " ", "\[CapitalOmega]"}]}]}]},
     {
      RowBox[{
       RowBox[{"\[Xi]", "[", "t", "]"}], "\[Equal]", 
       RowBox[{"\[Xi]0", "-", 
        RowBox[{"t", " ", "\[CapitalOmega]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.839601262658444*^9},
 CellLabel->
  "Out[38]//TableForm=",ExpressionUUID->"8e875354-fc62-4590-99f3-\
4cc20d17201f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Equation", " ", "C", ".12", " ", "Page", " ", "223"}], " ", 
   "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"\[Zeta]", " ", "is"}], " ", "-", " ", 
    RowBox[{"\[Pi]", "/", "6"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "O2", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"O2", " ", "=", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"O1", " ", "/.", " ", 
        RowBox[{"\[Lambda]", "->", " ", 
         RowBox[{"\[Eta]", "[", "t", "]"}]}]}], " ", "/.", " ", 
       RowBox[{"\[Psi]", "->", " ", 
        RowBox[{"\[Xi]", "[", "t", "]"}]}]}], " ", "/.", " ", 
      RowBox[{"\[Beta]", "->", " ", "\[Zeta]"}]}]}], "  ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"O2", " ", "//", " ", "MatrixForm"}]}]}]], "Input",
 CellChangeTimes->{{3.83960134571647*^9, 3.839601378719816*^9}, {
  3.83960143713879*^9, 3.839601460849264*^9}, {3.83960154622082*^9, 
  3.839601583403502*^9}},ExpressionUUID->"1607c39b-10c0-44d1-a516-\
2023505f265b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", "\[Zeta]", "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Zeta]", "]"}]}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}]}], 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", "\[Zeta]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Zeta]", "]"}]}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"Cos", "[", "\[Zeta]", "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"Cos", "[", "\[Zeta]", "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Zeta]", "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.839601348813176*^9, 3.839601379036729*^9}, {
  3.839601443736364*^9, 3.839601461223238*^9}},
 CellLabel->
  "Out[45]//MatrixForm=",ExpressionUUID->"07fe7fef-a58f-4ae6-844d-\
e549d4daac34"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"\[Zeta]", " ", "is"}], " ", "-", " ", 
    RowBox[{"\[Pi]", "/", "6"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"O2", "  ", "/.", " ", 
    RowBox[{"\[Zeta]", "->", " ", 
     FractionBox["\[Pi]", "6"]}]}], "//", " ", "MatrixForm"}]}]], "Input",
 CellChangeTimes->{{3.839601595875083*^9, 
  3.839601612313601*^9}},ExpressionUUID->"78aae896-62aa-4b16-839c-\
716d3fc328d8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SqrtBox["3"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SqrtBox["3"], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Eta]", "[", "t", "]"}], "]"}]}]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       SqrtBox["3"], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       SqrtBox["3"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Xi]", "[", "t", "]"}], "]"}]}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.839601602504088*^9},
 CellLabel->
  "Out[46]//MatrixForm=",ExpressionUUID->"6e4933bb-8c83-4a39-b28e-\
08b5702c53dc"]
}, Open  ]]
}, Closed]]
},
WindowSize->{1276, 675},
WindowMargins->{{-1280, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (May 11, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"ef776fb6-35ac-4fd7-80d9-3fdaa2b7a9ac"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2607, 37, 159, "Title",ExpressionUUID->"bf2093aa-0c8a-441d-80c9-a9038bcabcc5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[3190, 61, 1149, 19, 76, "Author",ExpressionUUID->"d90b3a65-fc1b-46ac-95bb-caff546061e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[4376, 85, 228, 4, 69, "Section",ExpressionUUID->"4018e0fa-934d-4e80-aa06-e9c4a30e0e1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[4607, 91, 438, 10, 63, "Input",ExpressionUUID->"f776081a-9155-4882-b10a-e9629774f434",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[5048, 103, 1444, 23, 43, "Output",ExpressionUUID->"8ea8bb32-186a-4632-b5af-395f66a653bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[6529, 131, 687, 11, 55, "Section",ExpressionUUID->"0af3484f-1ffe-44b0-b08e-a37f1829f5ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7219, 144, 499, 9, 63, "Input",ExpressionUUID->"d44c5ea1-c3f6-4e97-9c00-08ba7ba1ec31",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7721, 155, 443, 8, 43, "Output",ExpressionUUID->"82057568-99b1-41bf-842d-193a74107fda",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[8201, 168, 251, 4, 55, "Section",ExpressionUUID->"ebe3be3e-1cb6-4d5c-addd-4e11ac2c2adb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[8455, 174, 1673, 46, 189, "Input",ExpressionUUID->"b8ef1450-7e76-419a-9732-5513bb364347",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[10131, 222, 520, 11, 24, "Print",ExpressionUUID->"53ae92ab-bb92-42f9-b9ea-7fac536cf1ab",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[10654, 235, 539, 12, 24, "Print",ExpressionUUID->"324f6291-8739-4bdd-9f58-c57eb0b3bee7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11196, 249, 268, 4, 41, "Input",ExpressionUUID->"5f117bb9-8ce7-4786-b153-9d29a8dc9ba7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[11467, 255, 308, 5, 41, "Input",ExpressionUUID->"26f406c9-2de2-4098-925a-8f76f01b7fcb",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[11812, 265, 362, 6, 55, "Section",ExpressionUUID->"928a374f-c351-4f5d-b5a8-2faf74eef30f",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[12177, 273, 1659, 41, 126, "Input",ExpressionUUID->"a18bc018-459d-4cf5-9e5e-03c5c3955ce4",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[13839, 316, 1055, 26, 84, "Input",ExpressionUUID->"81a63e82-cce3-4e53-8378-f8cd91aa4ea6",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14931, 347, 209, 4, 55, "Section",ExpressionUUID->"4a9bda0f-6315-42db-9744-92e1b46d943a",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[15143, 353, 821, 19, 184, "Input",ExpressionUUID->"0e62baef-caa5-474e-a894-525fb67c1018",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[15967, 374, 889, 25, 101, "Output",ExpressionUUID->"8c050ba3-9a6f-4c0b-be70-c49ebd12db53",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[16859, 401, 846, 18, 184, "Input",ExpressionUUID->"803e278a-0956-48b2-8c7e-5dfc5c3be833",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[17708, 421, 864, 24, 101, "Output",ExpressionUUID->"05759ae3-1355-4c4e-a883-6d7715266ca5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[18575, 447, 673, 16, 100, "Input",ExpressionUUID->"bed20dc6-f645-4ba5-9669-7d8dffc800e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19251, 465, 545, 13, 57, "Output",ExpressionUUID->"1faa6c85-a692-4640-b582-052e90709c99",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[19799, 480, 719, 16, 100, "Input",ExpressionUUID->"e2371f19-e949-4d9d-850b-5e12a147a4f9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[20521, 498, 566, 14, 57, "Output",ExpressionUUID->"85ece645-ac88-43ff-ad70-fb295a849efb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21090, 514, 396, 7, 84, "Input",ExpressionUUID->"f137aca9-e388-4bad-905a-6535ef609f72",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21489, 523, 298, 4, 41, "Output",ExpressionUUID->"0c2aee1d-e247-4051-8b6b-5674f29aa582",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[21790, 529, 1027, 23, 168, "Input",ExpressionUUID->"65bd6c42-4f2d-4c98-8e4d-8ffd19ca18a6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[22820, 554, 1018, 31, 85, "Output",ExpressionUUID->"d29a73ea-ea85-4275-a334-b2dcabe6c112",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23841, 587, 1926, 46, 147, "Input",ExpressionUUID->"332ae654-c302-4b4d-85c4-8f9795143a3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25770, 635, 1390, 40, 87, "Output",ExpressionUUID->"2cff46b7-7c6e-4f82-9352-a47fbf4c81e7",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27163, 677, 1155, 27, 199, "Input",ExpressionUUID->"491e0d80-4b16-4349-a946-e0a83fec200b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28321, 706, 1223, 37, 87, "Output",ExpressionUUID->"0f8b50b7-8394-46f3-890d-b74c7cd5abc5",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29547, 745, 555, 13, 41, "Input",ExpressionUUID->"a91aa7d4-250b-4562-a5cc-c4cb52da8219",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30105, 760, 1419, 43, 89, "Output",ExpressionUUID->"861b9d9b-34a5-4d5b-b97e-d95d1e8c0268",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[31527, 805, 929, 22, 84, "Input",ExpressionUUID->"38a18f77-59c5-4e32-bf5b-a10858e6419d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32459, 829, 987, 29, 64, "Output",ExpressionUUID->"c9075ec7-88e0-4967-8c07-0a177eff5c9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33449, 860, 1140, 30, 84, "Input",ExpressionUUID->"21868d08-c1b9-4699-aa23-2975df5d6e40",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34592, 892, 585, 15, 64, "Output",ExpressionUUID->"aec7f5bf-b316-4de7-adad-d93321d8b5ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35180, 909, 543, 13, 59, "Output",ExpressionUUID->"02fec1f2-71e1-4307-a2ed-9f8e8d95b691",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35726, 924, 458, 10, 64, "Output",ExpressionUUID->"82ef345d-220b-475b-9a93-bf6018d02d66",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36187, 936, 1139, 30, 84, "Input",ExpressionUUID->"7e7596da-18f6-490e-aee0-3ed537458cd0",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37329, 968, 607, 16, 64, "Output",ExpressionUUID->"bb389bf6-3df7-4c28-bddb-b762bb7f0f1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[37939, 986, 520, 12, 59, "Output",ExpressionUUID->"899a702a-4a99-4e32-89af-03cce73230c3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38462, 1000, 454, 10, 64, "Output",ExpressionUUID->"384f96bf-a0f0-4433-89f1-31c2da83f733",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[38919, 1012, 1639, 41, 105, "Input",ExpressionUUID->"c4d6e0e2-1ab0-4a5b-a8b2-eaa12062dd61",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[40561, 1055, 627, 16, 64, "Output",ExpressionUUID->"829e5fde-a056-4762-9b0a-e03f25061f16",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[41191, 1073, 838, 18, 41, "Input",ExpressionUUID->"214a1f29-0791-46dd-aa3d-f48744f359ac",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42032, 1093, 2480, 67, 68, "Output",ExpressionUUID->"d1111e10-ef44-475f-a951-89f1ab6ecb3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[44515, 1162, 851, 18, 105, "Input",ExpressionUUID->"3a93a47b-dce7-4f52-b075-e74a7558daa3",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45369, 1182, 1320, 37, 83, "Output",ExpressionUUID->"f2ca3c0a-aca6-4527-96df-a45193753e77",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46692, 1221, 1417, 32, 149, "Input",ExpressionUUID->"fdfa85fc-a64e-431c-8545-47cb8b37ba89",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[48112, 1255, 1271, 35, 62, "Output",ExpressionUUID->"5c422959-42d4-44a9-bf96-f2ce9076b7ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[49386, 1292, 624, 13, 41, "Input",ExpressionUUID->"c5a7c055-dd7a-40ba-9205-49dc619e1ab9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[50013, 1307, 2002, 57, 68, "Output",ExpressionUUID->"2bd5ba8a-6f1f-4f9e-a206-85df7abac337",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[52018, 1366, 1243, 28, 86, "Input",ExpressionUUID->"0ae8106c-8676-4fa8-b264-fe14d5628b30",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[53264, 1396, 1084, 31, 64, "Output",ExpressionUUID->"ab42a6bb-3bb6-4eb7-99fc-06fa34c2f957",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[54351, 1429, 1647, 41, 130, "Input",ExpressionUUID->"31a0ff67-ae54-4d17-8f48-4981590d7574",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[56001, 1472, 941, 25, 59, "Output",ExpressionUUID->"c0efaaab-1965-480d-bfa5-180e304d02ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[56945, 1499, 477, 10, 63, "Input",ExpressionUUID->"d8266398-d8e3-4d58-b860-2e7a8d006479",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[57425, 1511, 530, 10, 84, "Input",ExpressionUUID->"e2a18f34-10a4-483c-9d87-a29db1eda9e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[57958, 1523, 5565, 164, 189, "Output",ExpressionUUID->"49bed35a-6644-4627-9b0f-76daf9effdd2",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[63526, 1689, 1139, 28, 84, "Input",ExpressionUUID->"ebdf530b-9c9a-47cf-9742-68ae060af965",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[64668, 1719, 405, 8, 63, "Input",ExpressionUUID->"e7cfea48-e12f-4d25-bd79-acf70fa19757",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[65076, 1729, 351, 6, 41, "Output",ExpressionUUID->"487f2f02-8781-4f8f-ac94-0acef914d8ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[65430, 1737, 623, 13, 63, "Input",ExpressionUUID->"afdfa751-24e2-42ae-b4e7-e47505c920e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[66056, 1752, 828, 23, 83, "Output",ExpressionUUID->"740e93b4-b146-4e94-b58f-43f7668a8f9b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[66887, 1777, 958, 22, 146, "Input",ExpressionUUID->"bac85420-c596-49bc-a03f-6000d08170b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[67848, 1801, 1131, 32, 87, "Output",ExpressionUUID->"9bb08ba0-dd6c-418d-a7f8-4c79a14afa15",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[68982, 1835, 1982, 52, 122, "Input",ExpressionUUID->"68b74659-7d09-4251-90ab-df0f9b39a828",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[70967, 1889, 1296, 37, 101, "Output",ExpressionUUID->"fc75dc6c-437a-4b08-83e3-e092ad82dc02",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[72266, 1928, 1074, 28, 102, "Input",ExpressionUUID->"91f1d19b-3514-465e-b9bd-dff241608f5b",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[73343, 1958, 740, 14, 105, "Input",ExpressionUUID->"9e307bbd-4532-4d16-bf8d-0e3739cc171c",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[74086, 1974, 1088, 29, 66, "Output",ExpressionUUID->"24ff202d-c820-433e-acd1-8b02979738c9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[75177, 2005, 742, 14, 105, "Input",ExpressionUUID->"49a3c057-6052-4f90-b029-194dc1caf06d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[75922, 2021, 1083, 29, 66, "Output",ExpressionUUID->"9c34edfb-7a2e-41ae-ad12-d013e75d1191",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[77008, 2052, 1107, 26, 105, "Input",ExpressionUUID->"0a962414-26ff-43ec-ac6c-5c44338e17ae",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[78118, 2080, 3175, 91, 139, "Output",ExpressionUUID->"f2154dd1-f3f0-4074-9ecd-d8bf76748922",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[81296, 2173, 1284, 32, 102, "Input",ExpressionUUID->"2d93dcf9-7377-4bc9-9d35-c87d2cd08bfb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[82583, 2207, 540, 11, 41, "Input",ExpressionUUID->"b6c464f6-11e4-4d63-968c-135524a545ba",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[83126, 2220, 1717, 54, 64, "Output",ExpressionUUID->"4597666c-af41-43d0-8e20-4d5aaefe38fb",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[84846, 2276, 1889, 51, 102, "Input",ExpressionUUID->"cc158835-6d54-40b2-a396-6295b5f2f9a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[86738, 2329, 452, 10, 41, "Input",ExpressionUUID->"e1ba1122-0f0f-435f-bf8e-7360e4d54f76",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[87193, 2341, 3584, 106, 71, "Output",ExpressionUUID->"3897431a-1f4d-4ad6-8166-e693306e33ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[90814, 2452, 210, 4, 55, "Section",ExpressionUUID->"202b57d4-f755-4079-a9e8-70e932bad91b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[91027, 2458, 770, 17, 178, "Input",ExpressionUUID->"1da5e7ba-4b8a-4cb2-a596-f86387f50d0c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[91800, 2477, 924, 28, 75, "Output",ExpressionUUID->"b6d8d466-a58a-4436-8b46-1e1fa97f92f7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[92727, 2507, 1163, 32, 105, "Input",ExpressionUUID->"fa06bdd4-3fd2-4bdc-957b-635ee9c75a3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[93893, 2541, 380, 7, 41, "Output",ExpressionUUID->"0e5a25df-20e8-4baa-b53b-c500a5214bd5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[94276, 2550, 381, 7, 41, "Output",ExpressionUUID->"01a8be8c-31bd-46d9-a940-0e6dabce1b89",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[94660, 2559, 407, 8, 57, "Output",ExpressionUUID->"977e8027-f8e1-435c-aa56-38646b77fdfd",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[95070, 2569, 407, 8, 57, "Output",ExpressionUUID->"f64a09eb-8c06-42d0-89a2-d06b8baae080",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[95480, 2579, 535, 11, 101, "Input",ExpressionUUID->"bacba9d8-2cf5-4af7-9447-0e783dee4086",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[96018, 2592, 479, 10, 58, "Output",ExpressionUUID->"33bae3cc-2c20-4488-b573-9481997fe792",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[96500, 2604, 705, 14, 84, "Input",ExpressionUUID->"4b56c2f7-83e3-4aac-959e-3951db05f3e8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[97208, 2620, 406, 8, 41, "Output",ExpressionUUID->"8aef6313-e5d8-4635-aea3-0f938e7f837f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[97617, 2630, 525, 11, 84, "Input",ExpressionUUID->"d40deff3-110c-469f-ac4a-891dba41375d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98145, 2643, 428, 9, 41, "Output",ExpressionUUID->"1d85a429-34fc-41d2-9a59-f8c58d4ddb05",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[98576, 2654, 2616, 68, 210, "Input",ExpressionUUID->"52bde896-c3d6-43a0-b592-421b2b45eac5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[101195, 2724, 531, 10, 57, "Output",ExpressionUUID->"107134d3-b209-4ee6-8c5e-8e46e0e2e896",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[101729, 2736, 552, 11, 57, "Output",ExpressionUUID->"a946396e-5e2a-4600-a153-ac7ad032257b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[102284, 2749, 1081, 31, 83, "Output",ExpressionUUID->"de3e7111-f30b-495e-a663-b583ef6123b4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[103368, 2782, 1012, 25, 147, "Input",ExpressionUUID->"abf7dc95-58ee-44ef-9c5f-676e4788a9e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[104383, 2809, 1104, 34, 69, "Output",ExpressionUUID->"48e396a7-acb1-4c59-a509-bfdf77e55057",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[105490, 2845, 701, 17, 108, "Input",ExpressionUUID->"437164bc-897a-4713-a0b0-89597ee1987a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[106194, 2864, 623, 16, 63, "Output",ExpressionUUID->"9a08592e-cc88-4e0c-9fc2-f6a7260abfb1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[106820, 2882, 1479, 35, 126, "Input",ExpressionUUID->"14eb65a2-167a-450b-8af1-a7a7f8ff4462",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[108302, 2919, 2561, 51, 534, "Output",ExpressionUUID->"ade12960-fa39-438b-8b1e-54f00b9ee32b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[110866, 2972, 1045, 25, 144, "Input",ExpressionUUID->"b3333317-61ce-44ee-807d-3d981221bda1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[111914, 2999, 1010, 28, 85, "Output",ExpressionUUID->"d3c98193-47c7-4990-afe5-19c66fc41cc3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[112927, 3029, 1195, 32, 170, "Input",ExpressionUUID->"cd70da4f-e006-4b0a-8793-e02688bb1a46",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[114125, 3063, 1229, 35, 89, "Output",ExpressionUUID->"a0e43ea0-75c1-480e-b4c2-7d1750853859",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[115357, 3100, 711, 14, 105, "Input",ExpressionUUID->"681cf130-58b1-440d-a3a7-e8b3bd2a3e9b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[116071, 3116, 2412, 66, 93, "Output",ExpressionUUID->"59cae5f5-c452-4107-b6f1-fe91e1f868d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[118486, 3184, 379, 9, 41, "Input",ExpressionUUID->"eabe6033-3ce4-461d-bf70-4b4886495447",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[118868, 3195, 1131, 34, 69, "Output",ExpressionUUID->"1045eaba-0d0b-4f62-90b3-c416ee07d6c8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[120002, 3231, 811, 17, 105, "Input",ExpressionUUID->"8d230939-0898-4fef-abaa-7764a250b7b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[120816, 3250, 3538, 96, 93, "Output",ExpressionUUID->"cb60685e-184e-4fc8-9c45-5d927c6938da",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[124357, 3348, 1263, 32, 180, "Input",ExpressionUUID->"9b999668-cf70-4042-8c0c-141f03f9fa08",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[125623, 3382, 22902, 592, 257, "Output",ExpressionUUID->"478bef87-0c68-43ed-be11-6eace1897147",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[148528, 3976, 1494, 36, 128, "Input",ExpressionUUID->"2ea5b2b7-4f9d-4c65-96aa-e15772affb0b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[150025, 4014, 1098, 31, 66, "Output",ExpressionUUID->"31c94fd7-ceb2-4863-9ba4-2862342ff56e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[151126, 4047, 5132, 143, 156, "Output",ExpressionUUID->"ed6e11ca-8ecf-433a-8baf-b92c60d01586",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[156261, 4192, 1274, 32, 126, "Input",ExpressionUUID->"7f5b5042-ff86-4275-b415-4ef96a180447",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[157538, 4226, 674, 18, 66, "Output",ExpressionUUID->"c0c73f55-edc9-40c8-891c-ecc2aa082445",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[158215, 4246, 2632, 71, 64, "Output",ExpressionUUID->"e40b74bf-dbab-4063-a669-d697611fd289",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[160850, 4319, 458, 10, 63, "Input",ExpressionUUID->"5a40cd72-a47d-4d16-97be-cb8a4888ad71",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[161311, 4331, 447, 9, 43, "Output",ExpressionUUID->"4ed0a3cb-3769-47d5-aa99-8fd4df6bd737",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[161761, 4342, 426, 9, 63, "Input",ExpressionUUID->"26bde196-589d-4db1-89aa-f7b68ac586cc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[162190, 4353, 650, 16, 84, "Input",ExpressionUUID->"cd7ebd4b-fac9-449a-bc0d-d510707326d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[162843, 4371, 540, 13, 41, "Output",ExpressionUUID->"fcf11efb-1002-40e1-a329-7dc559466df9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[163386, 4386, 704, 18, 84, "Input",ExpressionUUID->"240f57a6-5232-49ce-bc77-2e596ef97ea4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[164093, 4406, 578, 15, 41, "Output",ExpressionUUID->"e3ac91f6-1243-4f1e-ae60-9cdcc671d1df",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[164674, 4423, 2149, 52, 84, "Input",ExpressionUUID->"e2882df0-8424-4ef9-b23f-1188ca9ceae2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[166826, 4477, 1567, 44, 63, "Output",ExpressionUUID->"0cdd8624-a998-42fb-8c50-cec0868b204b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[168396, 4523, 1027, 25, 84, "Input",ExpressionUUID->"9afea3e1-d241-43ca-b69b-62da1ee854a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[169426, 4550, 2233, 57, 79, "Output",ExpressionUUID->"6b9364ce-e511-4607-8cb0-16de43b54dfc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[171662, 4609, 1005, 24, 119, "Input",ExpressionUUID->"dbbb5dc6-5983-4b56-a260-3881b8ff458a",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[172670, 4635, 1267, 36, 44, "Output",ExpressionUUID->"1f27b311-a9af-4340-b940-90a21e915d78",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[173940, 4673, 644, 17, 58, "Input",ExpressionUUID->"d8d9a8ca-a2f7-44a4-8a63-6af1f1a8c7b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[174587, 4692, 2360, 66, 109, "Output",ExpressionUUID->"a1c0f600-2498-4f09-ab8f-f5ae83aea11f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[176950, 4760, 783, 19, 164, "Input",ExpressionUUID->"cb4961f2-3fb7-4342-b671-357bcd5e131d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[177736, 4781, 808, 22, 85, "Output",ExpressionUUID->"b47e78f1-ae09-462d-90a8-67dc5d60ecba",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[178547, 4805, 1127, 28, 165, "Input",ExpressionUUID->"58e648fe-963f-44f8-9864-0a69f2df96f6",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[179677, 4835, 1142, 32, 85, "Output",ExpressionUUID->"0a9f6f0f-7abe-496f-a71c-5b6e830c56d3",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[180822, 4869, 794, 19, 144, "Input",ExpressionUUID->"895eaba8-b3a2-46f5-82d3-5c14e8a10da4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[181619, 4890, 983, 27, 85, "Output",ExpressionUUID->"6658e702-fb70-4963-ab5a-83a363adffd4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[182605, 4919, 810, 18, 105, "Input",ExpressionUUID->"9433c2ba-db8b-4e3e-ba8d-c07c50750dc2",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[183418, 4939, 4484, 125, 99, "Output",ExpressionUUID->"4b1262bd-05c7-4b7d-b8e5-d9fde0055e76",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[187905, 5066, 1341, 33, 124, "Input",ExpressionUUID->"9dc17011-ca83-434f-9b94-4c1913ec6eb7",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[189249, 5101, 10874, 307, 257, "Output",ExpressionUUID->"f9180829-cb82-4de9-ac85-9cca0272db5c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[200126, 5410, 679, 15, 121, "Input",ExpressionUUID->"7ef26c0e-6737-433c-bfaf-ed1d267e8455",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[200808, 5427, 369, 8, 57, "Output",ExpressionUUID->"d0ad21d0-10c9-4562-896d-e912784a3968",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[201180, 5437, 674, 17, 63, "Input",ExpressionUUID->"756de3f0-a782-44c5-8ae6-30816f4c351d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[201857, 5456, 396, 8, 41, "Output",ExpressionUUID->"66229d20-f446-4e8a-8fcf-95bb304b4e7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[202256, 5466, 394, 8, 41, "Output",ExpressionUUID->"189dc884-789f-4e7f-9cba-8cd43ce46cbc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[202653, 5476, 1286, 27, 126, "Input",ExpressionUUID->"08791cc5-5672-4d58-be2f-9b9409ebeb84",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[203942, 5505, 1146, 32, 66, "Output",ExpressionUUID->"1f081940-79a7-4902-a0e3-14c43b2f34a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[205091, 5539, 1381, 36, 64, "Output",ExpressionUUID->"b83720a7-ee94-4158-bbc6-86d4787ac36f",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[206475, 5577, 1215, 26, 126, "Input",ExpressionUUID->"788c7c27-9f8a-4be4-b8d3-8d0e11323562",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[207693, 5605, 721, 19, 66, "Output",ExpressionUUID->"74f97cd5-4ba5-43fb-b5fa-1a08f3444f99",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[208417, 5626, 1227, 32, 64, "Output",ExpressionUUID->"1e99b209-e775-48ad-b4bc-7263afc21a0d",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[209647, 5660, 731, 18, 108, "Input",ExpressionUUID->"e75ddad2-2946-483a-a846-f7fa70a0c9ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[210381, 5680, 515, 12, 62, "Output",ExpressionUUID->"2e3f50fa-0987-455f-b739-5a845a526259",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[210899, 5694, 453, 11, 41, "Input",ExpressionUUID->"61c53c69-afd8-44dc-8d09-5a83395861dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[211355, 5707, 539, 12, 62, "Output",ExpressionUUID->"e9556976-1d95-42fd-a6b5-ff6514fe8879",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[211897, 5721, 1123, 28, 84, "Input",ExpressionUUID->"0be56ff9-4abd-4480-a664-43e31ff37e19",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[213023, 5751, 702, 18, 57, "Output",ExpressionUUID->"5c335b0f-a40a-40d1-a437-adf511453f16",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[213728, 5771, 965, 23, 84, "Input",ExpressionUUID->"95570965-69a7-41db-a4f1-da88be0abb8b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[214696, 5796, 543, 13, 41, "Output",ExpressionUUID->"633fb5ab-600d-4bf4-b043-669f767055cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[215242, 5811, 759, 17, 84, "Input",ExpressionUUID->"4a92f557-e1e5-4b41-a739-69a23c2525d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[216004, 5830, 687, 17, 41, "Output",ExpressionUUID->"c2e7d8f2-df5b-4c09-b067-bada7d8c7ed1",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[216694, 5849, 1285, 30, 147, "Input",ExpressionUUID->"2827d29b-9341-422e-b76d-49722dbdd70e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[217982, 5881, 1361, 39, 69, "Output",ExpressionUUID->"5cb6ab43-7344-470b-93d7-7be178994ecf",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[219346, 5922, 2410, 64, 105, "Input",ExpressionUUID->"861f4e14-ae1b-4c89-ac85-99bec982a3ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[221759, 5988, 808, 20, 63, "Input",ExpressionUUID->"38bbe3f3-d2ea-44e4-ac0d-0d33c15160ec",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[222570, 6010, 2810, 77, 99, "Output",ExpressionUUID->"be702d08-b09d-4935-bc72-4acdcb662c36",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[225383, 6089, 761, 19, 63, "Input",ExpressionUUID->"3322a77d-d752-4524-844a-381cb5714437",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[226147, 6110, 1936, 55, 87, "Output",ExpressionUUID->"5f5a7d50-7bea-4cf4-b911-0a2cb3dcb78b",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[228086, 6167, 1083, 28, 126, "Input",ExpressionUUID->"40826446-961e-4bac-8524-7b2433699ed4",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[229172, 6197, 1560, 38, 107, "Input",ExpressionUUID->"7616a2e7-69bc-45cb-bd05-726d019034da",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}],
Cell[230735, 6237, 403, 7, 41, "Output",ExpressionUUID->"8b4b1b6d-f6dc-41fc-8c87-f527b1ef375e",
 CellGroupingRules->{"GroupTogetherGrouping", 10005.}]
}, Closed]],
Cell[CellGroupData[{
Cell[231175, 6249, 179, 3, 55, "Section",ExpressionUUID->"c7a6c427-b19f-4a05-b4e8-15ec99aa6c61"],
Cell[CellGroupData[{
Cell[231379, 6256, 1543, 43, 232, "Input",ExpressionUUID->"894a61c7-0d48-4562-99ad-167d49f5714a"],
Cell[232925, 6301, 1623, 51, 141, "Output",ExpressionUUID->"70390ba9-9beb-4628-9178-09940c2109d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234585, 6357, 415, 8, 102, "Input",ExpressionUUID->"04a939c0-44e8-4efd-863d-26eddf4d7f4f"],
Cell[235003, 6367, 328, 7, 59, "Output",ExpressionUUID->"e67dced0-d434-48fb-b943-01e9ded03641"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235368, 6379, 443, 9, 102, "Input",ExpressionUUID->"8a350153-4ff2-410b-9e9d-c3381e762560"],
Cell[235814, 6390, 381, 8, 59, "Output",ExpressionUUID->"541adae6-8e08-4adb-af82-e0d3dd15a19f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[236244, 6404, 156, 3, 55, "Section",ExpressionUUID->"e3a6149f-f0b1-4038-85e1-471ef0abbd26"],
Cell[CellGroupData[{
Cell[236425, 6411, 1244, 32, 105, "Input",ExpressionUUID->"ed5d86e6-e07d-43bd-b477-dc686297624e"],
Cell[237672, 6445, 1027, 31, 56, "Output",ExpressionUUID->"c37925e0-dc5b-4e6d-9eca-02b3c3444d80"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238736, 6481, 689, 15, 105, "Input",ExpressionUUID->"91d0a6d6-441e-4fa3-a4b0-553a9ad208f9"],
Cell[239428, 6498, 1392, 40, 119, "Output",ExpressionUUID->"4d65f75c-1426-4de4-be6e-ac3d92931df8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240857, 6543, 601, 12, 63, "Input",ExpressionUUID->"ed7fb597-cc1b-435a-bb2c-9cc19fcdbfa5"],
Cell[241461, 6557, 563, 12, 41, "Output",ExpressionUUID->"a70baab0-89a4-4a17-b67f-9d94f52d799a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242061, 6574, 322, 7, 41, "Input",ExpressionUUID->"c9161feb-9a52-4bee-9613-941cf83f43ac"],
Cell[242386, 6583, 719, 19, 41, "Output",ExpressionUUID->"911764db-2d7a-4b3a-840b-d3f4e43db3e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243142, 6607, 1117, 25, 189, "Input",ExpressionUUID->"d5a04edd-5176-4ede-a465-a81cde88a5ae"],
Cell[244262, 6634, 837, 23, 83, "Output",ExpressionUUID->"a4d51646-622a-4469-92e8-ba888a76a4db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245136, 6662, 1208, 30, 84, "Input",ExpressionUUID->"4f94f45f-723e-4409-b09b-320f385e92b2"],
Cell[246347, 6694, 1652, 50, 56, "Output",ExpressionUUID->"a8d7e5a6-6375-4d10-b705-42fecfc8fe60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248036, 6749, 438, 8, 63, "Input",ExpressionUUID->"4b90593d-b81e-4586-b67e-07846d4a68ea"],
Cell[248477, 6759, 361, 8, 41, "Output",ExpressionUUID->"52df5a91-bc88-4785-93bb-7f36022cc63b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248875, 6772, 1614, 37, 105, "Input",ExpressionUUID->"155065ad-36bb-4212-8d75-7bf93bc57d02"],
Cell[250492, 6811, 2525, 75, 103, "Output",ExpressionUUID->"bed7d647-29b4-48cd-b8ea-96c14cc4c2cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253054, 6891, 376, 9, 41, "Input",ExpressionUUID->"3ba43ea1-ae65-45f3-8f01-12bc6fca3205"],
Cell[253433, 6902, 3989, 118, 127, "Output",ExpressionUUID->"acdbe0b2-0695-4e92-953a-c170ec532f66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[257459, 7025, 1522, 39, 78, "Input",ExpressionUUID->"19d1ae1e-98b9-4ee8-bb19-eadc69008dae"],
Cell[258984, 7066, 30457, 823, 381, "Output",ExpressionUUID->"54edd16a-e426-4f73-8395-a7210f45d87e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289478, 7894, 846, 22, 144, "Input",ExpressionUUID->"5492de5b-d7cd-41c1-be7c-29b6aa38985a"],
Cell[290327, 7918, 873, 26, 85, "Output",ExpressionUUID->"56b9f26c-3830-4be2-bc51-88e035e28ec8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291237, 7949, 677, 16, 105, "Input",ExpressionUUID->"796e9dfe-eeb1-4908-b6db-fb76a0b81bb3"],
Cell[291917, 7967, 373, 9, 41, "Output",ExpressionUUID->"cd0ea29c-3bd6-4cf6-9740-e5b583088cd8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292327, 7981, 939, 27, 86, "Input",ExpressionUUID->"064980d6-cd9b-4fc2-839b-354e89552cc8"],
Cell[293269, 8010, 630, 20, 44, "Output",ExpressionUUID->"8099d69d-281e-49be-a06d-ce13fd105a67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[293936, 8035, 385, 9, 41, "Input",ExpressionUUID->"cee61de5-6f7a-4f9d-a825-897d94c64397"],
Cell[294324, 8046, 1072, 33, 103, "Output",ExpressionUUID->"769d4ec2-9b2b-40f2-8dcd-60b9e6741c54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[295433, 8084, 469, 12, 41, "Input",ExpressionUUID->"c474922f-6427-423a-a3bc-9587ba3c928e"],
Cell[295905, 8098, 768, 23, 103, "Output",ExpressionUUID->"b77babf9-0d16-41c5-a031-ecfb86952baf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[296710, 8126, 885, 21, 84, "Input",ExpressionUUID->"0b0e3147-cd61-4d0a-aa4e-bd28b092d44e"],
Cell[297598, 8149, 488, 14, 41, "Output",ExpressionUUID->"a3aaf536-363c-4410-85be-3115b5d1fedd"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[298135, 8169, 177, 3, 55, "Section",ExpressionUUID->"6e566085-ea15-40b1-ba8f-ea5c6a32fcb1"],
Cell[CellGroupData[{
Cell[298337, 8176, 811, 19, 100, "Input",ExpressionUUID->"36526f1a-3586-4880-9607-373d0550c24b"],
Cell[299151, 8197, 739, 19, 57, "Output",ExpressionUUID->"3cf6ea9a-2a7b-46c8-86ca-ca574b9a375d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299927, 8221, 810, 19, 100, "Input",ExpressionUUID->"acae7075-599e-4fb5-84a4-c078bda7be47"],
Cell[300740, 8242, 631, 15, 41, "Output",ExpressionUUID->"d76ea811-2f46-4ccc-bc0e-1fbfe405e6d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301408, 8262, 756, 19, 84, "Input",ExpressionUUID->"bd6cc6a9-0451-455d-8a02-0f2650eed03b"],
Cell[302167, 8283, 573, 17, 41, "Output",ExpressionUUID->"974bd2a6-0ad8-47f6-82db-285d2546b61d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302777, 8305, 706, 18, 63, "Input",ExpressionUUID->"d4d022ac-2dce-4941-87dd-7bec25530b39"],
Cell[303486, 8325, 500, 15, 41, "Output",ExpressionUUID->"94a1602b-c3bd-4872-90ab-740c751876e4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[304035, 8346, 278, 6, 55, "Section",ExpressionUUID->"596dd541-c6ae-420f-8255-53ed2b33ae33"],
Cell[304316, 8354, 835, 18, 119, "Input",ExpressionUUID->"21181733-98e9-4132-8d78-32a53755ef85"],
Cell[305154, 8374, 740, 17, 119, "Input",ExpressionUUID->"2e39c4d8-9fe7-4530-a791-68d9b4e80dcf"],
Cell[305897, 8393, 786, 17, 119, "Input",ExpressionUUID->"21644670-c04c-4a8f-b481-030bc5aa53cb"],
Cell[CellGroupData[{
Cell[306708, 8414, 436, 9, 41, "Input",ExpressionUUID->"b264bb01-7d55-451b-aa6f-f765d93fb730"],
Cell[307147, 8425, 2472, 68, 87, "Output",ExpressionUUID->"46e0fd35-65f6-4e81-9adb-8530767d52b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309656, 8498, 2590, 66, 167, "Input",ExpressionUUID->"c2239d0d-e696-44d4-a416-bb228caa9218"],
Cell[312249, 8566, 2454, 68, 87, "Output",ExpressionUUID->"7c4362bd-b262-49bb-b831-6b03f530d397"]
}, Open  ]],
Cell[314718, 8637, 686, 20, 101, "Input",ExpressionUUID->"5900f885-1987-4dfd-894f-6de7efd3bb6b"],
Cell[CellGroupData[{
Cell[315429, 8661, 342, 10, 41, "Input",ExpressionUUID->"331dd4bc-75b0-4898-90d8-25314e6d1b8a"],
Cell[315774, 8673, 396, 12, 58, "Output",ExpressionUUID->"7f8f3863-f8a2-4186-9e15-fd81c99a7de1"]
}, Open  ]],
Cell[316185, 8688, 875, 26, 132, "Input",ExpressionUUID->"84f36a84-4dff-4a67-9b99-d54e6440a485"],
Cell[CellGroupData[{
Cell[317085, 8718, 359, 9, 41, "Input",ExpressionUUID->"0032eeaa-b4b3-48f2-8b7d-901741c8e4da"],
Cell[317447, 8729, 698, 23, 61, "Output",ExpressionUUID->"b48f59ec-6f72-4049-aeaf-c9634aef60c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318182, 8757, 873, 20, 147, "Input",ExpressionUUID->"1e9d46de-4363-4404-8e16-8a70be0f6b0c"],
Cell[319058, 8779, 888, 28, 69, "Output",ExpressionUUID->"8e875354-fc62-4590-99f3-4cc20d17201f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319983, 8812, 1111, 26, 147, "Input",ExpressionUUID->"1607c39b-10c0-44d1-a516-2023505f265b"],
Cell[321097, 8840, 3157, 89, 87, "Output",ExpressionUUID->"07fe7fef-a58f-4ae6-844d-e549d4daac34"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324291, 8934, 468, 12, 77, "Input",ExpressionUUID->"78aae896-62aa-4b16-839c-716d3fc328d8"],
Cell[324762, 8948, 3056, 92, 111, "Output",ExpressionUUID->"6e4933bb-8c83-4a39-b28e-08b5702c53dc"]
}, Open  ]]
}, Closed]]
}
]
*)