(* 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[      4522,        129]
NotebookOptionsPosition[      4180,        112]
NotebookOutlinePosition[      4522,        127]
CellTagsIndexPosition[      4479,        124]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"C", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"\[CapitalOmega]", " ", "x"}], "+", "\[Theta]"}], "]"}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"C", ",", "3", ",", "\"\<Amplitude\>\""}], "}"}], ",", "1", ",",
      "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[CapitalOmega]", ",", "2", ",", "\"\<Angular Frequency\>\""}],
       "}"}], ",", "1", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "0", ",", "\"\<Phase Angle\>\""}], "}"}], ",", 
     "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4110688736214285`*^9, 3.411068927779304*^9}, {
   3.4110692086431665`*^9, 3.411069270221712*^9}, 3.4110693287658944`*^9, {
   3.4110693828736973`*^9, 3.411069388371603*^9}, {3.411069418685192*^9, 
   3.411069450460883*^9}},
 CellID->26946],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{C$$ = 3, $CellContext`\[Theta]$$ = 
    0, $CellContext`\[CapitalOmega]$$ = 2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[C$$], 3, "Amplitude"}, 1, 3}, {{
       Hold[$CellContext`\[CapitalOmega]$$], 2, "Angular Frequency"}, 1, 
      4}, {{
       Hold[$CellContext`\[Theta]$$], 0, "Phase Angle"}, 0, 10}}, 
    Typeset`size$$ = {360., {113., 117.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, C$2285$$ = 
    0, $CellContext`\[CapitalOmega]$2286$$ = 0, $CellContext`\[Theta]$2287$$ =
     0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {
       C$$ = 3, $CellContext`\[Theta]$$ = 0, $CellContext`\[CapitalOmega]$$ = 
        2}, "ControllerVariables" :> {
        Hold[C$$, C$2285$$, 0], 
        Hold[$CellContext`\[CapitalOmega]$$, \
$CellContext`\[CapitalOmega]$2286$$, 0], 
        Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$2287$$, 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" :> 
      Plot[C$$ Cos[$CellContext`\[CapitalOmega]$$ $CellContext`x + \
$CellContext`\[Theta]$$], {$CellContext`x, 0, 2 Pi}, PlotRange -> {-3, 3}], 
      "Specifications" :> {{{C$$, 3, "Amplitude"}, 1, 
         3}, {{$CellContext`\[CapitalOmega]$$, 2, "Angular Frequency"}, 1, 
         4}, {{$CellContext`\[Theta]$$, 0, "Phase Angle"}, 0, 10}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{404., {176., 181.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.4110693324812365`*^9, 3.411069389493216*^9, {3.411069441487981*^9, 
   3.411069451502381*^9}}]
}, Open  ]]
},
WindowSize->{619, 750},
WindowMargins->{{257, Automatic}, {83, Automatic}},
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[CellGroupData[{
Cell[590, 23, 1253, 36, 72, "Input",
 CellID->26946],
Cell[1846, 61, 2318, 48, 374, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)