(* 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[      8526,        201]
NotebookOptionsPosition[      8175,        185]
NotebookOutlinePosition[      8536,        201]
CellTagsIndexPosition[      8493,        198]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"What", " ", "this", " ", 
    RowBox[{"does", ":", " ", 
     RowBox[{
     "Shows", " ", "how", " ", "increasing", " ", "or", " ", "decreasing", 
      " ", "the", " ", "angle", " ", "measure", " ", 
      RowBox[{"(", "\[Theta]", ")"}]}]}]}], " ", ",", " ", 
   RowBox[{
    RowBox[{"Coefficient", " ", "[", 
     RowBox[{"1", " ", "to", " ", "4"}], "]"}], " ", "and", " ", "using", " ",
     "Sine"}], ",", " ", "Cosine", ",", " ", 
   RowBox[{
   "or", " ", "Tangent", " ", "will", " ", "affect", " ", "the", " ", 
    "output", " ", "of", " ", "a", " ", "graph", " ", "with", " ", "polar", 
    " ", 
    RowBox[{"coordinates", ".", " ", "It"}], " ", "is", " ", "animated", " ", 
    "using", " ", 
    RowBox[{"bookmarks", ".", "\[IndentingNewLine]", "It"}], " ", "fits", " ",
     "in", " ", "the", " ", "second", " ", 
    RowBox[{"category", "."}]}]}]}]], "Input",
 CellChangeTimes->{{3.4064099898125*^9, 3.406410058171875*^9}, {
  3.406410097640625*^9, 3.406410106375*^9}, {3.406484784296875*^9, 
  3.40648478871875*^9}},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"PolarPlot", "[", 
    RowBox[{
     RowBox[{"b", "*", 
      RowBox[{"function", "[", 
       RowBox[{"a", "*", "t"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"4", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Directive", "[", "Red", "]"}], "}"}]}], ",", 
     RowBox[{"Mesh", " ", "\[Rule]", " ", "20"}], ",", 
     RowBox[{"MeshShading", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<x (radians)\>\"", ",", "\"\<y values\>\""}], "}"}]}], ",",
      
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "4"}], ",", "4"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "\[Pi]", ",", "\"\<Angle \[Theta] (radians) \>\""}], 
      "}"}], ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", " ", ".05"}], "}"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{
     RowBox[{"\"\<Current Angle:\>\"", 
      RowBox[{"Dynamic", " ", "[", 
       RowBox[{"{", "a", "}"}], "]"}]}], ",", 
     RowBox[{"FontColor", " ", "\[Rule]", " ", "Red"}], ",", "Bold"}], "]"}], 
   ",", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "1", ",", "\"\<Function's Coefficient\>\""}], "}"}], 
     ",", "1", ",", "4", ",", " ", ".05"}], "}"}], ",", " ", 
   RowBox[{"Style", "[", 
    RowBox[{
     RowBox[{"\"\<Current Value:\>\"", 
      RowBox[{"Dynamic", " ", "[", 
       RowBox[{"{", "b", "}"}], "]"}]}], ",", 
     RowBox[{"FontColor", " ", "\[Rule]", " ", "Red"}], ",", "Bold"}], "]"}], 
   ",", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{"function", ",", 
     RowBox[{"{", 
      RowBox[{"Sin", ",", "Cos", ",", "Tan"}], "}"}]}], "}"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{
     RowBox[{"\"\<Current Function:\>\"", 
      RowBox[{"Dynamic", " ", "[", 
       RowBox[{"{", "function", "}"}], "]"}]}], ",", 
     RowBox[{"FontColor", " ", "\[Rule]", " ", "Red"}], ",", "Bold"}], "]"}], 
   ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\>\"", ",", "\"\<\>\"", ",", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<Polar Functions\>\"", ",", " ", "Underlined", ",", "Bold"}], 
        "]"}], "\"\<\>\""}]}], "}"}]}], ",", 
   RowBox[{"AutorunSequencing", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "15"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "10"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"LabelStyle", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", " ", "Bold", ",", "12", ",", 
      RowBox[{"FontFamily", " ", "\[Rule]", " ", "\"\<Tahoma\>\""}]}], 
     "}"}]}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ControlPlacement", " ", "\[Rule]", " ", "Left"}]}], " ", 
  "]"}]], "Input",
 CellChangeTimes->{{3.406234320671875*^9, 3.4062344330625*^9}, {
  3.406234463765625*^9, 3.406234604765625*^9}, {3.40623466103125*^9, 
  3.40623466259375*^9}, {3.40623470165625*^9, 3.40623470459375*^9}, {
  3.40623482878125*^9, 3.406234893453125*^9}, {3.406234968828125*^9, 
  3.406234998890625*^9}, {3.406235055203125*^9, 3.40623506771875*^9}, {
  3.406235150359375*^9, 3.4062351613125*^9}, {3.40623522621875*^9, 
  3.406235281375*^9}, {3.406235376015625*^9, 3.40623542946875*^9}, {
  3.406235545375*^9, 3.4062355459375*^9}, {3.406320368859375*^9, 
  3.406320454734375*^9}, {3.4063204976875*^9, 3.4063205286875*^9}, {
  3.406322455796875*^9, 3.40632248771875*^9}, {3.4063226516875*^9, 
  3.406322657703125*^9}, {3.40632279975*^9, 3.406322806578125*^9}, {
  3.406322844078125*^9, 3.406322863609375*^9}, {3.40632291109375*^9, 
  3.40632295684375*^9}, {3.40632307653125*^9, 3.406323080078125*^9}, {
  3.406323118640625*^9, 3.40632313375*^9}, {3.406323383515625*^9, 
  3.406323383765625*^9}, {3.406329124*^9, 3.406329137875*^9}, {
  3.4063715405272703`*^9, 3.40637155650292*^9}, {3.406371611396812*^9, 
  3.406371698242004*^9}, {3.40637174291148*^9, 3.406371770607802*^9}, {
  3.40637185848167*^9, 3.406371920700982*^9}, {3.40637360372402*^9, 
  3.406373604939728*^9}, {3.406373650372918*^9, 3.4063736540668*^9}, {
  3.406373687701388*^9, 3.406373688168968*^9}, {3.4063737756843576`*^9, 
  3.406373776292212*^9}, {3.406373883508306*^9, 3.406373884053816*^9}, {
  3.406374761779372*^9, 3.40637480998687*^9}, {3.40637487840941*^9, 
  3.406374951383062*^9}, {3.406375186918694*^9, 3.406375338944538*^9}, {
  3.4063754025665903`*^9, 3.406375598420266*^9}, {3.4063757163439417`*^9, 
  3.40637572130029*^9}, {3.406375768401182*^9, 3.406375798123684*^9}, {
  3.406375918447604*^9, 3.406375956664476*^9}, {3.4063809680326376`*^9, 
  3.4063810011263876`*^9}, {3.4063811796426682`*^9, 3.406381242224139*^9}, {
  3.4063812778958898`*^9, 3.4063813048991556`*^9}, {3.406381402395356*^9, 
  3.406381498118694*^9}, {3.406408896125*^9, 3.406408902140625*^9}, {
  3.4064089829375*^9, 3.4064090455*^9}, {3.406409783765625*^9, 
  3.4064099146875*^9}, {3.406409968796875*^9, 3.406409975640625*^9}, {
  3.406416860671875*^9, 3.406416965015625*^9}, {3.40641758203125*^9, 
  3.40641760446875*^9}, {3.406417810546875*^9, 3.40641785109375*^9}, {
  3.40641792571875*^9, 3.40641798653125*^9}, {3.4064182115625*^9, 
  3.40641827409375*^9}, {3.406472433969532*^9, 3.406472435644799*^9}, {
  3.4064725121121216`*^9, 3.406472572719208*^9}, {3.4064727168078175`*^9, 
  3.406472717371459*^9}, {3.406472747698487*^9, 3.4064728003206553`*^9}, {
  3.406472897736643*^9, 3.406472921112096*^9}, {3.4064730491995583`*^9, 
  3.4064730627269473`*^9}, {3.4064731675798674`*^9, 3.406473174233965*^9}, {
  3.406484395125*^9, 3.406484404046875*^9}, {3.406484434515625*^9, 
  3.406484466125*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<lee17.swf\>\"", ",", "%"}], "]"}]], "Input",
 CellChangeTimes->{{3.40637418695214*^9, 3.406374198220818*^9}, {
   3.406374668840054*^9, 3.406374670040176*^9}, {3.406409101*^9, 
   3.406409102875*^9}, {3.406410121828125*^9, 3.4064101220625*^9}, 
   3.406418676375*^9, {3.40649985271875*^9, 3.40649985284375*^9}, {
   3.406501833515625*^9, 3.406501833578125*^9}, {3.40650278559375*^9, 
   3.406502789640625*^9}, {3.40650282728125*^9, 3.406502828046875*^9}}]
},
WindowSize->{1432, 799},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.25,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 1131, 25, 102, "Input"],
Cell[1702, 48, 5957, 125, 168, "Input"],
Cell[7662, 175, 509, 8, 35, "Input"]
}
]
*)

(* End of internal cache information *)