(* 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[      6994,        219]
NotebookOptionsPosition[      6201,        186]
NotebookOutlinePosition[      6766,        210]
CellTagsIndexPosition[      6698,        205]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Animation of Graphs - 
Polar versus Rectangular \
\>", "Title",
 CellChangeTimes->{{3.692576958066882*^9, 3.69257695924747*^9}, {
  3.692577297355948*^9, 3.692577314095636*^9}},
 TextAlignment->Center,
 FontSize->36,
 FontColor->RGBColor[1, 0, 0],
 CellTags->"sin(x)"],

Cell["\<\
by Ruth Dover, Illinois Mathematics and Science Academy
and Isaac Greenspan, formerly of Illinois Mathematics and Science Academy\
\>", "Subsubtitle",
 CellChangeTimes->{{3.692577377176181*^9, 3.6925774288261213`*^9}}],

Cell[TextData[{
 "This notebook will show you the graphs of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", "=", 
    RowBox[{"f", "(", "\[Theta]", ")"}]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"f", "(", "x", ")"}]}], TraditionalForm]]],
 " to show how they are related. For example, it may be helpful to connect \
the sections of the graphs where ",
 StyleBox["y",
  FontSlant->"Italic"],
 " < 0 and the inner loop of of the lima\[CCedilla]on. \n\nThe command to do \
this for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", "=", 
    RowBox[{"1", "+", 
     RowBox[{"2", 
      RowBox[{"sin", "(", "\[Theta]", ")"}]}]}]}], TraditionalForm]]],
 " is given below this section of text.  To \"execute\" the command, put your \
cursor somewhere in the bold-faced line below and click.  Then click \
Shift-Enter.  The first time, this will ask you if you want to \"evaluate \
initialization cells.\"  Click on \"yes.\"  \n\nYou may edit the function ",
 StyleBox["r",
  FontSlant->"Italic"],
 " on the line below."
}], "Text",
 CellChangeTimes->{{3.3954321491643143`*^9, 3.395432158196908*^9}, {
  3.395432431527268*^9, 3.395432435438945*^9}, {3.395432471932869*^9, 
  3.395432472504147*^9}, {3.395432512363504*^9, 3.395432516147015*^9}, {
  3.692577451553108*^9, 3.692577452305681*^9}, {3.692577520393162*^9, 
  3.69257755650655*^9}, {3.692577693030387*^9, 3.692577796993923*^9}, {
  3.692577891890793*^9, 3.692577892667186*^9}},
 FontSize->14],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "\[Theta]_", "]"}], ":=", 
   RowBox[{"1", "+", 
    RowBox[{"2", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], ";"}], "\n", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"GraphicsGrid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PolarPts", "[", "\[Theta]", "]"}], ",", 
        RowBox[{"RectPlot", "[", "\[Theta]", "]"}]}], "}"}], "}"}], ",", " ", 
     
     RowBox[{"Spacings", "\[Rule]", "40"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.395431977479197*^9, 3.3954319980357*^9}, {
  3.395432089004932*^9, 3.395432101589636*^9}, {3.3954321920223637`*^9, 
  3.3954323044305267`*^9}}],

Cell[CellGroupData[{

Cell["Initialization Cell", "Subsubsection"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PolarPts", "[", "\[Theta]_", "]"}], ":=", 
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"r", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"PointSize", "[", "Large", "]"}], ",", " ", 
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"r", "[", "\[Theta]", "]"}], 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", 
            RowBox[{
             RowBox[{"r", "[", "\[Theta]", "]"}], 
             RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}], "]"}]}], 
        "}"}]}], ",", 
      RowBox[{"AspectRatio", " ", "\[Rule]", " ", "1"}], ",", " ", 
      RowBox[{"Axes", " ", "\[Rule]", " ", "True"}]}], " ", "]"}]}], ";"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"RectPlot", "[", "\[Theta]_", "]"}], ":=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"r", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", 
       RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "\n", "\t  ", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          FractionBox["\[Pi]", "2"], ",", "\[Pi]", ",", 
          FractionBox[
           RowBox[{"3", " ", "\[Pi]"}], "2"], ",", 
          RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", "Automatic"}], "}"}]}], 
     ",", 
     RowBox[{"PlotLabel", " ", "\[Rule]", " ", "\"\<\!\(\*
StyleBox[\"y\",
FontSlant->\"Italic\"]\) = \!\(\*
StyleBox[\"r\",
FontSlant->\"Italic\"]\)(\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\))\>\""}], ",", " ", "\n", "\t\t", 
     RowBox[{"AxesLabel", " ", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<\!\(\*
StyleBox[\"x\",
FontSlant->\"Italic\"]\)\>\"", ",", "None"}], "}"}]}], ",", "\n", "\t\t", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"PointSize", "[", "Large", "]"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", 
           RowBox[{"\[Theta]", ",", " ", 
            RowBox[{"r", "[", "\[Theta]", "]"}]}], "}"}], "]"}]}], "}"}], 
       "}"}]}], ",", "\n", "\t\t", 
     RowBox[{"AspectRatio", "->", "1"}]}], "]"}]}], ";"}], "\n"}], "Input",
 ShowCellBracket->True,
 ShowSelection->True,
 InitializationCell->True,
 CellChangeTimes->{{3.3954320135167017`*^9, 3.39543206047713*^9}, {
  3.395432347427259*^9, 3.395432376587863*^9}}]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{675, 886},
WindowMargins->{{4, Automatic}, {Automatic, 1}},
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->{
 "sin(x)"->{
  Cell[567, 22, 278, 9, 130, "Title",
   CellTags->"sin(x)"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"sin(x)", 6612, 199}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 278, 9, 130, "Title",
 CellTags->"sin(x)"],
Cell[848, 33, 228, 4, 49, "Subsubtitle"],
Cell[1079, 39, 1488, 37, 204, "Text"],
Cell[2570, 78, 878, 24, 75, "Input"],
Cell[CellGroupData[{
Cell[3473, 106, 44, 0, 35, "Subsubsection"],
Cell[3520, 108, 2653, 74, 204, "Input",
 InitializationCell->True]
}, Closed]]
}, Open  ]]
}
]
*)