(* 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[      3116,        106]
NotebookOptionsPosition[      2792,         91]
NotebookOutlinePosition[      3132,        106]
CellTagsIndexPosition[      3089,        103]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"ColorData", "[", "\"\<BrightBands\>\"", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "*", 
       RowBox[{"Sin", " ", "[", 
        FractionBox[
         RowBox[{"x", "-", "h"}], "a"], "]"}]}], "+", "k"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"-", "2"}], "\[Pi]"}], ",", 
       RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "6"}], "}"}]}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "f"}], ",", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"DotDashed", ",", " ", 
        RowBox[{"Thickness", " ", "[", "0.01", "]"}]}], "}"}]}]}], "]"}], ",",
    " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "b", ",", "1", ",", " ", 
       "\"\<Amplitude (\[VerticalBar]b\[VerticalBar])\>\""}], "}"}], ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "1", ",", " ", 
       "\"\<Period (2\[Pi] \[VerticalBar]a\[VerticalBar])\>\""}], "}"}], ",", 
     
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"h", ",", "0", ",", "\"\<Phase Shift (h)\>\""}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "\"\<Vertical Shift (k)\>\""}], "}"}], ",", 
     " ", 
     RowBox[{"-", "4"}], ",", " ", "4"}], "}"}], ",", 
   RowBox[{
   "FrameLabel", "\[Rule]", " ", 
    "\"\<\!\(\*FractionBox[\(y\\\  - \\\ k\), \(b\)]\) = sin \!\(\*
StyleBox[\"(\",
FontSize->36]\)\!\(\*FractionBox[\(x\\\  - \\\ h\), \(a\)]\)\!\(\*
StyleBox[\")\",
FontSize->36]\)\>\""}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Medium", ",", "Blue"}], "]"}]}]}], "]"}]], "Input"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.40637490473005*^9, {3.4063750034213395`*^9, 3.4063750173750005`*^9}}]
},
WindowSize->{616, 750},
WindowMargins->{{6, Automatic}, {Automatic, 18}},
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, 103, 2, 31, "Input"],
Cell[674, 25, 1991, 60, 202, "Input"],
Cell[2668, 87, 120, 2, 31, "Input"]
}
]
*)

(* End of internal cache information *)