1DMotion.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     23800,        708]
NotebookOptionsPosition[     19298,        621]
NotebookOutlinePosition[     19666,        637]
CellTagsIndexPosition[     19623,        634]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Quiet", "[", 
   RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Quiet", "[", 
   RowBox[{"Remove", "[", "\"\<SpecialRelativity`*\>\"", "]"}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
 RowBox[{"Get", "[", "\"\<SpecialRelativity`\>\"", "]"}]}], "Input",
 InitializationCell->True,
 CellLabel->
  "In[251]:=",ExpressionUUID->"200aa43d-045f-4393-b285-04ccdc9e7a0e"],

Cell["\<\
Consider wordline of a generic 1D motion x parametrized by local time:\
\>", "Text",
 CellChangeTimes->{{3.7751696077279663`*^9, 
  3.775169639450879*^9}},ExpressionUUID->"a1d06cd2-9bfc-4d34-beb4-\
8e8d08120a53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Generic1DMotion", "[", "x_", "]"}], ":=", 
  RowBox[{"t", "\[Function]", 
   RowBox[{"mkFourVector", "[", 
    RowBox[{"t", ",", 
     RowBox[{"x", "[", "t", "]"}]}], "]"}]}]}]], "Input",
 CellLabel->
  "In[255]:=",ExpressionUUID->"6e55776b-b7f8-4210-a12e-492cdab5b272"],

Cell[CellGroupData[{

Cell["Local Frame Kinematics", "Subsection",
 CellChangeTimes->{{3.775169541397049*^9, 3.775169549701284*^9}, {
  3.775170157260447*^9, 3.775170158462475*^9}, {3.7751703710919456`*^9, 
  3.775170372684305*^9}},ExpressionUUID->"a58826bb-0c06-45a4-afb8-\
b37ee1480502"],

Cell["Usual local frame kinematics:", "Text",
 CellChangeTimes->{{3.775169603807948*^9, 3.775169603990405*^9}, {
  3.775169645031405*^9, 3.775169667201191*^9}, {3.775174629492351*^9, 
  3.7751746332096977`*^9}},ExpressionUUID->"cccf608e-035b-4e59-a495-\
113c974660e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FramePosition", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{{3.775169718991041*^9, 3.775169720204351*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"b1f0b3f9-897a-45a3-a09c-e9f7d9c1a06f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.775169720912105*^9, {3.7751697881751966`*^9, 3.77516980927353*^9}, 
   3.7751701244631147`*^9, {3.775170176953734*^9, 3.775170199553459*^9}, 
   3.7751704349848623`*^9, 3.775170664562812*^9, 3.77517448908245*^9, 
   3.7751745678500013`*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"389aeeb9-f09d-48a8-b759-a9879e1db3b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FrameTime", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7751697294393463`*^9, 3.775169730323153*^9}},
 CellLabel->
  "In[257]:=",ExpressionUUID->"8146c06f-6fd1-41e1-8782-ef4acffa7b55"],

Cell[BoxData["t"], "Output",
 CellChangeTimes->{
  3.775169731155863*^9, {3.7751701784182367`*^9, 3.775170200894063*^9}, 
   3.7751704357866697`*^9, 3.775170665280779*^9, 3.77517448994314*^9, 
   3.77517456916681*^9},
 CellLabel->
  "Out[257]=",ExpressionUUID->"9547b73c-7ef6-45e9-a6b9-f130476a9715"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FrameVelocity", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellLabel->
  "In[258]:=",ExpressionUUID->"d7324d02-7712-4503-9e04-c4feaa32a83b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7751695698853893`*^9, {3.775170179694681*^9, 3.77517020226833*^9}, 
   3.775170436776331*^9, 3.77517066607121*^9, 3.77517449079422*^9, 
   3.775174570254045*^9},
 CellLabel->
  "Out[258]=",ExpressionUUID->"6d4280cb-6917-43bf-86b4-5f354c423cf3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FrameAcceleration", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{{3.775169580742605*^9, 3.775169583383778*^9}},
 CellLabel->
  "In[259]:=",ExpressionUUID->"e3c7d1fa-e40a-4923-9e36-935dbc676e9c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.775169584020927*^9, {3.775170180800643*^9, 3.7751702036516523`*^9}, 
   3.775170437928216*^9, 3.775170666927586*^9, 3.7751744923844213`*^9, 
   3.775174571621951*^9},
 CellLabel->
  "Out[259]=",ExpressionUUID->"00e26aff-c769-4c5d-86f8-32b7b0ed4b73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MCRFBoost", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{3.775174502276339*^9},
 CellLabel->
  "In[260]:=",ExpressionUUID->"bd4cb420-b16a-4011-a685-640b68ec2f40"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}]]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["x", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}]]]}], ",", "0", 
     ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["x", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}]]]}], ",", 
     FractionBox["1", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["x", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}]]], ",", "0", ",",
      "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.775174504642066*^9, 3.775174572978676*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"aa34c474-4c4b-4705-9299-3405afeb6a91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MCRFBoost", "[", 
    RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}], " ", 
  ".", " ", 
  RowBox[{"mkFourVector", "[", 
   RowBox[{"t", ",", "a", ",", "b", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.775302240215686*^9, 3.7753022715917263`*^9}},
 CellLabel->
  "In[268]:=",ExpressionUUID->"7e9a617b-e56f-4af1-8089-bb2562b1b3b1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"FourVector", "[", 
   RowBox[{
    FractionBox["t", 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}]]], "-", 
    FractionBox[
     RowBox[{"a", " ", 
      RowBox[{
       SuperscriptBox["x", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}]]]}], ",", 
   RowBox[{
    FractionBox["a", 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}]]], "-", 
    FractionBox[
     RowBox[{"t", " ", 
      RowBox[{
       SuperscriptBox["x", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}]]]}], ",", "b", 
   ",", "c", "]"}],
  Private`FourVector[$CellContext`t (1 - 
      Derivative[1][$CellContext`x][$CellContext`t]^2)^
     Rational[-1, 2] - $CellContext`a 
   Derivative[
    1][$CellContext`x][$CellContext`t] (1 - 
     Derivative[1][$CellContext`x][$CellContext`t]^2)^
    Rational[-1, 2], $CellContext`a (1 - 
      Derivative[1][$CellContext`x][$CellContext`t]^2)^
     Rational[-1, 2] - $CellContext`t 
   Derivative[
    1][$CellContext`x][$CellContext`t] (1 - 
     Derivative[1][$CellContext`x][$CellContext`t]^2)^
    Rational[-1, 2], $CellContext`b, $CellContext`c]]], "Output",
 CellChangeTimes->{3.77530227297427*^9},
 CellLabel->
  "Out[268]=",ExpressionUUID->"884c7647-c86f-435e-8cf3-f559463a1114"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["4-Vector Kinematics", "Subsection",
 CellChangeTimes->{{3.775170360294408*^9, 
  3.77517036870116*^9}},ExpressionUUID->"866444bb-f27a-4532-8efb-\
9afacc42cf42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FourVelocity", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7751703991823*^9, 3.775170399617564*^9}},
 CellLabel->
  "In[261]:=",ExpressionUUID->"bd54afbf-43bb-41c4-a500-053dc36120ab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"FourVector", "[", 
   FractionBox["1", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}]]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}]]], ",", "0", ",", 
   "0", "]"}],
  Private`FourVector[(1 - Derivative[1][$CellContext`x][$CellContext`t]^2)^
   Rational[-1, 2], 
   Derivative[
    1][$CellContext`x][$CellContext`t] (1 - 
     Derivative[1][$CellContext`x][$CellContext`t]^2)^Rational[-1, 2], 0, 
   0]]], "Output",
 CellChangeTimes->{3.775170400546322*^9, 3.775170439034144*^9, 
  3.775170667033527*^9, 3.775174493296707*^9, 3.775174574471223*^9},
 CellLabel->
  "Out[261]=",ExpressionUUID->"6b183b91-2d0a-484b-b356-cfe0b96a90ac"]
}, Open  ]],

Cell["4-Velocity points is unitary in t direction in the MCRF:", "Text",
 CellChangeTimes->{{3.7753023467761717`*^9, 3.7753023616779346`*^9}, {
  3.77530251968478*^9, 
  3.775302522647512*^9}},ExpressionUUID->"fb5848cc-4d25-45d9-b2c6-\
95251fa5484e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MCRFBoost", "[", 
     RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}], " ", 
   ".", " ", 
   RowBox[{
    RowBox[{"FourVelocity", "[", 
     RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}]}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.7753023400975857`*^9, 3.7753023404168053`*^9}, {
  3.7753023734819508`*^9, 3.775302375653664*^9}},
 CellLabel->
  "In[270]:=",ExpressionUUID->"1fa5da78-ccbc-45ae-b2fe-c4ba49d4b1aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"FourVector", "[", "1", ",", "0", ",", "0", ",", "0", "]"}],
  Private`FourVector[1, 0, 0, 0]]], "Output",
 CellChangeTimes->{3.7753023413974037`*^9, 3.775302376127633*^9},
 CellLabel->
  "Out[270]=",ExpressionUUID->"3eaa87fe-aedb-4c39-96fb-5ca72a80005a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FourAcceleration", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{{3.775170412569152*^9, 3.775170415052555*^9}},
 CellLabel->
  "In[262]:=",ExpressionUUID->"c5efb39c-ef7e-4da6-9415-67a646aa2a44"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"FourVector", "[", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], " ", 
     RowBox[{
      SuperscriptBox["x", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]], 
   ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]], 
   ",", "0", ",", "0", "]"}],
  Private`FourVector[
  Derivative[
    1][$CellContext`x][$CellContext`t] (-1 + 
     Derivative[1][$CellContext`x][$CellContext`t]^2)^(-2) 
   Derivative[
    2][$CellContext`x][$CellContext`t], (-1 + 
     Derivative[1][$CellContext`x][$CellContext`t]^2)^(-2) 
   Derivative[2][$CellContext`x][$CellContext`t], 0, 0]]], "Output",
 CellChangeTimes->{{3.775170415432562*^9, 3.775170440094054*^9}, 
   3.775170667872315*^9, 3.775174494340917*^9, 3.775174575874352*^9},
 CellLabel->
  "Out[262]=",ExpressionUUID->"a937f398-47da-4d25-9db5-5fc4407f55ed"]
}, Open  ]],

Cell["4-Acceleration in the MCRF:", "Text",
 CellChangeTimes->{{3.775302415620756*^9, 
  3.775302430197268*^9}},ExpressionUUID->"e6c85424-baf5-4e01-b50b-\
37966a6b499c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MCRFBoost", "[", 
     RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}], " ", 
   ".", 
   RowBox[{
    RowBox[{"FourAcceleration", "[", 
     RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}]}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.7753024017436323`*^9, 3.77530240450404*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"500226cd-0e68-402d-b6c8-ec830b79af8e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"FourVector", "[", "0", ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["x", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["x", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
     RowBox[{"3", "/", "2"}]]], ",", "0", ",", "0", "]"}],
  Private`FourVector[
  0, (1 - Derivative[1][$CellContext`x][$CellContext`t]^2)^Rational[-3, 2] 
   Derivative[2][$CellContext`x][$CellContext`t], 0, 0]]], "Output",
 CellChangeTimes->{3.775302405105942*^9},
 CellLabel->
  "Out[271]=",ExpressionUUID->"5418d867-a69e-4c2b-94a2-96391a861442"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Proper  Kinematics", "Subsection",
 CellChangeTimes->{{3.7751704229689302`*^9, 
  3.775170428193894*^9}},ExpressionUUID->"4a597bf9-f420-4f40-a657-\
68b707d6e174"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ProperTimeRate", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7751704447165956`*^9, 3.7751704524109087`*^9}},
 CellLabel->
  "In[263]:=",ExpressionUUID->"e841c41c-003c-43c4-bae0-979eff421ed7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dt", "[", "t", "]"}], " ", 
  SqrtBox[
   RowBox[{"1", "-", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["x", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{3.775170453711376*^9, 3.775170668777663*^9, 
  3.775174495568681*^9, 3.775174577070695*^9},
 CellLabel->
  "Out[263]=",ExpressionUUID->"c9ce9fdf-a937-4479-b47f-cb2e669b995e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ProperTime", "[", 
   RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", 
  "]"}]], "Input",
 CellChangeTimes->{3.775170676544394*^9},
 CellLabel->
  "In[264]:=",ExpressionUUID->"7a869a0f-2c57-4aa3-a78e-b11103b842b2"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["x", "\[Prime]",
        MultilineFunction->None], "[", "Private`lambda", "]"}], "2"]}]], ",", 
   
   RowBox[{"{", 
    RowBox[{"Private`lambda", ",", "0", ",", "t"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Dt", "[", "Private`lambda", "]"}], ">", "0"}], "}"}]}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.775170677498864*^9, 3.7751744969145308`*^9, 
  3.775174578598321*^9},
 CellLabel->
  "Out[264]=",ExpressionUUID->"cfb9c454-bbf7-4062-809c-66c6d04d7fc4"]
}, Open  ]],

Cell["4-Velocity is defined to have norm 1:", "Text",
 CellChangeTimes->{{3.7753021351148853`*^9, 
  3.775302143256089*^9}},ExpressionUUID->"f705b8c7-3799-454d-a5c3-\
a1cef33fea29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ProperVelocity", "[", 
    RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}], " ", "//",
   " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.775170685315461*^9, 3.7751707004689703`*^9}},
 CellLabel->
  "In[265]:=",ExpressionUUID->"9464fb2b-6997-426d-ac1f-2b6e8ccfee0e"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.775170687946661*^9, 3.775170700773284*^9}, 
   3.77517449816579*^9, 3.775174579908613*^9},
 CellLabel->
  "Out[265]=",ExpressionUUID->"6e24c07e-9842-4539-ab74-97f4c63f53a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ProperAcceleration", "[", 
    RowBox[{"Generic1DMotion", "[", "x", "]"}], "]"}], "[", "t", "]"}], "//", 
  " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.7751707085584717`*^9, 3.775170715042574*^9}},
 CellLabel->
  "In[266]:=",ExpressionUUID->"77c87ee3-064d-4186-ad72-9dc8a29d007c"],

Cell[BoxData[
 SqrtBox[
  FractionBox[
   SuperscriptBox[
    RowBox[{
     SuperscriptBox["x", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "2"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["x", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
    "3"]]]], "Output",
 CellChangeTimes->{{3.77517071069312*^9, 3.775170718073399*^9}, 
   3.7751744991223907`*^9, 3.775174580912266*^9},
 CellLabel->
  "Out[266]=",ExpressionUUID->"9dce751a-59ff-42af-bbe7-bccc692f1bac"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.775170905768437*^9, 3.7751709106209993`*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"4a481464-784a-401e-807c-6bb490c3f9a3"]
}, Open  ]]
},
WindowSize->{1533, 1315},
WindowMargins->{{Automatic, 974}, {Automatic, 374}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Linux ARM (32-bit) (June 23, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 532, 14, 200, "Input",ExpressionUUID->"200aa43d-045f-4393-b285-04ccdc9e7a0e",
 InitializationCell->True],
Cell[1093, 36, 222, 5, 55, "Text",ExpressionUUID->"a1d06cd2-9bfc-4d34-beb4-8e8d08120a53"],
Cell[1318, 43, 305, 8, 70, "Input",ExpressionUUID->"6e55776b-b7f8-4210-a12e-492cdab5b272"],
Cell[CellGroupData[{
Cell[1648, 55, 267, 4, 85, "Subsection",ExpressionUUID->"a58826bb-0c06-45a4-afb8-b37ee1480502"],
Cell[1918, 61, 268, 4, 55, "Text",ExpressionUUID->"cccf608e-035b-4e59-a495-113c974660e2"],
Cell[CellGroupData[{
Cell[2211, 69, 289, 7, 70, "Input",ExpressionUUID->"b1f0b3f9-897a-45a3-a09c-e9f7d9c1a06f"],
Cell[2503, 78, 460, 10, 76, "Output",ExpressionUUID->"389aeeb9-f09d-48a8-b759-a9879e1db3b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3000, 93, 287, 7, 70, "Input",ExpressionUUID->"8146c06f-6fd1-41e1-8782-ef4acffa7b55"],
Cell[3290, 102, 300, 6, 76, "Output",ExpressionUUID->"9547b73c-7ef6-45e9-a6b9-f130476a9715"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3627, 113, 223, 6, 70, "Input",ExpressionUUID->"d7324d02-7712-4503-9e04-c4feaa32a83b"],
Cell[3853, 121, 447, 12, 76, "Output",ExpressionUUID->"6d4280cb-6917-43bf-86b4-5f354c423cf3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4337, 138, 293, 7, 70, "Input",ExpressionUUID->"e3c7d1fa-e40a-4923-9e36-935dbc676e9c"],
Cell[4633, 147, 460, 12, 76, "Output",ExpressionUUID->"00e26aff-c769-4c5d-86f8-32b7b0ed4b73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5130, 164, 261, 7, 70, "Input",ExpressionUUID->"bd4cb420-b16a-4011-a685-640b68ec2f40"],
Cell[5394, 173, 1624, 51, 117, "Output",ExpressionUUID->"aa34c474-4c4b-4705-9299-3405afeb6a91"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7055, 229, 405, 10, 70, "Input",ExpressionUUID->"7e9a617b-e56f-4af1-8089-bb2562b1b3b1"],
Cell[7463, 241, 1908, 57, 117, "Output",ExpressionUUID->"884c7647-c86f-435e-8cf3-f559463a1114"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9420, 304, 166, 3, 85, "Subsection",ExpressionUUID->"866444bb-f27a-4532-8efb-9afacc42cf42"],
Cell[CellGroupData[{
Cell[9611, 311, 286, 7, 70, "Input",ExpressionUUID->"bd54afbf-43bb-41c4-a500-053dc36120ab"],
Cell[9900, 320, 1058, 30, 117, "Output",ExpressionUUID->"6b183b91-2d0a-484b-b356-cfe0b96a90ac"]
}, Open  ]],
Cell[10973, 353, 250, 4, 55, "Text",ExpressionUUID->"fb5848cc-4d25-45d9-b2c6-95251fa5484e"],
Cell[CellGroupData[{
Cell[11248, 361, 528, 14, 70, "Input",ExpressionUUID->"1fa5da78-ccbc-45ae-b2fe-c4ba49d4b1aa"],
Cell[11779, 377, 299, 6, 76, "Output",ExpressionUUID->"3eaa87fe-aedb-4c39-96fb-5ca72a80005a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12115, 388, 292, 7, 70, "Input",ExpressionUUID->"c5efb39c-ef7e-4da6-9415-67a646aa2a44"],
Cell[12410, 397, 1516, 44, 111, "Output",ExpressionUUID->"a937f398-47da-4d25-9db5-5fc4407f55ed"]
}, Open  ]],
Cell[13941, 444, 169, 3, 55, "Text",ExpressionUUID->"e6c85424-baf5-4e01-b50b-37966a6b499c"],
Cell[CellGroupData[{
Cell[14135, 451, 473, 13, 70, "Input",ExpressionUUID->"500226cd-0e68-402d-b6c8-ec830b79af8e"],
Cell[14611, 466, 762, 20, 111, "Output",ExpressionUUID->"5418d867-a69e-4c2b-94a2-96391a861442"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15422, 492, 168, 3, 85, "Subsection",ExpressionUUID->"4a597bf9-f420-4f40-a657-68b707d6e174"],
Cell[CellGroupData[{
Cell[15615, 499, 294, 7, 70, "Input",ExpressionUUID->"e841c41c-003c-43c4-bae0-979eff421ed7"],
Cell[15912, 508, 433, 12, 87, "Output",ExpressionUUID->"c9ce9fdf-a937-4479-b47f-cb2e669b995e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16382, 525, 262, 7, 70, "Input",ExpressionUUID->"7a869a0f-2c57-4aa3-a78e-b11103b842b2"],
Cell[16647, 534, 665, 20, 95, "Output",ExpressionUUID->"cfb9c454-bbf7-4062-809c-66c6d04d7fc4"]
}, Open  ]],
Cell[17327, 557, 181, 3, 55, "Text",ExpressionUUID->"f705b8c7-3799-454d-a5c3-a1cef33fea29"],
Cell[CellGroupData[{
Cell[17533, 564, 335, 8, 70, "Input",ExpressionUUID->"9464fb2b-6997-426d-ac1f-2b6e8ccfee0e"],
Cell[17871, 574, 224, 4, 76, "Output",ExpressionUUID->"6e24c07e-9842-4539-ab74-97f4c63f53a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18132, 583, 334, 8, 70, "Input",ExpressionUUID->"77c87ee3-064d-4186-ad72-9dc8a29d007c"],
Cell[18469, 593, 621, 19, 138, "Output",ExpressionUUID->"9dce751a-59ff-42af-bbe7-bccc692f1bac"]
}, Open  ]],
Cell[19105, 615, 177, 3, 70, "Input",ExpressionUUID->"4a481464-784a-401e-807c-6bb490c3f9a3"]
}, Open  ]]
}
]
*)