(* 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[     28683,        802]
NotebookOptionsPosition[     27871,        770]
NotebookOutlinePosition[     28230,        786]
CellTagsIndexPosition[     28187,        783]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"#23", "    ", 
       StyleBox[
        RowBox[{"r", "[", "t_", "]"}],
        FormatType->StandardForm]}], 
      StyleBox[":=",
       FormatType->StandardForm], 
      StyleBox[
       RowBox[{"{", "   ", 
        RowBox[{
         RowBox[{"3", "   ", "+", "    ", 
          RowBox[{"Cos", "[", "t", "]"}]}], " ", ",", "   ", 
         RowBox[{"2", "+", "    ", 
          RowBox[{"Sin", "[", "t", "]"}]}], "   ", ",", "  ", "0"}], "  ", 
        "}"}],
       FormatType->StandardForm]}], 
     StyleBox["  ",
      FormatType->StandardForm], 
     StyleBox[";",
      FormatType->StandardForm], 
     StyleBox["    ",
      FormatType->StandardForm], 
     StyleBox[
      RowBox[{"a", "=", "   ", "0"}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["  ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["  ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[
      RowBox[{"b", "=", "   ", 
       RowBox[{"2", "Pi"}]}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["   ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14]}], 
    StyleBox["\[IndentingNewLine]",
     FormatType->StandardForm,
     FontSize->14], 
    RowBox[{
     RowBox[{
      RowBox[{"#24", "     ", 
       StyleBox[
        RowBox[{"r", "[", "t_", "]"}],
        FormatType->StandardForm]}], 
      StyleBox[":=",
       FormatType->StandardForm], 
      StyleBox[
       RowBox[{"{", "   ", 
        RowBox[{
         RowBox[{
          RowBox[{"Sin", "[", "t", "]"}], "^", "3"}], "  ", ",", "  ", 
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], "^", "3"}], " ", ",", " ", "0"}], 
        "   ", "}"}],
       FormatType->StandardForm]}], 
     StyleBox["  ",
      FormatType->StandardForm], 
     StyleBox[";",
      FormatType->StandardForm], 
     StyleBox["     ",
      FormatType->StandardForm], 
     StyleBox[
      RowBox[{"a", "=", "   ", "0"}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["  ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["   ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[
      RowBox[{"b", "=", "   ", 
       RowBox[{"Pi", "/", "2"}]}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14]}], 
    StyleBox["\[IndentingNewLine]",
     FormatType->StandardForm,
     FontSize->14], 
    RowBox[{
     RowBox[{
      RowBox[{"#27", "    ", 
       StyleBox[
        RowBox[{"r", "[", "t_", "]"}],
        FormatType->StandardForm]}], 
      StyleBox[":=",
       FormatType->StandardForm], 
      StyleBox[
       RowBox[{"{", "   ", 
        RowBox[{
         RowBox[{
          RowBox[{"Exp", "[", "t", "]"}], "*", 
          RowBox[{"Cos", "[", "t", "]"}]}], "  ", ",", "   ", 
         RowBox[{
          RowBox[{"Exp", "[", "t", "]"}], "*", 
          RowBox[{"Sin", "[", "t", "]"}]}], " ", ",", " ", "0"}], "   ", 
        "}"}],
       FormatType->StandardForm]}], 
     StyleBox["  ",
      FormatType->StandardForm], 
     StyleBox[";",
      FormatType->StandardForm], 
     StyleBox["     ",
      FormatType->StandardForm], 
     StyleBox[
      RowBox[{"a", "=", "   ", "0"}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["  ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["   ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[
      RowBox[{"b", "=", "   ", 
       RowBox[{"Pi", "/", "2"}]}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14]}], 
    StyleBox["\[IndentingNewLine]",
     FormatType->StandardForm,
     FontSize->14], 
    RowBox[{
     RowBox[{
      RowBox[{"#28", "    ", 
       StyleBox[
        RowBox[{"r", "[", "t_", "]"}],
        FormatType->StandardForm]}], 
      StyleBox[":=",
       FormatType->StandardForm], 
      StyleBox[
       RowBox[{"{", "    ", 
        RowBox[{
         RowBox[{"Sin", "[", " ", 
          RowBox[{"Exp", "[", "t", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"Cos", "[", " ", 
          RowBox[{"Exp", "[", "t", "]"}], "]"}], ",", " ", 
         RowBox[{
          RowBox[{"Sqrt", "[", "3", "]"}], 
          RowBox[{"Exp", "[", "t", "]"}]}]}], "   ", "}"}],
       FormatType->StandardForm]}], 
     StyleBox["  ",
      FormatType->StandardForm], 
     StyleBox[";",
      FormatType->StandardForm], 
     StyleBox["     ",
      FormatType->StandardForm], 
     StyleBox[
      RowBox[{"a", "=", "   ", "0"}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["  ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["   ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[
      RowBox[{"b", "=", "   ", 
       RowBox[{"Pi", "/", "2"}]}],
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox["   ",
      FormatType->StandardForm,
      FontSize->14], 
     StyleBox[";",
      FormatType->StandardForm,
      FontSize->14]}]}],
   FontColor->RGBColor[0, 1, 0]], 
  StyleBox["\[IndentingNewLine]",
   FormatType->StandardForm,
   FontSize->14,
   FontColor->RGBColor[0, 1, 0]], "*)"}]], "Input",
 TextAlignment->Left],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\"\<                   13.3 Arc Length Parametrization           \>\
\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "t_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "t"], " ", 
      RowBox[{"Cos", "[", "t", "]"}]}], ",", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "t"], " ", 
      RowBox[{"Sin", "[", "t", "]"}]}], ",", "0"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"a", "=", "0"}], ";", 
  RowBox[{"b", "=", 
   FractionBox["\[Pi]", "2"]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tref", "=", "0"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Curve Length in the Range:    s(b) =  \>\"", ",", 
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontColor", "\[Rule]", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"S", "[", "b", "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Arc Length Function:    s(t) =  \>\"", ",", 
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontColor", "\[Rule]", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"S", "[", "t", "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Time t in terms of Arc Length s:  t(s) = \>\"", ",", 
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontColor", "\[Rule]", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}], ",", 
    RowBox[{
     RowBox[{"L", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/.",
      "\[InvisibleSpace]", 
     RowBox[{"S", "\[Rule]", "s"}]}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Arc Length Parametrization:  r[s] = r[t(s)] = \>\"", ",", 
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontColor", "\[Rule]", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"Simplify", "[", 
     RowBox[{"R", "[", "s", "]"}], "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"S", "[", "t_", "]"}], ":=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"Refine", "[", 
     RowBox[{
      SqrtBox[
       RowBox[{"Simplify", "[", 
        RowBox[{"Factor", "[", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "u", "]"}], 
            "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "2"], "+",
           
          SuperscriptBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "u", "]"}], 
            "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "2"], "+",
           
          SuperscriptBox[
           RowBox[{
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "u", "]"}], 
            "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "2"]}], 
         "]"}], "]"}]], ",", 
      RowBox[{"0", "\[LessEqual]", "u", "\[LessEqual]", 
       FractionBox["\[Pi]", "2"]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"u", ",", "Tref", ",", "t"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"0", "\[LessEqual]", "u", "\[LessEqual]", 
      FractionBox["\[Pi]", "2"]}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"S", "[", "t", "]"}], "\[Equal]", "S"}], ",", "t", ",", 
    RowBox[{"InverseFunctions", "\[Rule]", "True"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"t", "/.", "\[InvisibleSpace]", "%"}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"R", "[", "s_", "]"}], ":=", 
   RowBox[{"r", "[", 
    RowBox[{
     RowBox[{"L", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/.",
      "\[InvisibleSpace]", 
     RowBox[{"S", "\[Rule]", "s"}]}], "]"}]}], ";"}]}], "Input",
 TextAlignment->Left],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Curve Length in the Range:    s(b) =  \"\>",
    StripOnInput->False,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", 
   RowBox[{
    SqrtBox["2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[Pi]", "/", "2"}]]}], ")"}]}]}],
  SequenceForm[
   Style["Curve Length in the Range:    s(b) =  ", FontWeight -> "Bold", 
    FontColor -> RGBColor[1, 0, 0]], 
   2^Rational[1, 2] (-1 + E^(Rational[1, 2] Pi))],
  Editable->False]], "Print",
 CellChangeTimes->{3.437572969015625*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Arc Length Function:    s(t) =  \"\>",
    StripOnInput->False,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", 
   RowBox[{
    SqrtBox["2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[ExponentialE]", "t"]}], ")"}]}]}],
  SequenceForm[
   Style["Arc Length Function:    s(t) =  ", FontWeight -> "Bold", FontColor -> 
    RGBColor[1, 0, 0]], 2^Rational[1, 2] (-1 + E^$CellContext`t)],
  Editable->False]], "Print",
 CellChangeTimes->{3.437572969078125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Time t in terms of Arc Length s:  t(s) = \"\>",
    StripOnInput->False,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "+", 
     FractionBox["s", 
      SqrtBox["2"]]}], "]"}]}],
  SequenceForm[
   Style["Time t in terms of Arc Length s:  t(s) = ", FontWeight -> "Bold", 
    FontColor -> RGBColor[1, 0, 0]], 
   Log[1 + 2^Rational[-1, 2] $CellContext`s]],
  Editable->False]], "Print",
 CellChangeTimes->{3.437572969078125*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"Arc Length Parametrization:  r[s] = r[t(s)] = \"\>",
    StripOnInput->False,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["s", 
         SqrtBox["2"]]}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         FractionBox["s", 
          SqrtBox["2"]]}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["s", 
         SqrtBox["2"]]}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         FractionBox["s", 
          SqrtBox["2"]]}], "]"}], "]"}]}], ",", "0"}], "}"}]}],
  SequenceForm[
   Style["Arc Length Parametrization:  r[s] = r[t(s)] = ", FontWeight -> 
    "Bold", FontColor -> 
    RGBColor[1, 0, 0]], {(1 + 2^Rational[-1, 2] $CellContext`s) Cos[
      Log[1 + 2^Rational[-1, 2] $CellContext`s]], (1 + 
     2^Rational[-1, 2] $CellContext`s) Sin[
      Log[1 + 2^Rational[-1, 2] $CellContext`s]], 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.43757296915625*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NewPoint", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"r1", "[", "t_", "]"}], ":=", 
   RowBox[{"Insert", "[", 
    RowBox[{
     RowBox[{"r", "[", "t", "]"}], ",", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", "4"}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"R1", "[", "s_", "]"}], ":=", 
   RowBox[{"Insert", "[", 
    RowBox[{
     RowBox[{"R", "[", "s", "]"}], ",", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "4"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Curve", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"r", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "a", ",", "b"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"CurveT", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"r1", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "a", ",", "NewPoint"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"CurveS", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"R1", "[", "s", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"s", ",", "a", ",", "NewPoint"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"NewPoint", ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\< t-units from reference point you are at the BLUE point\>\"", ",", 
      RowBox[{"FontColor", "\[Rule]", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"r", "[", "NewPoint", "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"NewPoint", ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\< s-units from reference point you are at the RED point\>\"", ",", 
      RowBox[{"FontColor", "\[Rule]", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"R", "[", "NewPoint", "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\<Curve up to T-value - Blue, Curve up to S-value - Red, Complete \
Curve in the Range - Black\>\"", ",", 
     RowBox[{"FontColor", "\[Rule]", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}]}], "]"}], "]"}], 
  ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"Curve", ",", "CurveT", ",", "CurveS", ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"PointSize", "[", "0.05`", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"r", "[", "NewPoint", "]"}], "]"}]}], "}"}], "]"}], ",", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
      RowBox[{"PointSize", "[", "0.05`", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"R", "[", "NewPoint", "]"}], "]"}]}], "}"}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.4120338594375*^9, 3.412033894765625*^9}, 
   3.41203393871875*^9},
 TextAlignment->Left],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", 
   StyleBox["\<\" t-units from reference point you are at the BLUE point\"\>",
    
    StripOnInput->False,
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[ExponentialE]", " ", 
      RowBox[{"Cos", "[", "1", "]"}]}], ",", 
     RowBox[{"\[ExponentialE]", " ", 
      RowBox[{"Sin", "[", "1", "]"}]}], ",", "0"}], "}"}]}],
  SequenceForm[1, 
   Style[" t-units from reference point you are at the BLUE point", FontColor -> 
    RGBColor[1, 0, 0]], {E Cos[1], E Sin[1], 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.437572977984375*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", 
   StyleBox["\<\" s-units from reference point you are at the RED point\"\>",
    StripOnInput->False,
    FontColor->RGBColor[1, 0, 0]], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["1", 
         SqrtBox["2"]]}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         FractionBox["1", 
          SqrtBox["2"]]}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["1", 
         SqrtBox["2"]]}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         FractionBox["1", 
          SqrtBox["2"]]}], "]"}], "]"}]}], ",", "0"}], "}"}]}],
  SequenceForm[1, 
   Style[" s-units from reference point you are at the RED point", FontColor -> 
    RGBColor[1, 0, 0]], {(1 + 2^Rational[-1, 2]) Cos[
      Log[1 + 2^Rational[-1, 2]]], (1 + 2^Rational[-1, 2]) Sin[
      Log[1 + 2^Rational[-1, 2]]], 0}],
  Editable->False]], "Print",
 CellChangeTimes->{3.437572978015625*^9}],

Cell[BoxData[
 StyleBox["\<\"Curve up to T-value - Blue, Curve up to S-value - Red, \
Complete Curve in the Range - Black\"\>",
  StripOnInput->False,
  FontColor->RGBColor[0, 1, 0]]], "Print",
 CellChangeTimes->{3.4375729780625*^9}]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxN1nk01dsXAPB7zUM9T2RqUGkgcxJ1vbabIq6h0CsRIkotZLhSTyVJFIlI
aDAkUYTSUyRzCUkhIRHVi8o1f13inX7r9865Z639z2eddf7Y5+x99lIXb2s3
PhqNFo+CH8XnoSQRGo0Dr+zN3/bq7t1I+/+iVHu0J+kc8BNI2s2fAPCfhwjK
2Q/zc8CI9qkpPckK+0YBhZw+YQ6wGgsmzdOcsB/b9dSiVoIDjqFBFa353ti3
KAn4xyqi/Qs/h0g1ncSezLL9ogQc6O6szB8QvojdbKHHCJzgwNt+i4fqJinY
xdZoOzYLDYHaelXPrLP52Okt+43rzwyBZvQlS4F3j7GPbnj5JIA+DDdCGBK3
mBXYeyvokw5hw7A/dNLoecMz7A6ir8o/0kZAZ+jO6hDjBuwX6Ztu3Dg9ArMX
7Up9q5qwp5bTaUH0Uah3Erdp5WvBLneDmbPJfxR6klcZn9Zuw35wf12c2/dR
UF6qFJbb1EHyIJrQMrB7DOJM3eOWO33ArsCatgutGAOtEJWDX0/1YBeWo+Zp
aoxDx4IO0z2XerFv+vBa6UHUOPAtOffldcIn7AaXPDo2D47D0+mdgue7v2C/
/sVmyGXrBBQ2RMep6fdj131icmoybgKKvyotTDzxDXvcvcfixt0TwNeQmjsq
MYhd+3rV2vTFFLiKN+8aruFgdyyuY7fvokBVUqp1Vn0YezQ0NFefpcDxR6v3
+qsj2MM3Jq3Oz6LgsEOKvN7MKHavl1HGGtkUvIkQv7NNYAz73VXhadnIteQr
Fh0SI96nUSCfeoeCEhmlzDQZ4tLJZTOhORSkK2iaLdQkfvJ9s69yPgVhMuot
652JLza8ebTzbwrqFhktWFxJPNKi5Nq3CgrsFr1ZG3l+HPvv3GBBnUoK9PtO
dvjGEF+uHPsoEPnASjuT3QnEj0+8F+SrooBVk+ilmk5cMWZMZU41BYVlF6Za
HxM/Q/sYMFNDwbcmCUmbfuIeOrva7F5QkDYapvfBdAK7WuESrwjk3+wiznZZ
EWcfMzUrQi5ye/hq1w7iiXenm6XqKDjSMCvbs5e4tUuuRgVyixRVq8GjxGPC
ttVO1VMQ7DdUoZVNPLetzaznJQXqN42em4hT2C1qHrVRyB980VFiShIv4D+U
K9FIgXTZLIMhS5zhc1aLgXygTy1TW4m44lDGuQjkAWU/XFcxiCc5ClsnI++P
bchZySQuFf3C6S7y1JbIwpUmxEvDSi3qkW/Py51RtiF+4P4OL/5XFLxLizyy
7hDx8U2lrhLINwkF5TF8iB++JnddAbmOtVUm8whxQ1Z/twbyirG0l1anifs6
CH7VQ+79j9Lszgji5g/sdA2RP5mM+O4cTXwdeyzREvmNw0IC7GTiRV7d+bbI
d29epBacSry2kTV3N/Kf8xTmRWYSP2gtetcReYTgz8IrOcSns/ujXJDvghrZ
W/eJq4SXF7ghX9LF1nvwiPhorJPCAeRDk+LzK58Sz/W6XOWBfE1GeN7rauIz
RXr5B5GnfhsQ7a0j/l50fvcvt32ru3S0iXj8yOy2X57t7j4u2Ea8mu8F/6/z
nS4fj5DrIu5YuplyRx7s8Fe7ah/x1Eymxj7k+7KcvkI/8VUbYjOckeftX/3Q
lkN8UM1/507kd2t8I4KniXP3347ZjnzZEk50At8k9g56wBwW8lgHG9t7IsQN
apdVMpBL5L+Q6ZEmHpadqSmNXKufHWKhTnxKONJD5H95WxB4UIf44OK4j1Po
fVpKZaiGryfeuME2pht5yum99dVbiL9f59+Zgty53n/U1JF4PP9S2k9Ud0GP
YrvY0cQlsxoEe5G7Ns+ELb9M3PaO0IrnyKG/47fmq8R7u9XuRSN3WfepRDeb
eNa8ggEp5BqtsrH81cShvfoVB/WH++kzirVcHs+4ncatRXVtrVk25c7FvnrH
tX2VyH12mtjWeBLvZYTrn0fuoJ32LMafeEQ7a74ccmDLmauGED/Z1Zq88jkF
ia0NdQeuER8zM86UQf3z2Gr2zbnNxFmvDEWY5eheHlRkzTCnsH93FLMaKkP1
whCQ995KPKi7+WkK8r9Wepl1WxKfcyVt8U9UD/LM/JEqe+LBUVfq7pRS0Psy
xymBTdyv4MrD7mIKtnauTXbOIu72gs8zs5CC5c6VkaGS09id5Z8pX7tFwarP
Krck+4iXKdutKzpKgcJzzw1vHs6Qfp7TGOpjQAE3LPlPFxOa4X/usNftjODI
BJRxMxrPqdCxK3LNlNMvTsDVe2/u267gw8743O6gv2wCHBJMl3vI8GNfMTbn
TAb6t1wOBKqYiwhgn9nlWP63wDjcTvi8vl1aELsrTDNV7dGcw4yO50oLYY+6
bikieH4UHp81PXdKSxg7FdDWmZ83AkNMFcXYjSLY3Y56WKyoHIblUmXGi8xF
sY/lXd4/lTEErn4fu2LYYtgriz5e/xTMARGFKOm8aHHszWzNQGPTH+DZ9cfc
qeo52FOYcrRnDgMgFuQW/oE7F3vQhyeUu/s/MGq7LZC9WAL7nRLvh50DfcA5
QSue1Pgd+7GmythBjx6QpSj7gGriwykjb2i+HSAY1WkstlsSu8qan4FX3r1G
80wLd9U0cYMLsnPNz1QB99JPJ5G4edjXsGzSjxf6waWpEytm9aWwN+X8pl/i
7getct0f5q0nXi6gpMqV9QOWITNpJY+vHrFR8z/mC8o5/BKWPD5bVZXkDD6g
xA2nrvJ44myq5bpYT+g0iK/bsIH4O9H5Y+pFrhBqdN8ngEH8gJBxQYiCK3T8
OV/tHI/P+Myqtga5gJ73kc/XeNxjj9COo8y9YJ/LsK/m8ZaWYK5z/B4o21u1
WdqA+P2GM2ZVj2ygMrBVtoDH/RNKbbecsAZ6rf7rah5Pre56W7lpO9xdkBz5
jsdNi+NjfBMs4PYzJzr9D+JboqWyxYuNIFP3a78Vj/MbHjT/ZMSE+jhWhiuP
04Pry/wS/wCpsRynIzze0uP7OLNEB1yLfJuv8/jTufJyblfVQW5By4UCHr+c
euGU+1MlYJ3QM63h8dJQV5fMKilo7Enkb+fx8gC3B8kFoRtPbpl+8p3H/wUd
zbPI
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxN1Hk41dkfB3BbpkGDsWWJ9Eg/tNjCICeU7aoklT1LJVmjyFXZQiWe7C2k
QSlZSlGNlLJ0bdcayTKy5Ga9F9f9ujF+x/PMnHPP85x/Xn+c8zmfz/s5ih4B
tqd4uLi4bsHNC7d2IHkdFxcdZCp691b/OGrE9e/ytl/MNuamAy2y9rVgWW3w
n2+z9NeJ4aED3radXX1y+5BXeZp48a+jg9jk7jMzCnbIV3SEKEICdNAXeN1/
t/JJ5L2ShdHS4nTAo2Q+1KN5HvnrBcFqzf/RQX9uaI+29VXkvzNNwjxt6MB4
oNtGMyIN+VGjcOnQAjqgz6aeMm97iPwCULT/k6CDBzQN9ua4Z8jP+Ybv4rJg
AKnhVvauPRXI1c+OejRmM4AWK0uCv/gt8i6/HX9dmmaAGKmY3IjzH5CXFSTQ
nE3nQDAI70tk1iLPKOotEMucA9E3ClfC4ynIV1t/CCSMzgGf1L2emuwm5KQU
vl21uvPA01FZb+RLK/Jq7gCJ3KvzILmsxmewsR25W3Bmm3zrPIhy77shV9qJ
vPFyhG+//AK4VBDN+NzyGbm1yrtA5TMLQOmMwXzVlx7kim5qOcYVC6DwVd/6
NsWvyDu61fvPczOBl+HL6umgfuQTCxoR28yYwEJgnbxg8SByW6rHQSKJCeZi
9vOKpw8hL1IwvKXXzgR6c3mTdp++IZcJoHSvSi6C5EpmJv+mEeRCTI30Iw6L
QEHRYiItZBR5nvlEkXz6Isg5rHRI5OMY8qdD+iCucxGsbsknR2mNIy+XMUpz
FWSB3eI8EkvpNOQSXmTVCsACzgoGtyPZP5BvTO1Myr/AAsbvDcrJ8ZPI2d6z
B5UewnPs3IUyeaeRa27xfOn8mQUux+l3qBXOIC/hU+7S4ybA8N1DI9MqdOSS
lKpLfcoEcGMbFB9mYqetTBtNkAiw4NTvqd/DQF45J+pDPUuAOOsa9rbSOeRU
mszP4FgC5PiI306Pn0eu9dQ3W+Y+AVp5H83Vhy4gP2tU5jz5jABj9qlDE85M
5PaLapsSqgmQosH9W5fjIvK0UCtKJXS7uDs2qa7YKzezVKeg7650GrH1wK7j
1Chp/QG6rttShzd2axJf/PqPBGC4k8e7L2JnZyi+D64hwHJTaPN0BvYjKY/1
xOoJsLH+WtXxTuyzLg25wY0EOCx81V7uAAv5JXBRPxn6YuDVkH4b7E4iqddL
oEfnPPuWZYf9MWXgAA26c2tijrwz9jHHSD/7JliP4ak3W32wW+2o+ke1mQDm
EZ2nTK5jz7yyInmnhQBvAr/klddhn60IjS2Gbso75xXRgF3N4fuTD9D9RI3D
LFuw1z89J/4DesLdyJjBLuzDvyz6a1MJUMRzU0doFHsC2XVXFfT9VvxSITwE
cvJCzY2MVth/6YmPMQC72JaGxFzoh4MclQtNsT83peuWQHclPxltM8eefcsr
qhb6972j5xRssNeY24xPQX/M206tdsOuIVGpuAhd5Q+DXydOYpcRofKsQi8/
FHtfzBu7W0rpa+E26A/e9Hqdwy6ZVc7YDt1K5FGKeDT2pucVJ7SgE2m/5++N
w27QNxb8B/TlrydE/G5gLzNNTtoHncKTvVSfgr10aibNErr+hsSQhQzstpf3
GB+E7qTqenDLPezbZAMTjkFv+jvvt4g87LT43SqO0EMyNrKKC7AH3CvxdYEe
l+WvP/AUe6bXlVEP6Efr3rUbvsTucaFi4ynossuvt/q9xm7SdXLuNHS7wrSu
7LfYb6qRz52BXtd9eJBajd1McTzdGzotjm7CVYd9u2PWibPQZ94F8mg2YC8M
u0Fd87+iOuROtmAfUswdXvO/2yRSMtqx58933lvzgiJ9j4bP2MOTRNhr94qI
Gycu92LPvWWxslZnC5+KmPogdr5M34de0A3D5+Y9hzneu8dvbq0PwUHZu25/
55jXJoNRT+i6oyr1zRPY7drrye7QeRsyX3HPYh8Q/pruBF3gk9RTXxb24+p7
o0nQd5IKuszWLyHnZlvfNoOeJW5kckUIu6V6lq0x9NqxcoEKEeyvJGtf7IZe
YWNRpCyNXXPmmrLMWp57mRpCqtj5s52q22H+VSeczGkk7Fv9Q5s/Qd8eV8Y9
cAg7dbIjvgr6ao+6YMcR7H6+kkKPoYtI5wtWOWEPavCzDIO+09D9Y4YP9mMT
1jeFoH8SEf/FIQH7yyqRr0w4b1FxqamNTdgr6MnNbfA/3DcmKhVHYiP/KdpR
Vgr9HmlwdfQQdqPBKzpJ0MfGEvbvs8PuzeiXsIIu/P7aOK8LdjGBIc0qmD8l
Ojs23h97f/PDnlsUAiTRSdsfJGNXiOZ3mIY51tV7IiP1BbvugGt26HsCqL+j
OMie/olcW1WdIVFCAIc62+07opaRK2+Tzxe7TQD20oypcdIKzu0WLv+HYQSY
ZS45hL36B/n9qaGl7mMEcE8brvmtYxW5AM0gPXInAZKFnt+dvMC19z9//OfN
4PifLHBRek+uryg38js5pFZmLQuMjtgvrORjn36R6jcexQIJraPLd8x5kLf3
5dIGoT+pNs0s5nC5gRTPbujXyos0PnC4p4+EQx30C4VZp2kczvci3yQPeln1
QpuOBXaX9knhE9Aj78UWdHJ4optsanckC/AzVJw3WGFPP79fgApd7kgDazOH
d7nYRNVBv/w6KFWbw8NL1we8hC6RONLoxOEfSLyWKdC1XPboF3L4lNVm1gHo
i+ntMuYk7GO5x333QxdXE33lyOFc1IBvhtBNaxyP+HO4bLZJkxp0yrLgzXQO
15UNyv4V+rq07ysjHJ63/pkoN3Qr45C7LA5XolBjiQgWiGYI6wpaYx9/W+I3
Dv2jo3ugJofTGAHfBqHXiElvMONwMiF6tBt6YevXJw4cfrktjdICPTjpkZkf
h7eGEQZ10GVsLo1Ecvj/AYpZrOw=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxN0ns0lHkYB3CDUpoSbYotS66li2LSljyl5JJFm1rt0XC67NIUg1zP0lpF
1qVEYWvHtt04qc6MskKMSyaxGTNCSSTWpam5v0OW9rfn7P7e9znne55zPn88
53nOeSwORXx9VFtLS8sXRQclqqwfNRlYM/mXD0/7umr9V3bsgiNvkUdyDVU2
4avhfxcy7lU202Tg4VY3yAt3wZ4smNmcrSMDJ5OoTFu2D/azdLMSEz0ZGFQ2
3nCNDsLOLj5o5bBABhPn3/ikJBzHTtDGru9dJgO6feZnemk/YD+2ktt8cpMM
hK09FhJOFva7CU2LHp+Ugf5X2lmn9TnY/TycdLeVyeCaXVtsSexN7CkNOxp7
38igeXqCVvPiDvaGHGfWis/lME3jXDCe4mF/XyXY1+QnB/+idyFx7RXYq2vX
XBpLl0NFRbfPXO1q7Pf5zk0WtXI45dBtM7a6DvtB6bj/iBS5XlaVY3Y99ouL
u95+slKA7mR/mbi8EfshDwNe3T4F9M2Eer2seoz9F4hZ0XxaARnZmk5GjQB7
oSPDU16hgKUGiYT1hxbsbjvtz6iGFKB/Z1X59Ewr9tTzC38nFithYk3HIG37
M+ynLTsOO7orgXXFvTHXVUj6yuQFiWwl2GfESA/t7sAeH9ZSkstRwp/jAxeW
RoqwVzwsFrc9UcLjzIQ9G86IsUu4Mbr31Up41pl1NJLXib3fYUosMVfBrLaf
uS6vnpN3afNLEz1VcM7wWmm7sgu7Id1flB6lAgZH5vDUqgd7c9v+GJ0iFTxt
nju8ZccL7Nemuot1alXgPRGcWnjwJfbjozd2Bw6roDBkTnJBbi92zi2XVu+5
arC28yzK4L3CXhoa+CB8nRriSnbW+L3vw57vnmMxP0ANRue5reOW/eT/eNu6
JMSoIbjGoSXZcgD737OYwZJCNTz0YFrNayD9ktmeVveHauhlXckt3/8G+1pn
idS7B3k+u2H2GOkT8/3T106qgVm/Rhx1dhD7lgVLlNZLCOhT2RkKlr/FzuTO
Snu5kQDbOBFvF5/0qHN84+q9BHj/9GXXhcAh7Bp1miQoggD5bqOaIx9IZ525
G5ufRUBA6klRdO4w9ljfS8VWtwhwqkpKWrHqL+y7GuYsW9VIwK+FxyKWC0kf
/mhiPtpHgI/uhrr86BHsHXSDu/YEAfbfmUhT6KPYvz0RlvPIQANBV70qW3ik
M/JC6BIbDZQMd3VH+o5h/+NiqAttqwbYlWb2rBHShXzB9xCggewDXk6t2ePY
F9ebV+4M08Dr+iEidOU77C2K4gMBpzRQFsyujRORLtbzlO9HPrlV72MmxVND
3p89gHxjajHjN4oLX62rZCJPcOsse0JxV1q+cRjymTzfyyZi0rsne0RJyP1S
0uKrKT54Z5/XLeQL43WcPnWSfnHTzYFS5EMOgohFz0mfnq2KK0N+zD/rti3F
VeHpN7nI8xpNLf0pnsbK1qlBbpjoaXSV4g+WGD8SIne0GZG5dZFu8HpzgBj5
j171q7+huN1o0LvnyI+Ir4SyKF4kKDTpRT5sGjiQR/HMcmnMMPK6+P72IYpL
Cmboo//uKWyaN0lxI77+9XHkipzbHvO7Sb/dayqSIt8OSXUMin/RbhamQL5h
feiUF8UDZ5trqZFzMgKcmVRPMSvQIM/xdIuOos7ZZrr2I/LpE+vvpVH8Hy+A
jpk=
      "]]}}, 
   {RGBColor[0, 0, 1], PointSize[0.05], 
    Point3DBox[
     NCache[{E Cos[1], E Sin[1], 0}, {
      1.4686939399158851`, 2.2873552871788423`, 0}]]}, 
   {RGBColor[1, 0, 0], PointSize[0.05], 
    Point3DBox[
     NCache[{(1 + 2^Rational[-1, 2]) 
       Cos[Log[1 + 2^Rational[-1, 2]]], (1 + 2^Rational[-1, 2]) 
       Sin[Log[1 + 2^Rational[-1, 2]]], 0}, {
      1.4687444547603374`, 0.8700593594599475, 0}]]}},
  Axes->True,
  PlotRange->{{0., 1.5508831742487168`}, {0., 4.810477226755551}, {0., 0.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.437572978296875*^9}]
}, Open  ]]
},
WindowSize->{1228, 903},
WindowMargins->{{18, Automatic}, {Automatic, 18}},
Magnification->1,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 5751, 204, 132, "Input"],
Cell[CellGroupData[{
Cell[6344, 229, 4373, 119, 280, "Input"],
Cell[CellGroupData[{
Cell[10742, 352, 654, 19, 28, "Print"],
Cell[11399, 373, 601, 17, 28, "Print"],
Cell[12003, 392, 567, 16, 40, "Print"],
Cell[12573, 410, 1242, 37, 45, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13864, 453, 3182, 93, 212, "Input"],
Cell[CellGroupData[{
Cell[17071, 550, 672, 17, 23, "Print"],
Cell[17746, 569, 1171, 34, 45, "Print"],
Cell[18920, 605, 233, 5, 23, "Print"]
}, Open  ]],
Cell[19168, 613, 8687, 154, 439, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)