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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      4839,        156]
NotebookOptionsPosition[      4357,        136]
NotebookOutlinePosition[      4792,        153]
CellTagsIndexPosition[      4749,        150]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Parametric Path", "Title",
 CellChangeTimes->{{3.555968138776588*^9, 3.5559681556793756`*^9}, {
  3.692639116415432*^9, 3.6926391175736723`*^9}, {3.69263947769853*^9, 
  3.692639478315476*^9}},
 TextAlignment->Center],

Cell["\<\
by Ruth Dover
Illinois Mathematics and Science Academy\
\>", "Subsubtitle",
 CellChangeTimes->{{3.692639191252215*^9, 3.692639201770873*^9}}],

Cell[TextData[{
 "[Note:  This version will not show asymptotes.]\nEnter the parametrically \
defined curve as ",
 StyleBox["x",
  FontSlant->"Italic"],
 "(",
 StyleBox["t",
  FontSlant->"Italic"],
 "), ",
 StyleBox["y",
  FontSlant->"Italic"],
 "(",
 StyleBox["t",
  FontSlant->"Italic"],
 ").  Then enter the desired values for ",
 StyleBox["tmin",
  FontSlant->"Italic"],
 " and ",
 StyleBox["tmax.  ",
  FontSlant->"Italic"],
 "(Examples of these are given.)  Then leave the cursor in the command below \
and press Shift-Enter.  Use the slider to see the path of the curve and the \
value of ",
 StyleBox["t",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.429919669929984*^9, 3.429919844806937*^9}, {
  3.555968221586998*^9, 3.555968243248598*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", "t_", "]"}], ":=", 
   RowBox[{"4", 
    RowBox[{"Sec", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"y", "[", "t_", "]"}], ":=", 
   RowBox[{"3", 
    RowBox[{"Tan", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tmin", "=", "0"}], ";", " ", 
  RowBox[{"tmax", "=", 
   RowBox[{"2", "\[Pi]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pp", "=", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "[", "u", "]"}], ",", " ", 
       RowBox[{"y", "[", "u", "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"u", ",", " ", "tmin", ",", " ", "tmax"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ParametricPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x", "[", "u", "]"}], ",", " ", 
         RowBox[{"y", "[", "u", "]"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"u", ",", " ", "tmin", ",", " ", "t"}], "}"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"PlotRange", "[", "pp", "]"}]}], ",", " ", 
       RowBox[{"Exclusions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"x", "[", "u", "]"}]}], "\[Equal]", "0"}], ",", " ", 
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"y", "[", "u", "]"}]}], "\[Equal]", "0"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", " ", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Magenta", ",", " ", 
        RowBox[{"PointSize", "[", "Large", "]"}], ",", " ", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], ",", " ", 
           RowBox[{"y", "[", "t", "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", 
     RowBox[{"tmin", "+", ".01"}], ",", " ", "tmax", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.42991920812004*^9, 3.429919415377202*^9}, {
   3.4299194462796993`*^9, 3.429919516745233*^9}, {3.4299195479466553`*^9, 
   3.429919577345248*^9}, 3.429919811929685*^9, {3.4300037653404016`*^9, 
   3.4300038462579117`*^9}, {3.555967934611662*^9, 3.555967996511997*^9}, {
   3.555968057451775*^9, 3.5559680607617064`*^9}, 3.5559682601528797`*^9}]
}, Open  ]]
},
WindowSize->{740, 719},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 223, 4, 92, "Title"],
Cell[805, 28, 151, 4, 49, "Subsubtitle"],
Cell[959, 34, 769, 28, 87, "Text"],
Cell[1731, 64, 2610, 69, 201, "Input"]
}, Open  ]]
}
]
*)