(* 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[      5591,        152]
NotebookOptionsPosition[      5264,        135]
NotebookOutlinePosition[      5618,        151]
CellTagsIndexPosition[      5575,        148]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Cos", "[", "t", "]"}], ",", 
            RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", 
            RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Axes", "\[Rule]", "True"}]}], "\[IndentingNewLine]", "]"}],
         "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Cos", "[", "s", "]"}], ",", 
            RowBox[{"Sin", "[", "s", "]"}]}], "}"}]}], "\[IndentingNewLine]", 
         "}"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Cos", "[", "s", "]"}], ",", 
            RowBox[{"Sin", "[", "s", "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Cos", "[", "s", "]"}], ",", 
             RowBox[{"Sin", "[", "s", "]"}]}], "}"}], "+", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"Sin", "[", "s", "]"}]}], ",", 
             RowBox[{"Cos", "[", "s", "]"}]}], "}"}]}]}], 
         "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", "1.6"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"s", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.5886328054678793`*^9, 3.588632899787269*^9}, {
   3.588633003649913*^9, 3.5886330340723677`*^9}, {3.588633067703382*^9, 
   3.588633109003624*^9}, {3.58863317649428*^9, 3.588633205278857*^9}, {
   3.5886332601939697`*^9, 3.588633279545631*^9}, {3.5886333124089937`*^9, 
   3.58863352434109*^9}, {3.588633564965596*^9, 3.5886335788982983`*^9}, {
   3.5886336559607763`*^9, 3.5886336772719727`*^9}, {3.5886338178126993`*^9, 
   3.5886339368582067`*^9}, {3.588634019646365*^9, 3.5886341045870047`*^9}, 
   3.588634135132399*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`s$$ = 0., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`s$$], 0, 2 Pi}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`s$18238$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`s$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`s$$, $CellContext`s$18238$$, 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" :> Graphics[{
         Part[
          ParametricPlot[{
            Cos[$CellContext`t], 
            Sin[$CellContext`t]}, {$CellContext`t, 0, 2 Pi}, Axes -> True], 
          1], 
         Arrow[{{0, 0}, {
            Cos[$CellContext`s$$], 
            Sin[$CellContext`s$$]}}], 
         Arrow[{{
            Cos[$CellContext`s$$], 
            Sin[$CellContext`s$$]}, {
             Cos[$CellContext`s$$], 
             Sin[$CellContext`s$$]} + {-Sin[$CellContext`s$$], 
             Cos[$CellContext`s$$]}}]}, PlotRange -> 1.6], 
      "Specifications" :> {{$CellContext`s$$, 0, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {222., 227.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.588634054513535*^9, 3.588634105448082*^9}}]
}, Open  ]]
},
WindowSize->{740, 652},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
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[CellGroupData[{
Cell[579, 22, 2646, 63, 301, "Input"],
Cell[3228, 87, 2020, 45, 466, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

