(* 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[     51656,       1054]
NotebookOptionsPosition[     51397,       1041]
NotebookOutlinePosition[     51741,       1056]
CellTagsIndexPosition[     51698,       1053]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Execute", "[", " ", 
    RowBox[{"R_", ",", "a0_", ",", "b0_"}], "]"}], ":=", 
   RowBox[{"Manipulate", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Off", "[", 
       RowBox[{"Power", "::", "\"\<infy\>\""}], "]"}], ";", " ", 
      RowBox[{"Off", "[", 
       RowBox[{"\[Infinity]", "::", "\"\<indet\>\""}], "]"}], ";", " ", 
      RowBox[{"Off", "[", 
       RowBox[{"ParametricPlot3D", "::", "\"\<invmaxrec\>\""}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", "Kernel", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", "[", "  ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"see", ",", "TT"}], "]"}], "  ", ",", "  ", 
        RowBox[{"c", "=", "1"}], ",", "   ", 
        RowBox[{"c", "=", "0"}]}], "  ", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", "  ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"see", ",", "FR"}], "]"}], ",", "  ", 
        RowBox[{"PR", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "0.5"}], "-", 
              RowBox[{"z", "*", 
               RowBox[{"(", 
                RowBox[{"N2", "+", "1"}], ")"}]}]}], ",", 
             RowBox[{"0.5", "+", 
              RowBox[{"z", "*", 
               RowBox[{"(", 
                RowBox[{"N2", "+", "1"}], ")"}]}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "0.5"}], "-", 
              RowBox[{"z", "*", 
               RowBox[{"(", 
                RowBox[{"N2", "+", "1"}], ")"}]}]}], ",", 
             RowBox[{"0.5", "+", 
              RowBox[{"z", "*", 
               RowBox[{"(", 
                RowBox[{"N2", "+", "1"}], ")"}]}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "0.5"}], "-", 
              RowBox[{"z", "*", 
               RowBox[{"(", 
                RowBox[{"N2", "+", "1"}], ")"}]}]}], ",", 
             RowBox[{"0.5", "+", 
              RowBox[{"z", "*", 
               RowBox[{"(", 
                RowBox[{"N2", "+", "1"}], ")"}]}]}]}], "}"}]}], "}"}]}], " ", 
        ",", "  ", 
        RowBox[{"PR", "=", "All"}]}], " ", "]"}], ";", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", "  ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"see", ",", "VW"}], "]"}], " ", ",", 
        RowBox[{"Vi", "=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "Infinity"}], "}"}]}], " ", ",", " ", 
        RowBox[{"Vi", "=", 
         RowBox[{"{", 
          RowBox[{"1.3", ",", 
           RowBox[{"-", "2.4"}], ",", "2"}], "}"}]}]}], "  ", "]"}], ";", 
      "      ", "\[IndentingNewLine]", 
      RowBox[{"If", "[", "  ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"see", ",", "US"}], "]"}], "  ", ",", 
        RowBox[{"UnS", "=", 
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
            RowBox[{"Sphere", "[", "]"}]}], "}"}], "]"}]}], " ", ",", " ", 
        RowBox[{"UnS", "=", 
         RowBox[{"Graphics3D", "[", "]"}]}]}], " ", " ", "]"}], " ", ";", 
      "  ", "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"a", "=", 
       RowBox[{"a0", "-", 
        RowBox[{"l", "*", 
         RowBox[{"(", 
          RowBox[{"N1", "+", "1"}], ")"}]}]}]}], ";", 
      RowBox[{"b", "=", 
       RowBox[{"b0", "+", 
        RowBox[{"k", "*", 
         RowBox[{"(", 
          RowBox[{"N1", "+", "1"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Curve", "=", 
       RowBox[{"ParametricPlot3D", "[", "  ", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{"f", "[", "s", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", "a", ",", "b"}], "}"}], ",", 
         RowBox[{"PlotLabel", "\[Rule]", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\!\(\*OverscriptBox[\(r\), \(\[RightVector]\)]\)(t)=\>\"", 
               ",", "25"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"R", ",", "25"}], "]"}]}], "}"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         "                                                  ", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Black"}], "}"}]}], ",", 
         RowBox[{"MaxRecursion", " ", "\[Rule]", "n"}], ",", 
         RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Speed\>\""}]}], "]"}]}], 
      ";", "  ", "\[IndentingNewLine]", 
      RowBox[{"Velocity", "=", 
       RowBox[{"ParametricPlot3D", "[", "  ", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"c", "*", 
            RowBox[{"f", "[", "s", "]"}]}], "+", 
           RowBox[{"Tn", "[", "s", "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", "a", ",", "b"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Green"}], "}"}]}], ",", 
         "                             ", 
         RowBox[{"MaxRecursion", " ", "\[Rule]", "n"}], ",", 
         RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Speed\>\""}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Acc", "=", 
       RowBox[{"ParametricPlot3D", "[", "  ", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"c", "*", 
            RowBox[{"f", "[", "s", "]"}]}], "+", 
           RowBox[{"AnALP", "[", "s", "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", "a", ",", "b"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
         "                                      ", 
         RowBox[{"MaxRecursion", " ", "\[Rule]", "n"}], ",", 
         RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Speed\>\""}]}], "]"}]}], 
      ";", "  ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", "Dispaly", "*)"}], 
      RowBox[{"Column", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Arc Length Parametrization Graphs\>\"", ",", "20"}], 
           "]"}], ",", ",", "\[IndentingNewLine]", 
          RowBox[{"Framed", "@", 
           RowBox[{"Grid", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Text", "@", 
                 RowBox[{"Column", "[", 
                  RowBox[{
                   RowBox[{"{", " ", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Plot", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"S", "[", "s", "]"}], ",", "1", ",", "0"}], "}"}],
                     ",", 
                    RowBox[{"{", 
                    RowBox[{"s", ",", "a", ",", "b"}], "}"}], ",", 
                    RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\*
StyleBox[\"ALP\",
FontSize->16]\)\!\(\*
StyleBox[\" \",
FontSize->16]\)\!\(\*
StyleBox[\"Check\",
FontSize->16]\)\>\""}], ",", " ", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Black", ",", "Red"}], "}"}]}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<ALP Velocity\>\"", " ", ",", "Italic", ",", " ", 
                    "Green", ",", "20"}], "]"}], " ", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"TraditionalForm", "[", 
                    RowBox[{"Tn", "[", "s", "]"}], "]"}], ",", "20"}], "]"}], 
                    ",", ",", "\[IndentingNewLine]", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<ALP Acceleration = Normal\>\"", " ", ",", "Italic", 
                    ",", " ", "Red", ",", "20"}], "]"}], " ", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"TraditionalForm", "[", 
                    RowBox[{"AnALP", "[", "s", "]"}], "]"}], ",", "20"}], 
                    "]"}], ",", ",", "\[IndentingNewLine]", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<ALP Tangential Acceleration = 0\>\"", " ", ",", 
                    "Italic", ",", " ", "Blue", ",", "20"}], "]"}], ",", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<Curvature\>\"", " ", ",", "Italic", ",", "20"}], 
                    "]"}], " ", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"TraditionalForm", "[", 
                    RowBox[{"Cv", "[", "s", "]"}], "]"}], ",", "20"}], 
                    "]"}]}], "\[IndentingNewLine]", "                ", "}"}],
                    ",", " ", "Center"}], "]"}]}], ",", "\[IndentingNewLine]",
                 "       ", 
                RowBox[{"Show", "[", " ", 
                 RowBox[{
                 "Curve", ",", "Velocity", ",", " ", "Acc", ",", "UnS", ",", 
                  RowBox[{"Graphics3D", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"PointSize", "[", "0.02`", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], 
                   "]"}], ",", "\[IndentingNewLine]", "                  ", 
                  RowBox[{"ImageSize", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"700", ",", "500"}], "}"}]}], ",", 
                  RowBox[{"PlotRange", "\[Rule]", "PR"}], ",", 
                  RowBox[{"ViewPoint", "\[Rule]", "Vi"}], " ", ",", 
                  RowBox[{"AxesLabel", "\[Rule]", "None"}]}], "]"}]}], 
               "\[IndentingNewLine]", "                                   ", 
               "}"}], "}"}], ",", 
             RowBox[{"ItemSize", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"20", ",", "Automatic"}], "}"}], ",", "Automatic"}], 
               "}"}]}]}], "]"}]}]}], "}"}], ",", "Center"}], "]"}]}], ",", 
     "     ", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Start", " ", "Controls"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", "Left", "*)"}], "\[IndentingNewLine]", "\"\<     \!\(\*
StyleBox[\"a\",
FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"l", ",", " ", "0", ",", "\"\<\>\""}], "}"}], ",", "0", ",", 
       "10", ",", "0.1", ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", "\"\<\>\"",
      ",", "Delimiter", ",", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\[IndentingNewLine]", " ", "\"\<    Scale\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"N1", ",", "0", ",", "\"\<\>\""}], "}"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"10", "i"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "100"}], "}"}]}], "]"}], ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", "\"\<\>\"",
      ",", "Delimiter", ",", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\[IndentingNewLine]", "\"\<     \!\(\*
StyleBox[\"b\",
FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"k", ",", " ", "0", ",", "\"\<\>\""}], "}"}], ",", "0", ",", 
       "10", ",", "0.1", ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", "Top", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"{", "  ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"see", ",", 
         RowBox[{"{", "}"}], " ", ",", "  ", 
         RowBox[{"Spacer", "[", "300", "]"}]}], "  ", "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"US", "\[Rule]", " ", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Unit Sphere          \>\"", ",", "Black", ",", "10", ",", 
            "Bold"}], "]"}]}], ",", "       ", "\[IndentingNewLine]", 
         RowBox[{"TT", "\[Rule]", " ", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Translation          \>\"", ",", "Black", ",", "10", ",", 
            "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"VW", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<2D                   \>\"", ",", "Black", ",", "10", ",", 
            "Bold"}], "]"}]}], ",", "  ", "\[IndentingNewLine]", 
         RowBox[{"FR", "\[Rule]", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Origin Zoom          \>\"", ",", "Black", ",", "10", ",", 
            "Bold"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], " ", ",", 
       RowBox[{"ControlType", "\[Rule]", "CheckboxBar"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", "Right", "*)"}], "\[IndentingNewLine]", " ", 
     "\"\< Quality\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"m", ",", " ", "75", ",", "\"\<\>\""}], "}"}], ",", "1", ",", 
       "1000", ",", "1", ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n", ",", "Automatic", ",", "\"\<\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2", "\[Rule]", "\"\<Low\>\""}], ",", 
         RowBox[{"Automatic", "\[Rule]", "\"\<Auto\>\""}], ",", "Infinity"}], 
        "}"}], ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", "\"\<\>\"",
      ",", "Delimiter", ",", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\[IndentingNewLine]", " ", "\"\<   Image\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"IO", ",", "Automatic", ",", "\"\<\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"False", "\[Rule]", "\"\<Active\>\""}], ",", 
         RowBox[{"Automatic", "\[Rule]", "\"\<Auto\>\""}], ",", 
         RowBox[{"True", "\[Rule]", "\"\<Fixed\>\""}]}], "}"}], ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
     "\[IndentingNewLine]", " ", "\"\<\>\"", ",", " ", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "Delimiter", ",", "\"\<\>\"", ",", " ", "\"\<\>\"", 
     ",", "\"\<\>\"", ",", "\[IndentingNewLine]", "\"\< Zoom\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"z", ",", " ", "1", ",", "\"\<\>\""}], "}"}], ",", "1", ",", 
       "10", ",", "0.1", ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"N2", ",", "0", ",", "\"\<\>\""}], "}"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"10", "i"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "100"}], "}"}]}], "]"}], ",", "  ", 
       RowBox[{"ControlType", "\[Rule]", "PopupMenu"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     StyleBox[
      RowBox[{"ControlPlacement", "\[Rule]", 
       RowBox[{"Join", "[", "   ", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{"Left", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "18"}], "}"}]}], "]"}], ",", " ", 
         RowBox[{"Table", "[", 
          RowBox[{"Top", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", " ", 
         RowBox[{"Table", "[", 
          RowBox[{"Right", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "100"}], "}"}]}], "]"}]}], "   ", 
        "]"}]}],
      FontSize->16,
      FontColor->RGBColor[0, 0, 1]], 
     StyleBox[",",
      FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", "General", "*)"}], "\[IndentingNewLine]", " ", 
     RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
     RowBox[{"TrackedSymbols", "\[Rule]", "Manipulate"}], ",", 
     RowBox[{"PreserveImageOptions", "\[Rule]", "IO"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"End", " ", "Controls"}], "*)"}], "\[IndentingNewLine]", "    ",
      "\[IndentingNewLine]", "     ", 
     RowBox[{"Initialization", "\[RuleDelayed]", 
      RowBox[{"{", "                                  ", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "s_", "]"}], ":=", 
         RowBox[{"R", "/.", "\[InvisibleSpace]", 
          RowBox[{"t", "\[Rule]", "s"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"V", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", "           ", 
          RowBox[{
           RowBox[{
            RowBox[{"f", "'"}], "[", "s", "]"}], 
           "                                                                  \
                             ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"S", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Refine", "[", "   ", 
            RowBox[{
             SqrtBox[
              RowBox[{"Factor", "[", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"V", "[", "\[InvisibleSpace]", "s", "]"}], 
                  "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                 "2"], "+", " ", 
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"V", "[", "\[InvisibleSpace]", "s", "]"}], 
                  "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
                 "2"], "+", 
                SuperscriptBox[
                 RowBox[{
                  RowBox[{"V", "[", "\[InvisibleSpace]", "s", "]"}], 
                  "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
                 "2"]}], "]"}]], "        ", ",", 
             RowBox[{"Element", "[", 
              RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
             RowBox[{"Assumptions", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
               "}"}]}]}], "]"}], ",", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], " ", ";", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Tn", "[", "s_", "]"}], ":=", " ", 
         RowBox[{"Simplify", "[", "             ", 
          RowBox[{
           FractionBox[
            RowBox[{"V", "[", "s", "]"}], 
            RowBox[{"S", "[", "s", "]"}]], 
           "                                                                  \
                          ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"DTn", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", "           ", 
          RowBox[{
           RowBox[{
            RowBox[{"Tn", "'"}], "[", "s", "]"}], 
           "                                                                  \
                       ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"NDTn", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Refine", "[", "  ", 
            RowBox[{
             SqrtBox[
              RowBox[{"Factor", "[", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tn", "'"}], "[", "\[InvisibleSpace]", "s", "]"}], 
                  "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                 "2"], "+", " ", 
                SuperscriptBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tn", "'"}], "[", "\[InvisibleSpace]", "s", "]"}], 
                  "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
                 "2"], "+", 
                SuperscriptBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"Tn", "'"}], "[", "\[InvisibleSpace]", "s", "]"}], 
                  "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
                 "2"]}], "]"}]], "   ", ",", 
             RowBox[{"Element", "[", 
              RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
             RowBox[{"Assumptions", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
               "}"}]}]}], "]"}], ",", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Nr", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", "           ", 
          RowBox[{
           FractionBox[
            RowBox[{"DTn", "[", "s", "]"}], 
            RowBox[{"NDTn", "[", "s", "]"}]], 
           "                                                                  \
                      ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"NCross", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Refine", "[", " ", 
            RowBox[{
             RowBox[{"\[Sqrt]", 
              RowBox[{"Factor", "[", " ", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"V", "[", "s", "]"}], "\[Cross]", 
                    RowBox[{
                    SuperscriptBox["V", "\[Prime]",
                    MultilineFunction->None], "[", "s", "]"}]}], ")"}], 
                   "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
                  ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"V", "[", "s", "]"}], "\[Cross]", 
                    RowBox[{
                    SuperscriptBox["V", "\[Prime]",
                    MultilineFunction->None], "[", "s", "]"}]}], ")"}], 
                   "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
                  ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"V", "[", "s", "]"}], "\[Cross]", 
                    RowBox[{
                    SuperscriptBox["V", "\[Prime]",
                    MultilineFunction->None], "[", "s", "]"}]}], ")"}], 
                   "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
                  ")"}], "2"]}], "]"}]}], ",", " ", 
             RowBox[{"Assumptions", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
               "}"}]}]}], "]"}], " ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Cv", "[", "s_", "]"}], ":=", 
         RowBox[{"Simplify", "[", "        ", 
          RowBox[{
           FractionBox[
            RowBox[{" ", 
             RowBox[{"NCross", "[", "s", "]"}]}], 
            SuperscriptBox[
             RowBox[{"S", "[", "s", "]"}], "3"]], 
           "                                                                  \
                    ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", 
        RowBox[{
         RowBox[{"AnALP", "[", "s_", "]"}], ":=", " ", 
         RowBox[{"Simplify", "[", "   ", 
          RowBox[{
           RowBox[{
            RowBox[{"Cv", "[", "s", "]"}], 
            RowBox[{"Nr", "[", "s", "]"}]}], 
           "                                                                  \
                ", ",", 
           RowBox[{"Element", "[", 
            RowBox[{"s", ",", "Reals"}], "]"}], ",", " ", 
           RowBox[{"Assumptions", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a", "\[LessEqual]", "s", "\[LessEqual]", "b"}], 
             "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "                                     ", 
       "}"}]}], " ", ",", 
     RowBox[{"FrameLabel", "->", "\"\<\!\(\*
StyleBox[\"\[Copyright]\",
FontSize->14]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"N\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\".\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Bykov\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\",\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"SJ\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Delta\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"College\",
FontColor->RGBColor[0, 0, 1]]\)\>\""}]}], "\[IndentingNewLine]", "]"}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"End", " ", "Manipulate"}], "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"   ", 
  RowBox[{"Panel", "[", "\[IndentingNewLine]", 
   RowBox[{"DynamicModule", "[", "              ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"R", "=", 
        RowBox[{"{", 
         RowBox[{"t", ",", 
          RowBox[{"t", "^", "2"}], ",", "0"}], "}"}]}], ",", 
       RowBox[{"a0", "=", "0"}], ",", 
       RowBox[{"b0", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
     "                            ", 
     RowBox[{"Column", "[", 
      RowBox[{"{", "  ", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Labeled", "[", 
            RowBox[{
             RowBox[{"InputField", "[", 
              RowBox[{
               RowBox[{"Dynamic", "[", "R", "]"}], ",", 
               RowBox[{"FieldSize", "\[Rule]", "40"}]}], "]"}], ",", " ", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Parametric Curve \!\(\*
StyleBox[\"r\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"(\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"t\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\")\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", "Black", ",", "15", ",", "Bold"}], 
              "]"}], ",", "Left"}], "]"}], ",", "\[IndentingNewLine]", 
           "                                        ", 
           RowBox[{"Labeled", "[", 
            RowBox[{
             RowBox[{"InputField", "[", 
              RowBox[{
               RowBox[{"Dynamic", "[", "a0", "]"}], ",", 
               RowBox[{"FieldSize", "\[Rule]", "5"}]}], "]"}], ",", " ", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Lower Range \!\(\*
StyleBox[\"a\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", "Black", ",", "15", ",", "Bold"}], 
              "]"}], ",", "Left"}], "]"}], ",", "       ", 
           "\[IndentingNewLine]", "                                        ", 
           RowBox[{"Labeled", "[", 
            RowBox[{
             RowBox[{"InputField", "[", 
              RowBox[{
               RowBox[{"Dynamic", "[", "b0", "]"}], ",", 
               RowBox[{"FieldSize", "\[Rule]", "5"}]}], "]"}], ",", " ", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Upper Range \!\(\*
StyleBox[\"b\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", "Black", ",", "15", ",", "Bold"}], 
              "]"}], ",", "Left"}], "]"}]}], "}"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        "                                             ", 
        RowBox[{"Dynamic", "[", 
         RowBox[{"Execute", "[", 
          RowBox[{"R", ",", "a0", ",", "b0"}], "]"}], "]"}]}], "    ", 
       RowBox[{"(*", 
        RowBox[{"End", " ", "Dynamic"}], "*)"}], "                        ", 
       "\[IndentingNewLine]", "                                      ", "}"}],
       "]"}]}], 
    RowBox[{"(*", 
     RowBox[{"End", " ", "Column"}], "*)"}], "    ", "\[IndentingNewLine]", 
    "                              ", "]"}], "  ", 
   RowBox[{"(*", 
    RowBox[{"End", " ", "Module"}], "*)"}], "     ", "\[IndentingNewLine]", 
   "            ", "]"}], "    "}]}], "Input",
 CellChangeTimes->{
  3.4103722785625*^9, {3.410374130704869*^9, 3.410374151267369*^9}, {
   3.4103742262829943`*^9, 3.410374264486119*^9}, {3.410374302267369*^9, 
   3.4103743238142443`*^9}, {3.410374416548619*^9, 3.4103744345954943`*^9}, 
   3.410374603329869*^9, {3.4103746802204943`*^9, 3.4103747485329943`*^9}, {
   3.4103748599392443`*^9, 3.410374862361119*^9}, {3.410374896236119*^9, 
   3.410374962923619*^9}, {3.410375019642369*^9, 3.4103750622204943`*^9}, {
   3.410375094579869*^9, 3.410375097142369*^9}, 3.4103751332829943`*^9, {
   3.4103751686267443`*^9, 3.410375181704869*^9}, {3.4103752201892443`*^9, 
   3.4103752246892443`*^9}, {3.410375321798619*^9, 3.410375323861119*^9}, {
   3.410375364423619*^9, 3.4103753672517443`*^9}, 3.4103773080017443`*^9, {
   3.410377522548619*^9, 3.410377526111119*^9}, {3.4103779443142443`*^9, 
   3.4103779503142443`*^9}, {3.410377997548619*^9, 3.4103780019392443`*^9}, {
   3.4103781461892443`*^9, 3.410378148454869*^9}, {3.410378241236119*^9, 
   3.4103782475642443`*^9}, 3.4103782848142443`*^9, {3.410378554017369*^9, 
   3.4103785796579943`*^9}, {3.410378621923619*^9, 3.410378651486119*^9}, {
   3.410382818017369*^9, 3.410382878454869*^9}, {3.4103829457829943`*^9, 
   3.410382947329869*^9}, {3.4103830236892443`*^9, 3.410383179642369*^9}, {
   3.4103834654704943`*^9, 3.4103834887829943`*^9}, {3.410386834798619*^9, 
   3.410386881142369*^9}, {3.410388378548619*^9, 3.410388414798619*^9}, {
   3.410388503454869*^9, 3.4103885039704943`*^9}, {3.410388592454869*^9, 
   3.410388639361119*^9}, {3.410388672986119*^9, 3.410388703298619*^9}, {
   3.410388787048619*^9, 3.4103888361892443`*^9}, {3.410388887986119*^9, 
   3.4103888885954943`*^9}, {3.4103898314079943`*^9, 3.410389875767369*^9}, {
   3.410389916486119*^9, 3.4103899225954943`*^9}, {3.4103900183454943`*^9, 
   3.4103900843142443`*^9}, {3.4103903664079943`*^9, 3.410390368798619*^9}, {
   3.410393230329869*^9, 3.4103932392829943`*^9}, {3.410393413642369*^9, 
   3.410393420767369*^9}, {3.4103948651267443`*^9, 3.410394873548619*^9}, {
   3.410395508361119*^9, 3.410395512392369*^9}, {3.410395968204869*^9, 
   3.410395972298619*^9}, {3.4103960159079943`*^9, 3.4103960194392443`*^9}, {
   3.4103970075642443`*^9, 3.410397221954869*^9}, {3.4103972842204943`*^9, 
   3.4103973489079943`*^9}, {3.4103974153767443`*^9, 
   3.4103974158454943`*^9}, {3.410398140111119*^9, 3.4103982288142443`*^9}, {
   3.410398279611119*^9, 3.410398331486119*^9}, {3.410398445236119*^9, 
   3.4103984495642443`*^9}, {3.410472607296875*^9, 3.410472660390625*^9}, {
   3.41047303290625*^9, 3.41047310328125*^9}, {3.41047496478125*^9, 
   3.41047500275*^9}, 3.410475154578125*^9, {3.410475248203125*^9, 
   3.41047535121875*^9}, {3.410475398484375*^9, 3.410475412640625*^9}, {
   3.410475453015625*^9, 3.410475456859375*^9}, {3.41047555621875*^9, 
   3.410475573609375*^9}, {3.410475618625*^9, 3.41047570028125*^9}, {
   3.410475769828125*^9, 3.4104757794375*^9}, {3.41047914384375*^9, 
   3.41047920940625*^9}, {3.410479933625*^9, 3.4104799484375*^9}, {
   3.41048009*^9, 3.41048009203125*^9}, {3.410480751828125*^9, 
   3.41048078021875*^9}, {3.410480962640625*^9, 3.4104809659375*^9}, {
   3.410481020625*^9, 3.4104810565625*^9}, {3.41048115759375*^9, 
   3.41048125878125*^9}, 3.41048151746875*^9, {3.41048168275*^9, 
   3.41048169021875*^9}, {3.41048200103125*^9, 3.410482005328125*^9}, {
   3.410482176734375*^9, 3.410482178859375*^9}, {3.410485651125*^9, 
   3.410485662671875*^9}, {3.410622698484375*^9, 3.41062275834375*^9}, {
   3.4106227990625*^9, 3.410622813125*^9}, {3.410623082484375*^9, 
   3.410623108375*^9}, {3.410623212265625*^9, 3.41062322996875*^9}, {
   3.4106232803125*^9, 3.410623290203125*^9}, {3.410623341515625*^9, 
   3.410623378296875*^9}, {3.410623462546875*^9, 3.41062347646875*^9}, {
   3.410623654140625*^9, 3.41062365809375*^9}, 3.410623757546875*^9, {
   3.4106237994375*^9, 3.410623813921875*^9}, {3.410623998265625*^9, 
   3.41062402975*^9}, {3.410624122203125*^9, 3.410624145625*^9}, {
   3.410624180515625*^9, 3.410624183578125*^9}, {3.410624219859375*^9, 
   3.41062424084375*^9}, {3.41062435278125*^9, 3.410624354390625*^9}, {
   3.4106244350625*^9, 3.410624441609375*^9}, {3.410624567765625*^9, 
   3.410624666671875*^9}, {3.4106249228125*^9, 3.410624940578125*^9}, {
   3.4106249775625*^9, 3.41062502090625*^9}, 3.410627022859375*^9, {
   3.41062706975*^9, 3.41062707209375*^9}, 3.41062710859375*^9, {
   3.410627144453125*^9, 3.41062717196875*^9}, {3.410627690328125*^9, 
   3.41062769534375*^9}, {3.41062778065625*^9, 3.410627810359375*^9}, {
   3.410629213359375*^9, 3.410629271703125*^9}, {3.41063172759375*^9, 
   3.410631750984375*^9}, {3.410631980265625*^9, 3.410632052484375*^9}, 
   3.41063208903125*^9, {3.4106321304375*^9, 3.410632191390625*^9}, {
   3.410632224296875*^9, 3.41063223378125*^9}, {3.410632301625*^9, 
   3.410632325375*^9}, {3.41063242490625*^9, 3.410632472125*^9}, {
   3.410632519734375*^9, 3.41063255984375*^9}, {3.410632599484375*^9, 
   3.410632603640625*^9}, {3.410634730859375*^9, 3.41063478196875*^9}, 
   3.410634815765625*^9, {3.410635205640625*^9, 3.41063523253125*^9}, {
   3.410635302625*^9, 3.410635315140625*^9}, {3.41063537671875*^9, 
   3.410635399734375*^9}, {3.41063543321875*^9, 3.410635449984375*^9}, {
   3.410635525875*^9, 3.410635548640625*^9}, {3.410635617265625*^9, 
   3.410635617625*^9}, {3.410635648296875*^9, 3.410635660390625*^9}, {
   3.41063579559375*^9, 3.410635804484375*^9}, {3.41063603965625*^9, 
   3.410636094296875*^9}, {3.41063657321875*^9, 3.410636606671875*^9}, {
   3.410636649921875*^9, 3.410636681546875*^9}, {3.410636729640625*^9, 
   3.410636788296875*^9}, {3.410638400703125*^9, 3.410638426671875*^9}, {
   3.410638504296875*^9, 3.410638509265625*^9}, 3.410643587328125*^9, {
   3.410643622796875*^9, 3.410643641390625*^9}, {3.410643784703125*^9, 
   3.4106437850625*^9}, {3.41064386140625*^9, 3.410643934703125*^9}, {
   3.41064396653125*^9, 3.4106439956875*^9}, {3.410644066703125*^9, 
   3.41064408065625*^9}, {3.41064411803125*^9, 3.410644228203125*^9}, {
   3.41064427415625*^9, 3.41064429265625*^9}, {3.410644516546875*^9, 
   3.410644520171875*^9}, {3.410644743359375*^9, 3.410644836140625*^9}, {
   3.410644921609375*^9, 3.41064501840625*^9}, {3.4106450669375*^9, 
   3.410645068828125*^9}, {3.41064510046875*^9, 3.410645144578125*^9}, {
   3.41064517978125*^9, 3.410645361984375*^9}, {3.41064539671875*^9, 
   3.41064539975*^9}, {3.410645496140625*^9, 3.410645680984375*^9}, {
   3.410645756796875*^9, 3.410645783125*^9}, {3.410645988015625*^9, 
   3.41064599621875*^9}, {3.41064615721875*^9, 3.41064615778125*^9}, {
   3.410646350640625*^9, 3.41064647453125*^9}, {3.410646511078125*^9, 
   3.4106465139375*^9}, {3.410646610828125*^9, 3.41064675590625*^9}, {
   3.410647076234375*^9, 3.410647162765625*^9}, {3.4106481970625*^9, 
   3.410648201890625*^9}, {3.410648232578125*^9, 3.41064826215625*^9}, {
   3.41064830140625*^9, 3.410648302828125*^9}, {3.41064868153125*^9, 
   3.41064875740625*^9}, {3.4106491453125*^9, 3.410649160078125*^9}, {
   3.410649313578125*^9, 3.41064935*^9}, {3.4106493996875*^9, 
   3.4106494809375*^9}, {3.41065054009375*^9, 3.41065056540625*^9}, {
   3.410650770328125*^9, 3.41065080003125*^9}, {3.410650879078125*^9, 
   3.410650891125*^9}, {3.41065094690625*^9, 3.410651032359375*^9}, {
   3.4106512083125*^9, 3.410651208546875*^9}, {3.410651309359375*^9, 
   3.410651311078125*^9}, {3.4106520551875*^9, 3.41065205546875*^9}, {
   3.410654115296875*^9, 3.410654115640625*^9}, {3.410654321546875*^9, 
   3.41065432234375*^9}, {3.410654405328125*^9, 3.410654434578125*^9}, {
   3.4106586635625*^9, 3.410658663984375*^9}, {3.4106589191875*^9, 
   3.410658919546875*^9}, {3.410660826453125*^9, 3.410660905671875*^9}, {
   3.410660943703125*^9, 3.410660948125*^9}, {3.410661258921875*^9, 
   3.410661266234375*^9}, {3.410661751921875*^9, 3.410661755859375*^9}, {
   3.4122999970625*^9, 3.412300023484375*^9}, {3.412381405296875*^9, 
   3.412381409828125*^9}, {3.412717486703125*^9, 3.412717564328125*^9}, {
   3.412717728703125*^9, 3.41271772896875*^9}, {3.412717781328125*^9, 
   3.412717989890625*^9}, {3.412718077828125*^9, 3.41271807934375*^9}, {
   3.41271812621875*^9, 3.412718154640625*^9}, {3.4127182519375*^9, 
   3.412718348578125*^9}, {3.412718423125*^9, 3.41271848128125*^9}, {
   3.412718525359375*^9, 3.4127185425*^9}, {3.41271857309375*^9, 
   3.412718784546875*^9}, {3.41271887196875*^9, 3.41271894753125*^9}, {
   3.412719036265625*^9, 3.412719162296875*^9}, 3.412719543375*^9, {
   3.412727528609375*^9, 3.412727566546875*^9}, 3.412727607703125*^9, {
   3.412727693109375*^9, 3.41272775590625*^9}, {3.413145329125*^9, 
   3.41314539884375*^9}, {3.413145452015625*^9, 3.41314549175*^9}, {
   3.413145536828125*^9, 3.41314554178125*^9}, {3.413145633265625*^9, 
   3.413145636859375*^9}, {3.41347011734375*^9, 3.413470139609375*^9}, {
   3.41506334940625*^9, 3.415063352328125*^9}, {3.415063431015625*^9, 
   3.41506343290625*^9}, {3.415063488703125*^9, 3.41506354021875*^9}, {
   3.41506358446875*^9, 3.41506365009375*^9}, {3.415063685453125*^9, 
   3.415063709046875*^9}, 3.41506375221875*^9, {3.415063805015625*^9, 
   3.4150638086875*^9}, {3.415063845984375*^9, 3.4150639031875*^9}, {
   3.415063996796875*^9, 3.415064132890625*^9}, {3.415064274171875*^9, 
   3.415064570109375*^9}, {3.415064733578125*^9, 3.41506473584375*^9}, {
   3.41506480259375*^9, 3.415064822125*^9}, {3.415065291265625*^9, 
   3.41506529403125*^9}, {3.415065378125*^9, 3.415065388203125*^9}, 
   3.415065445765625*^9, {3.415065487328125*^9, 3.41506556165625*^9}, {
   3.415065616109375*^9, 3.415065624703125*^9}, {3.415065697078125*^9, 
   3.41506569928125*^9}, {3.415065739203125*^9, 3.41506574096875*^9}, {
   3.41506577809375*^9, 3.415065814609375*^9}, {3.41506586634375*^9, 
   3.415065887125*^9}, {3.415065952546875*^9, 3.415066046984375*^9}, {
   3.415066131484375*^9, 3.415066166625*^9}, {3.41506624109375*^9, 
   3.415066254140625*^9}, {3.415565053828125*^9, 3.415565066515625*^9}, {
   3.4155650966875*^9, 3.415565156015625*^9}, 3.415565226640625*^9, {
   3.415565264015625*^9, 3.41556528496875*^9}, {3.4155653220625*^9, 
   3.415565466328125*^9}, {3.41556549728125*^9, 3.415565616703125*^9}, {
   3.4155656644375*^9, 3.415565700359375*^9}, {3.415565778140625*^9, 
   3.415565810671875*^9}, {3.41556612371875*^9, 3.415566134578125*^9}, {
   3.415566457828125*^9, 3.415566464984375*^9}, {3.415566555625*^9, 
   3.415566557*^9}, 3.41556662334375*^9, {3.415566670546875*^9, 
   3.415566675359375*^9}, {3.41556673865625*^9, 3.41556685515625*^9}, {
   3.415566888984375*^9, 3.415566890421875*^9}, {3.415566975203125*^9, 
   3.41556709103125*^9}, {3.41556712484375*^9, 3.415567218859375*^9}, {
   3.41556730215625*^9, 3.415567355296875*^9}, {3.415567433109375*^9, 
   3.415567478796875*^9}, {3.4155676090625*^9, 3.415567618234375*^9}, {
   3.415567851421875*^9, 3.415567871640625*^9}, {3.41556792371875*^9, 
   3.415567937234375*^9}, {3.4155680059375*^9, 3.415568026171875*^9}, {
   3.415568074828125*^9, 3.415568110953125*^9}, {3.415568609875*^9, 
   3.415568710265625*^9}, {3.41556890153125*^9, 3.41556894278125*^9}, {
   3.4155691109375*^9, 3.415569113375*^9}, 3.415569268359375*^9, {
   3.415569506453125*^9, 3.41556956128125*^9}, {3.41556970578125*^9, 
   3.415569825171875*^9}, {3.415569897625*^9, 3.415569902421875*^9}, {
   3.4155701355625*^9, 3.41557014059375*^9}, {3.415570416484375*^9, 
   3.41557046965625*^9}, {3.415570515609375*^9, 3.4155705766875*^9}, {
   3.415570621109375*^9, 3.415570693546875*^9}, {3.41557072590625*^9, 
   3.41557086184375*^9}, {3.415570905140625*^9, 3.415570912984375*^9}, 
   3.415570985921875*^9, {3.415571123625*^9, 3.4155711264375*^9}, {
   3.41557123646875*^9, 3.4155712386875*^9}, {3.415572102546875*^9, 
   3.415572104125*^9}, {3.41557231875*^9, 3.41557233478125*^9}, {
   3.415572418125*^9, 3.415572471265625*^9}, 3.41557250875*^9, {
   3.415573299421875*^9, 3.41557330153125*^9}, {3.415573414609375*^9, 
   3.415573516671875*^9}, {3.415573733859375*^9, 3.41557376475*^9}, {
   3.415573811765625*^9, 3.415573828203125*^9}, {3.415573907625*^9, 
   3.415573941375*^9}, {3.415573972609375*^9, 3.41557400090625*^9}, 
   3.415574055265625*^9, {3.415574134*^9, 3.41557413609375*^9}, {
   3.41557421965625*^9, 3.415574237390625*^9}, {3.41557436125*^9, 
   3.415574363515625*^9}, {3.41557458765625*^9, 3.4155746461875*^9}, {
   3.41557473734375*^9, 3.415574750734375*^9}, {3.415574951140625*^9, 
   3.415574953890625*^9}, {3.415575381890625*^9, 3.415575425015625*^9}, {
   3.41557560153125*^9, 3.415575610296875*^9}, {3.4155757670625*^9, 
   3.415575771296875*^9}, {3.41557592278125*^9, 3.41557595703125*^9}, {
   3.4155760006875*^9, 3.41557607015625*^9}, {3.41557618271875*^9, 
   3.4155762493125*^9}, {3.4155763345625*^9, 3.41557635103125*^9}, 
   3.415576400109375*^9, 3.41557645521875*^9, 3.415576503125*^9, {
   3.415578090375*^9, 3.41557811975*^9}, {3.4155782653125*^9, 
   3.415578283390625*^9}, {3.41557864834375*^9, 3.4155786921875*^9}, {
   3.415578792078125*^9, 3.41557881421875*^9}, {3.41557887115625*^9, 
   3.415578963890625*^9}, {3.41557903190625*^9, 3.41557911703125*^9}, {
   3.41557915140625*^9, 3.415579151921875*^9}, {3.415579237515625*^9, 
   3.41557924753125*^9}, {3.41557947928125*^9, 3.41557958328125*^9}, {
   3.4155796140625*^9, 3.41557965446875*^9}, {3.41557973265625*^9, 
   3.415579747703125*^9}, {3.415579811265625*^9, 3.415579835203125*^9}, 
   3.41558014453125*^9, {3.415580212640625*^9, 3.415580221890625*^9}, {
   3.4155802523125*^9, 3.415580268140625*^9}, {3.41558034746875*^9, 
   3.415580428109375*^9}, {3.415580467109375*^9, 3.4155805311875*^9}, {
   3.41558143140625*^9, 3.415581480671875*^9}, {3.41558155234375*^9, 
   3.41558158175*^9}, {3.415581615609375*^9, 3.415581664171875*^9}, {
   3.415581772671875*^9, 3.4155818373125*^9}, {3.415581875515625*^9, 
   3.41558187725*^9}, {3.41558193428125*^9, 3.41558194396875*^9}, {
   3.41558198903125*^9, 3.41558205109375*^9}, {3.415582104109375*^9, 
   3.415582177015625*^9}, {3.41558248153125*^9, 3.4155825143125*^9}, {
   3.415582790140625*^9, 3.415582843671875*^9}, {3.415582924375*^9, 
   3.41558292603125*^9}, {3.41558310846875*^9, 3.41558336825*^9}, {
   3.415583581515625*^9, 3.4155835976875*^9}, {3.41558372409375*^9, 
   3.415583729109375*^9}, {3.41558386609375*^9, 3.415583868234375*^9}, {
   3.415584966140625*^9, 3.4155849766875*^9}, {3.41558508759375*^9, 
   3.415585098265625*^9}, {3.415585139140625*^9, 3.41558514428125*^9}, {
   3.41558517759375*^9, 3.415585232703125*^9}, {3.415585308546875*^9, 
   3.4155853379375*^9}, 3.415585481484375*^9, {3.415628937953125*^9, 
   3.41562896509375*^9}, {3.4156290155625*^9, 3.41562904065625*^9}, {
   3.41562910584375*^9, 3.41562910653125*^9}, {3.415629364890625*^9, 
   3.415629413046875*^9}, {3.415629459859375*^9, 3.41562946965625*^9}, {
   3.415629555078125*^9, 3.41562958153125*^9}, 3.41562964925*^9, {
   3.41562970171875*^9, 3.415629752125*^9}, 3.415629788796875*^9, {
   3.415629863234375*^9, 3.41562987496875*^9}, 3.415629915625*^9, {
   3.4156299780625*^9, 3.415630007609375*^9}, {3.415630120359375*^9, 
   3.41563012246875*^9}, {3.41563020140625*^9, 3.415630203125*^9}, {
   3.415631863265625*^9, 3.415631863453125*^9}, {3.415631940734375*^9, 
   3.415631944125*^9}, {3.41563250590625*^9, 3.41563254096875*^9}, {
   3.4156325944375*^9, 3.41563262828125*^9}, {3.41563266065625*^9, 
   3.415632737796875*^9}, {3.415632835828125*^9, 3.415632973296875*^9}, {
   3.41563358003125*^9, 3.4156337194375*^9}, 3.41563375359375*^9, {
   3.415633822015625*^9, 3.41563386084375*^9}, {3.415633905*^9, 
   3.415633953734375*^9}, 3.415633991609375*^9, 3.415634026171875*^9, {
   3.415634086640625*^9, 3.4156341153125*^9}, {3.415634157546875*^9, 
   3.415634165625*^9}, {3.415634202046875*^9, 3.41563422721875*^9}, {
   3.4156342614375*^9, 3.415634269796875*^9}, {3.415634337890625*^9, 
   3.415634338390625*^9}, {3.415634370125*^9, 3.4156343956875*^9}, {
   3.4156346240625*^9, 3.41563466*^9}, {3.415634724375*^9, 
   3.41563473090625*^9}, 3.4156353758125*^9, {3.415635434390625*^9, 
   3.415635494046875*^9}, 3.41563555353125*^9, {3.415635608640625*^9, 
   3.415635649125*^9}, {3.41563589678125*^9, 3.41563591590625*^9}, 
   3.415635981125*^9, {3.4156361254375*^9, 3.415636130515625*^9}, {
   3.4156361929375*^9, 3.41563626153125*^9}, {3.41563630434375*^9, 
   3.41563632503125*^9}, {3.415636370921875*^9, 3.41563639578125*^9}, {
   3.41563643321875*^9, 3.415636468109375*^9}, {3.4156364986875*^9, 
   3.4156365180625*^9}, {3.41563666415625*^9, 3.41563667503125*^9}, {
   3.41563675046875*^9, 3.41563679478125*^9}, {3.4156369599375*^9, 
   3.415637013953125*^9}, 3.415637072546875*^9, 3.41563841859375*^9, 
   3.415638543640625*^9, {3.415638576890625*^9, 3.415638581625*^9}, {
   3.415638612828125*^9, 3.415638642484375*^9}, {3.415638751140625*^9, 
   3.41563877684375*^9}, {3.415639148578125*^9, 3.4156391573125*^9}, {
   3.415639554375*^9, 3.415639556078125*^9}, {3.415639664859375*^9, 
   3.41563975734375*^9}, {3.4156398013125*^9, 3.4156398630625*^9}, {
   3.4156400126875*^9, 3.4156400684375*^9}, {3.415640128609375*^9, 
   3.415640177109375*^9}, {3.415640227984375*^9, 3.415640245328125*^9}, {
   3.41564029878125*^9, 3.415640308828125*^9}, 3.4156404323125*^9, {
   3.4156405025625*^9, 3.415640520484375*^9}, {3.415640584109375*^9, 
   3.415640663609375*^9}, {3.41564098475*^9, 3.415641199078125*^9}, {
   3.41564129778125*^9, 3.41564139365625*^9}, {3.415641548703125*^9, 
   3.415641667984375*^9}, 3.415641796609375*^9, {3.415642509890625*^9, 
   3.415642534453125*^9}, {3.4156425756875*^9, 3.4156425783125*^9}, {
   3.4156427768125*^9, 3.41564290921875*^9}, {3.415642958578125*^9, 
   3.415642995546875*^9}, {3.415643046609375*^9, 3.415643086046875*^9}, {
   3.415643238953125*^9, 3.41564334459375*^9}, {3.415643411078125*^9, 
   3.415643521390625*^9}, {3.415643560734375*^9, 3.415643568140625*^9}, {
   3.415643753125*^9, 3.415643753296875*^9}, {3.41564378709375*^9, 
   3.415643793171875*^9}, {3.415644038203125*^9, 3.41564404028125*^9}, {
   3.415644205265625*^9, 3.415644206171875*^9}, {3.415644335140625*^9, 
   3.41564434440625*^9}, {3.41564441940625*^9, 3.415644464296875*^9}, {
   3.415644544859375*^9, 3.41564457103125*^9}, {3.41564468565625*^9, 
   3.415644716203125*^9}, {3.415644766359375*^9, 3.4156447945*^9}, {
   3.415644829234375*^9, 3.4156448353125*^9}, {3.415644892359375*^9, 
   3.41564490725*^9}, 3.41564496025*^9, {3.415645054078125*^9, 
   3.415645063046875*^9}, {3.415645152*^9, 3.415645152890625*^9}, {
   3.415645205765625*^9, 3.415645208265625*^9}, {3.41564524140625*^9, 
   3.415645241859375*^9}, {3.415645317078125*^9, 3.415645327859375*^9}, {
   3.41564539109375*^9, 3.41564539840625*^9}, {3.415645432109375*^9, 
   3.4156454506875*^9}, {3.41564581346875*^9, 3.41564582534375*^9}, {
   3.415645872484375*^9, 3.41564594890625*^9}, {3.41564603015625*^9, 
   3.415646038453125*^9}, {3.415670920015625*^9, 3.4156709230625*^9}, {
   3.415671235640625*^9, 3.415671268125*^9}, {3.437679481625*^9, 
   3.4376794875625*^9}, 3.4661218904375*^9, {3.46612195809375*^9, 
   3.466121965453125*^9}, {3.46612203371875*^9, 3.466122229921875*^9}, {
   3.466122363578125*^9, 3.466122371625*^9}, {3.466122423890625*^9, 
   3.46612246390625*^9}, 3.466122530109375*^9, {3.466122566984375*^9, 
   3.466122574*^9}, 3.466122754*^9, {3.4661229518125*^9, 
   3.46612300590625*^9}, {3.470148778671875*^9, 3.470148782203125*^9}, {
   3.4701488620625*^9, 3.470148942015625*^9}, {3.47014977715625*^9, 
   3.4701497839375*^9}, 3.47014982403125*^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, 50848, 1019, 1762, "Input"]
}
]
*)

(* End of internal cache information *)