(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     63870,       1076]
NotebookOptionsPosition[     63127,       1051]
NotebookOutlinePosition[     63471,       1066]
CellTagsIndexPosition[     63428,       1063]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "t_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Exp", "[", "t", "]"}], ",", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "t"}], "]"}], ",", "t"}], "}"}]}], ";", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<r(t)=\>\"", ",", 
     RowBox[{"r", "[", "t", "]"}], ",", "\"\<  r(0)=\>\"", ",", 
     RowBox[{"r", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, 3.47119502653125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"r", "'"}], "[", "t", "]"}]}], ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<T(t)=\>\"", ",", 
     RowBox[{"V", "[", "t", "]"}], ",", "\"\<  V(0)=\>\"", ",", 
     RowBox[{"V", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195059515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Speed", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "   ", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"r", "'"}], "[", "t", "]"}], "]"}], ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], ";", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<Speed(t)=\>\"", ",", 
     RowBox[{"Speed", "[", "t", "]"}], ",", "\"\<  Speed(0)=\>\"", ",", 
     RowBox[{"Speed", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195065328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"A", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"r", "''"}], "[", "t", "]"}]}], ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<A(t)=\>\"", ",", 
     RowBox[{"A", "[", "t", "]"}], ",", "\"\<  A(0)=\>\"", ",", 
     RowBox[{"A", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.4711950694375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", "t_", "]"}], ":=", 
   FractionBox[
    RowBox[{
     RowBox[{"r", "'"}], "[", "t", "]"}], 
    RowBox[{"Speed", "[", "t", "]"}]]}], ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<T(t)=\>\"", ",", 
     RowBox[{"T", "[", "t", "]"}], ",", "\"\<  T(0)=\>\"", ",", 
     RowBox[{"T", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.4711950790625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Nv", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "   ", 
    FractionBox[
     RowBox[{
      RowBox[{"T", "'"}], "[", "t", "]"}], 
     RowBox[{"  ", 
      RowBox[{"Simplify", "[", "   ", 
       RowBox[{
        RowBox[{"Norm", "[", 
         RowBox[{
          RowBox[{"T", "'"}], "[", "t", "]"}], "]"}], ",", "  ", 
        RowBox[{"Element", "[", 
         RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}], " "}]], "   ", "]"}]}], 
  ";", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<N(t)=\>\"", ",", 
     RowBox[{"Nv", "[", "t", "]"}], ",", "\"\<  N(0)=\>\"", ",", 
     RowBox[{"Nv", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195083734375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"at", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "    ", 
    RowBox[{
     FractionBox[
      RowBox[{" ", 
       RowBox[{
        RowBox[{
         RowBox[{"r", "'"}], "[", "t", "]"}], ".", " ", 
        RowBox[{
         RowBox[{"r", "''"}], "[", "t", "]"}]}]}], 
      RowBox[{"Speed", "[", "t", "]"}]], " ", ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], " ", ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<at(t)=\>\"", ",", 
     RowBox[{"at", "[", "t", "]"}], ",", "\"\<  at(0)=\>\"", ",", 
     RowBox[{"at", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.47119509184375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"at1", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "    ", 
    RowBox[{
     RowBox[{
      RowBox[{"Speed", "'"}], "[", "t", "]"}], " ", ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], " ", ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<at1(t)=\>\"", ",", 
     RowBox[{"at1", "[", "t", "]"}], ",", "\"\<  at1(0)=\>\"", ",", 
     RowBox[{"at1", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195098390625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"At", "[", "t_", "]"}], ":=", " ", 
   RowBox[{"Simplify", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"at", "[", "t", "]"}], 
      RowBox[{"T", "[", "t", "]"}]}], ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<At(t)=\>\"", ",", 
     RowBox[{"At", "[", "t", "]"}], ",", "\"\<  At(0)=\>\"", ",", 
     RowBox[{"At", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195103265625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"an", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "     ", 
    RowBox[{
     RowBox[{"Norm", "[", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         RowBox[{
          RowBox[{"r", "'"}], "[", "t", "]"}], "\[Cross]", " ", 
         RowBox[{
          RowBox[{"r", "''"}], "[", "t", "]"}], " "}]}], 
       RowBox[{"Speed", "[", "t", "]"}]], " ", "]"}], ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], " ", ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<an(t)=\>\"", ",", 
     RowBox[{"an", "[", "t", "]"}], ",", "\"\<  an(0)=\>\"", ",", 
     RowBox[{"an", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.47119510925*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"an1", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", "   ", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"Speed", "[", "t", "]"}], "2"], 
      RowBox[{"Norm", "[", 
       FractionBox[
        RowBox[{" ", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "'"}], "[", "t", "]"}], "\[Cross]", " ", 
          RowBox[{
           RowBox[{"r", "''"}], "[", "t", "]"}]}]}], 
        SuperscriptBox[
         RowBox[{"Speed", "[", "t", "]"}], "3"]], " ", "]"}]}], ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], " ", ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<an1(t)=\>\"", ",", 
     RowBox[{"an1", "[", "t", "]"}], ",", "\"\<  an1(0)=\>\"", ",", 
     RowBox[{"an1", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195115734375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"An", "[", "t_", "]"}], ":=", "  ", 
   RowBox[{"Simplify", "[", "    ", 
    RowBox[{
     RowBox[{
      RowBox[{"an", "[", "t", "]"}], 
      RowBox[{"Nv", "[", "t", "]"}]}], ",", "  ", 
     RowBox[{"Element", "[", 
      RowBox[{"t", ",", "Reals"}], "]"}]}], "]"}]}], ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<An(t)=\>\"", ",", 
     RowBox[{"An", "[", "t", "]"}], ",", "\"\<  An(0)=\>\"", ",", 
     RowBox[{"An", "[", "0", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.471195121484375*^9}}],

Cell[BoxData[
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{"\"\<At(t)+An(t)=\>\"", ",", 
    RowBox[{"Simplify", "[", "   ", 
     RowBox[{
      RowBox[{"At", "[", "t", "]"}], "+", 
      RowBox[{"An", "[", "t", "]"}]}], "]"}], ",", "\"\<  A(t)=\>\"", ",", 
    RowBox[{"A", "[", "t", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.470252682390625*^9, 3.470252755953125*^9}, {3.470252789203125*^9, 
   3.47025279*^9}, {3.4702528480625*^9, 3.4702529429375*^9}, {
   3.47025299303125*^9, 3.470253076984375*^9}, {3.470253109421875*^9, 
   3.47025321046875*^9}, {3.47025325134375*^9, 3.470253293765625*^9}, {
   3.470253336140625*^9, 3.470253474953125*^9}, {3.470253513328125*^9, 
   3.470253631921875*^9}, {3.47025367*^9, 3.470253718765625*^9}, {
   3.470253774953125*^9, 3.47025390496875*^9}, {3.470253939984375*^9, 
   3.47025394134375*^9}, {3.470253982453125*^9, 3.4702539901875*^9}, {
   3.47025423875*^9, 3.470254250703125*^9}, {3.470254356828125*^9, 
   3.470254486046875*^9}, {3.470254523390625*^9, 3.47025453859375*^9}, {
   3.470254615609375*^9, 3.47025464325*^9}, {3.47025522615625*^9, 
   3.4702552729375*^9}, {3.47025532628125*^9, 3.470255363296875*^9}, {
   3.47025542771875*^9, 3.470255487171875*^9}, {3.470255558703125*^9, 
   3.470255723828125*^9}, 3.470255757015625*^9, {3.47119502653125*^9, 
   3.47119512396875*^9}}]
},
WindowSize->{1272, 922},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 4708, 75, 31, "Input"],
Cell[5256, 97, 4620, 72, 31, "Input"],
Cell[9879, 171, 4817, 77, 31, "Input"],
Cell[14699, 250, 4619, 72, 31, "Input"],
Cell[19321, 324, 4676, 74, 49, "Input"],
Cell[24000, 400, 4977, 83, 49, "Input"],
Cell[28980, 485, 4962, 82, 49, "Input"],
Cell[33945, 569, 4791, 76, 31, "Input"],
Cell[38739, 647, 4807, 77, 31, "Input"],
Cell[43549, 726, 5014, 83, 49, "Input"],
Cell[48566, 811, 5142, 87, 49, "Input"],
Cell[53711, 900, 4812, 77, 31, "Input"],
Cell[58526, 979, 4597, 70, 31, "Input"]
}
]
*)

(* End of internal cache information *)