(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      7961,        215]
NotebookOptionsPosition[      7553,        196]
NotebookOutlinePosition[      7903,        211]
CellTagsIndexPosition[      7860,        208]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["The Tractrix and the Pseudosphere", "Section",
 CellChangeTimes->{{3.447071096169962*^9, 3.4470711037950597`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["x", "2"]}]], "-", 
   RowBox[{"ArcCosh", "[", 
    FractionBox["1", "x"], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", "3"}]}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "3"}]}], "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "x0", "]"}], "+", 
         RowBox[{
          RowBox[{
           RowBox[{"f", "'"}], "[", "x0", "]"}], 
          RowBox[{"(", 
           RowBox[{"x", "-", "x0"}], ")"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "x0"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Hue", "[", ".9", "]"}], ",", 
           RowBox[{"Thickness", "[", ".02", "]"}]}], "}"}]}]}], "]"}]}], 
     "]"}], 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", " ", 
           RowBox[{"Cos", "[", "v", "]"}]}], ",", 
          RowBox[{"x", " ", 
           RowBox[{"Sin", "[", "v", "]"}]}], ",", 
          RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "x0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"v", ",", "0", ",", 
          RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Opacity", "[", ".6", "]"}], "}"}]}], ",", 
        RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], ",", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", " ", 
           RowBox[{"Cos", "[", "v", "]"}]}], ",", 
          RowBox[{"x", " ", 
           RowBox[{"Sin", "[", "v", "]"}]}], ",", 
          RowBox[{
           RowBox[{"f", "[", "x0", "]"}], "+", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "'"}], "[", "x0", "]"}], 
            RowBox[{"(", 
             RowBox[{"x", "-", "x0"}], ")"}]}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.01", ",", "x0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"v", ",", "0", ",", 
          RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
        RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", ".6", "]"}], ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Orange", ",", 
             RowBox[{"Specularity", "[", 
              RowBox[{"White", ",", "40"}], "]"}]}], "]"}]}], "}"}]}]}], 
       "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "0.001", ",", ".999"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4470624472201424`*^9, 3.4470626694796486`*^9}, {
  3.4470627062646646`*^9, 3.447062744081037*^9}, {3.447062776553112*^9, 
  3.4470627846789436`*^9}, {3.4470703750826073`*^9, 3.447070612179392*^9}, {
  3.4470706436954203`*^9, 3.4470707833847084`*^9}, {3.447070819603922*^9, 
  3.4470708410104465`*^9}, {3.447070923980258*^9, 3.447070942621122*^9}, {
  3.4470710239815383`*^9, 3.4470710302472434`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x0$$ = 0.038, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x0$$], 0.001, 0.999}}, Typeset`size$$ = {
    346., {206., 211.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x0$31521$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x0$$ = 0.001}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x0$$, $CellContext`x0$31521$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
         Plot[
          $CellContext`f[$CellContext`x], {$CellContext`x, 0, 1}, 
          PlotRange -> {{0, 1}, {0, -3}}, AspectRatio -> 3], 
         Plot[$CellContext`f[$CellContext`x0$$] + 
          Derivative[
            1][$CellContext`f][$CellContext`x0$$] ($CellContext`x - \
$CellContext`x0$$), {$CellContext`x, 0, $CellContext`x0$$}, PlotStyle -> {
            Hue[0.9], 
            Thickness[0.02]}]] Show[
         ParametricPlot3D[{$CellContext`x Cos[$CellContext`v], $CellContext`x 
           Sin[$CellContext`v], 
           $CellContext`f[$CellContext`x]}, {$CellContext`x, \
$CellContext`x0$$, 1}, {$CellContext`v, 0, 2 Pi}, PlotStyle -> {
            Opacity[0.6]}, Mesh -> None], 
         ParametricPlot3D[{$CellContext`x Cos[$CellContext`v], $CellContext`x 
           Sin[$CellContext`v], $CellContext`f[$CellContext`x0$$] + 
           Derivative[
             1][$CellContext`f][$CellContext`x0$$] ($CellContext`x - \
$CellContext`x0$$)}, {$CellContext`x, 
           0.01, $CellContext`x0$$}, {$CellContext`v, 0, 2 Pi}, Mesh -> None, 
          PlotStyle -> {
            Opacity[0.6], 
            Directive[Orange, 
             Specularity[White, 40]]}], PlotRange -> All], 
      "Specifications" :> {{$CellContext`x0$$, 0.001, 0.999}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{393., {251., 256.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.4470625045177507`*^9, 3.4470625728155003`*^9}, {
   3.447062603066599*^9, 3.447062616989899*^9}, {3.447062648039953*^9, 
   3.447062681074586*^9}, {3.4470708246664867`*^9, 3.447070841619829*^9}, {
   3.4470709251833982`*^9, 3.447070943183629*^9}, 3.447071031341007*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1266, 989},
WindowMargins->{{Automatic, -1279}, {Automatic, -52}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 120, 1, 71, "Section"],
Cell[CellGroupData[{
Cell[712, 27, 3809, 103, 129, "Input"],
Cell[4524, 132, 3001, 60, 524, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)