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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     23787,        718]
NotebookOptionsPosition[     23064,        689]
NotebookOutlinePosition[     23423,        705]
CellTagsIndexPosition[     23380,        702]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Space", " ", "Curves"}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Definition", " ", "of", " ", "Curve", " ", "C"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"F", "[", "t_", "]"}], ":=", 
     RowBox[{"r", "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"a", "*", "t"}], "]"}]}]}], ";"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"G", "[", "t_", "]"}], ":=", 
     RowBox[{"r", "*", 
      RowBox[{"Sin", "[", 
       RowBox[{"a", "*", "t"}], "]"}]}]}], ";"}], " ", "*)"}], "       ", 
  RowBox[{"(*", " ", "Helix", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"H", "[", "t_", "]"}], ":=", 
     RowBox[{"a", "*", "b", "*", "t"}]}], ";"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"F", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"1", "+", 
        RowBox[{"t", "^", "2"}]}], "]"}], "/", 
      RowBox[{"Sqrt", "[", "5", "]"}]}]}], ";"}], " ", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{
     RowBox[{"G", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "t"}], ")"}], "/", 
      RowBox[{"Sqrt", "[", "5", "]"}]}]}], ";"}], " ", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{
     RowBox[{"H", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"t", "+", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"1", "+", 
          RowBox[{"t", "^", "2"}]}], "]"}]}], "]"}], "/", 
      RowBox[{"Sqrt", "[", "5", "]"}]}]}], ";"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "t_", "]"}], ":=", 
      RowBox[{"a", "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}]}], ";"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"G", "[", "t_", "]"}], ":=", 
      RowBox[{"a", "*", 
       RowBox[{"Sin", "[", "t", "]"}]}]}], ";"}], " ", "*)"}], 
   "                  ", 
   RowBox[{"(*", " ", "Viviani", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"H", "[", "t_", "]"}], ":=", 
      RowBox[{"a", "*", "2", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"t", "/", "2"}], "]"}]}]}], ";"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "t_", "]"}], ":="}], ";"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"G", "[", "t_", "]"}], ":="}], ";"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"H", "[", "t_", "]"}], ":="}], ";"}], " ", "*)"}]}]}]], "Input",\

 CellChangeTimes->{{3.6243756290767403`*^9, 3.624375644013463*^9}, {
   3.6243757053785477`*^9, 3.624375852695063*^9}, {3.62437590627602*^9, 
   3.6243759505530243`*^9}, {3.624375989046421*^9, 3.6243760129158907`*^9}, {
   3.6243763243987427`*^9, 3.6243763774201317`*^9}, {3.624376525568309*^9, 
   3.6243766019412127`*^9}, {3.62437678786335*^9, 3.624376897665625*^9}, {
   3.624376927676301*^9, 3.624376949171489*^9}, {3.624376991104706*^9, 
   3.6243769912645206`*^9}, {3.624377047228438*^9, 3.6243771068650703`*^9}, 
   3.624377140238097*^9, {3.624377177637829*^9, 3.624377178381639*^9}, 
   3.6243772643103848`*^9, {3.624377426732346*^9, 3.624377441810474*^9}, {
   3.62437748839089*^9, 3.624377511564334*^9}, {3.6243776434920187`*^9, 
   3.6243776461174383`*^9}, {3.624377701186592*^9, 3.624377728093204*^9}, {
   3.624377774082844*^9, 3.624377799848288*^9}, 3.624377940678638*^9, {
   3.624377989852826*^9, 3.624378004649139*^9}, {3.62437803650494*^9, 
   3.624378056840653*^9}, {3.624378088209847*^9, 3.6243780895232077`*^9}, {
   3.624808488027087*^9, 3.624808492905786*^9}, {3.6249785696262913`*^9, 
   3.6249786512582283`*^9}, {3.62497905396012*^9, 3.6249792132439747`*^9}, {
   3.624979487297682*^9, 3.62497950250375*^9}, {3.624979788684062*^9, 
   3.624979904474802*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Calculation", " ", "of", " ", 
    RowBox[{"C", "'"}], " ", "and", " ", 
    RowBox[{"C", "''"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Ft", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"F", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Gt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"G", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ht", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"H", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ftt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Ft", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Gtt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Gt", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Htt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Ht", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"ArcLength", " ", 
      RowBox[{"S", "[", "t", "]"}]}], "=", 
     RowBox[{"1", " ", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"S", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Ft", "[", "t", "]"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"Gt", "[", "t", "]"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"Ht", "[", "t", "]"}], "^", "2"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"S", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "^", "2"}], "+", 
          RowBox[{"r", "^", "2"}]}], ")"}]}], "==", "1"}]}], "]"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"S", "[", "t", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6243781290485773`*^9, 3.624378165862378*^9}, {
   3.624395467800315*^9, 3.62439547808541*^9}, {3.6243955082353086`*^9, 
   3.624395516394779*^9}, {3.624395865338213*^9, 3.624395872441787*^9}, {
   3.62439637427883*^9, 3.624396413852961*^9}, {3.6248076318302193`*^9, 
   3.624807632455689*^9}, {3.624807668772847*^9, 3.624807707729495*^9}, 
   3.624807755326621*^9, {3.624807824160282*^9, 3.624807858717606*^9}, {
   3.624979238035028*^9, 3.624979291150536*^9}, {3.6249794204846077`*^9, 
   3.624979422581037*^9}, {3.62497945521891*^9, 3.624979458753522*^9}, {
   3.624979512567295*^9, 3.624979593882358*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.6249792969033422`*^9, 3.624979356750081*^9, 3.6249794247363377`*^9, 
   3.6249794612981243`*^9, 3.624979530084936*^9, {3.624979581991282*^9, 
   3.624979601323215*^9}, 3.624979677050262*^9, 3.6253392815471487`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "If", " ", "\"\<Yes\>\"", " ", "Execute", " ", "Following", " ", "Stage"}],
    " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Otherwise", " ", "Skip", " ", "to", " ", "Next", " ", "Stage"}], 
   " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Tx", "[", "t_", "]"}], ":=", 
     RowBox[{"Ft", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ty", "[", "t_", "]"}], ":=", 
     RowBox[{"Gt", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Tz", "[", "t_", "]"}], ":=", 
     RowBox[{"Ht", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Txt", "[", "t_", "]"}], ":=", 
     RowBox[{"Ftt", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Tyt", "[", "t_", "]"}], ":=", 
     RowBox[{"Gtt", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Tzt", "[", "t_", "]"}], ":=", 
     RowBox[{"Htt", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"kappa", "[", "t_", "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Txt", "[", "t", "]"}], "^", "2"}], "+", 
       RowBox[{
        RowBox[{"Tyt", "[", "t", "]"}], "^", "2"}], "+", 
       RowBox[{
        RowBox[{"Tzt", "[", "t", "]"}], "^", "2"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Nx", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"kappa", "[", "t", "]"}]}], ")"}], "*", 
      RowBox[{"Txt", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Ny", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"kappa", "[", "t", "]"}]}], ")"}], "*", 
      RowBox[{"Tyt", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Nz", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"kappa", "[", "t", "]"}]}], ")"}], "*", 
      RowBox[{"Tzt", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Nxt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Nx", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Nyt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Ny", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Nzt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Nz", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Bx", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Ty", "[", "t", "]"}], "*", 
       RowBox[{"Nz", "[", "t", "]"}]}], "-", 
      RowBox[{
       RowBox[{"Ny", "[", "t", "]"}], "*", 
       RowBox[{"Tz", "[", "t", "]"}]}]}]}], ";"}], "      ", 
   RowBox[{"(*", " ", 
    RowBox[{"B", "=", "TxN"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"By", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Nx", "[", "t", "]"}], "*", 
       RowBox[{"Tz", "[", "t", "]"}]}], "-", 
      RowBox[{
       RowBox[{"Tx", "[", "t", "]"}], "*", 
       RowBox[{"Nz", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Bz", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Tx", "[", "t", "]"}], "*", 
       RowBox[{"Ny", "[", "t", "]"}]}], "-", 
      RowBox[{
       RowBox[{"Nx", "[", "t", "]"}], "*", 
       RowBox[{"Ty", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Bxt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Bx", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Byt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"By", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Bzt", "[", "t_", "]"}], ":=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Bz", "[", "t", "]"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"tau", "[", "t_", "]"}], ":=", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Bxt", "[", "t", "]"}], "*", 
         RowBox[{"Nx", "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Byt", "[", "t", "]"}], "*", 
         RowBox[{"Ny", "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Bzt", "[", "t", "]"}], "*", 
         RowBox[{"Nz", "[", "t", "]"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"kappa", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "^", "2"}], "+", 
          RowBox[{"r", "^", "2"}]}], ")"}]}], "==", "1"}]}], "]"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"tau", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "^", "2"}], "+", 
          RowBox[{"r", "^", "2"}]}], ")"}]}], "==", "1"}]}], "]"}], " ", 
    "*)"}], "\n", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"kappa", "[", "t", "]"}], ",", " ", 
     RowBox[{"0", "\[LessEqual]", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"t", "^", "2"}]}], ")"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"tau", "[", "t", "]"}], ",", " ", 
     RowBox[{"0", "\[LessEqual]", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"t", "^", "2"}]}], ")"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6243955603851624`*^9, 3.6243955605280313`*^9}, {
   3.624395602213057*^9, 3.6243956356755533`*^9}, {3.624395699239603*^9, 
   3.624395729204904*^9}, {3.624395916599222*^9, 3.624395977747108*^9}, {
   3.6243960411355133`*^9, 3.6243960720597467`*^9}, {3.624396159556734*^9, 
   3.624396161638278*^9}, {3.624396436371426*^9, 3.6243965602748337`*^9}, {
   3.6243965987283373`*^9, 3.624396616798965*^9}, {3.624396648188686*^9, 
   3.624396763316833*^9}, {3.624396906249926*^9, 3.62439707719139*^9}, {
   3.624397142659478*^9, 3.6243971877836943`*^9}, {3.62439725569875*^9, 
   3.62439738320189*^9}, {3.624397685685048*^9, 3.6243977533292*^9}, {
   3.6248073041027184`*^9, 3.6248073405298567`*^9}, 3.624807390321766*^9, {
   3.6248076133997087`*^9, 3.624807614059681*^9}, {3.624807893326662*^9, 
   3.624807993790698*^9}, {3.6248080745588293`*^9, 3.624808075862362*^9}, 
   3.624978728287101*^9, {3.6249787850903797`*^9, 3.62497879784*^9}, {
   3.624979634374283*^9, 3.624979661926791*^9}, {3.62533925350392*^9, 
   3.625339271795471*^9}, {3.625339321216902*^9, 3.625339328230303*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SqrtBox["5"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["t", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.624978849005645*^9, 3.624979681046438*^9, 
  3.625339289600851*^9, 3.6253393379323387`*^9}],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{
   SqrtBox["5"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["t", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.624978849005645*^9, 3.624979681046438*^9, 
  3.625339289600851*^9, 3.625339337998643*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Calculation", " ", "of", " ", "Curvature", " ", "and", " ", "Torsion", 
    " ", "for", " ", "General", " ", "t"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Calculation", " ", "of", " ", 
    RowBox[{"C", "'''"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.624396077593523*^9, 3.624396110224945*^9}, 
   3.624396184350198*^9, {3.624396258175252*^9, 3.624396330337659*^9}, {
   3.624396381702161*^9, 3.6243963828460608`*^9}, {3.624808095829982*^9, 
   3.624808161129004*^9}, 3.6249788345422707`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ft", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"F", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Gt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"G", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ht", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"H", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ftt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Ft", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Gtt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Gt", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Htt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Ht", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fttt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Ftt", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Gttt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Gtt", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Httt", "[", "t_", "]"}], ":=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Htt", "[", "t", "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SS", "[", "t_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Ft", "[", "t", "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"Gt", "[", "t", "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"Ht", "[", "t", "]"}], "^", "2"}]}], "]"}]}], ";", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Length", " ", "of", " ", "Tangent", " ", "Vector"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"KK", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Gt", "[", "t", "]"}], "*", 
     RowBox[{"Htt", "[", "t", "]"}]}], "-", 
    RowBox[{
     RowBox[{"Ht", "[", "t", "]"}], "*", 
     RowBox[{"Gtt", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LL", "[", "t_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"Ht", "[", "t", "]"}], "*", 
      RowBox[{"Ftt", "[", "t", "]"}]}], "-", 
     RowBox[{
      RowBox[{"Ft", "[", "t", "]"}], "*", 
      RowBox[{"Htt", "[", "t", "]"}]}]}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Cross", " ", "Product"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MM", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Ft", "[", "t", "]"}], "*", 
     RowBox[{"Gtt", "[", "t", "]"}]}], "-", 
    RowBox[{
     RowBox[{"Gt", "[", "t", "]"}], "*", 
     RowBox[{"Ftt", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TT", "[", "t_", "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"KK", "[", "t", "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"LL", "[", "t", "]"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"MM", "[", "t", "]"}], "^", "2"}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"Length", " ", "of", " ", "Cross", " ", "Product"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DD", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"KK", "[", "t", "]"}], "*", 
     RowBox[{"Fttt", "[", "t", "]"}]}], "+", 
    RowBox[{
     RowBox[{"LL", "[", "t", "]"}], "*", 
     RowBox[{"Gttt", "[", "t", "]"}]}], "+", 
    RowBox[{
     RowBox[{"MM", "[", "t", "]"}], "*", 
     RowBox[{"Httt", "[", "t", "]"}]}]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Dot", " ", "Product"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kappa", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"SS", "[", "t", "]"}]}], ")"}], "^", "3"}], "*", 
    RowBox[{"TT", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tau", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"TT", "[", "t", "]"}]}], ")"}], "^", "2"}], "*", 
    RowBox[{"DD", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"kappa", "[", "t", "]"}], ",", " ", 
   RowBox[{"0", "\[LessEqual]", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"t", "^", "2"}]}], ")"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"tau", "[", "t", "]"}], ",", 
   RowBox[{"0", "\[LessEqual]", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"t", "^", "2"}]}], ")"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.624979987326027*^9, 3.624980064289373*^9}, {
  3.624980128900893*^9, 3.624980137307611*^9}, {3.6249801690248413`*^9, 
  3.624980176216415*^9}, {3.624980226541585*^9, 3.6249802348608303`*^9}, {
  3.6249802778814297`*^9, 3.62498027840064*^9}, {3.625339544941977*^9, 
  3.6253395944750023`*^9}, {3.625339643527693*^9, 3.625340115719614*^9}, {
  3.625340223054996*^9, 3.625340433361045*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SqrtBox["5"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["t", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.625340400183745*^9, 3.625340437697921*^9}],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{
   SqrtBox["5"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["t", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.625340400183745*^9, 3.625340437730938*^9}]
}, Open  ]]
},
WindowSize->{874, 1246},
WindowMargins->{{507, Automatic}, {-58, Automatic}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 4418, 116, 352, "Input"],
Cell[CellGroupData[{
Cell[5000, 140, 3118, 89, 267, "Input"],
Cell[8121, 231, 267, 4, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8425, 240, 7438, 212, 471, "Input"],
Cell[15866, 454, 273, 8, 56, "Output"],
Cell[16142, 464, 271, 8, 56, "Output"]
}, Open  ]],
Cell[16428, 475, 622, 13, 63, "Input"],
Cell[CellGroupData[{
Cell[17075, 492, 5519, 176, 335, "Input"],
Cell[22597, 670, 224, 7, 56, "Output"],
Cell[22824, 679, 224, 7, 90, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)