Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"a", "t"}], "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"b", "t"}], "+", "\[Phi]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", "1.05"}], ",", 
     RowBox[{"Axes", "->", "ax"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"500", ",", "400"}], "}"}]}], ",", 
     RowBox[{"PerformanceGoal", "->", "\"\<Quality\>\""}]}], 
    "]"}], ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1", ",", "\"\<horizontal frequency\>\""}], 
      "}"}], ",", "1", ",", "3", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "1", ",", "\"\<vertical frequency\>\""}], 
      "}"}], ",", "1", ",", "3", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Phi]", ",", 
       RowBox[{"Pi", "/", "4"}], ",", "\"\<relative phase\>\""}], 
      "}"}], ",", "0", ",", 
     RowBox[{"2", "Pi"}], ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "Delimiter", ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"tmax", ",", "100", ",", "\"\<length\>\""}], "}"}], ",",
      "0.1", ",", "500", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ax", ",", "False", ",", "\"\<show axes\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35264501075522*^9, {3.36326693542188*^9, 3.36326697529688*^9}, {
   3.3714330427635555`*^9, 3.371433141406074*^9}, {
   3.371433491615923*^9, 3.371433586086487*^9}, {
   3.3785609840548162`*^9, 3.37856098984795*^9}, {
   3.378561122813653*^9, 3.37856112570638*^9}, {3.380306154206231*^9, 
   3.380306162868441*^9}, {3.380306246662105*^9, 
   3.3803062638923597`*^9}, {3.382190338268877*^9, 
   3.382190366258772*^9}, 3.386337616171266*^9, 3.759799768860918*^9},
 
 CellID->1496021318],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`ax$$ = 
    False, $CellContext`b$$ = 1, $CellContext`tmax$$ = 
    100, $CellContext`\[Phi]$$ = Rational[1, 4] Pi, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = 
    "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, 
    Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1, "horizontal frequency"}, 1, 3}, {{
       Hold[$CellContext`b$$], 1, "vertical frequency"}, 1, 3}, {{
       Hold[$CellContext`\[Phi]$$], Rational[1, 4] Pi, 
       "relative phase"}, 0, 2 Pi}, {{
       Hold[$CellContext`tmax$$], 100, "length"}, 0.1, 500}, {{
       Hold[$CellContext`ax$$], False, "show axes"}, {True, False}}}, 
    Typeset`size$$ = {500., {198., 202.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$104219$$ = 0, $CellContext`b$104220$$ = 
    0, $CellContext`\[Phi]$104221$$ = 0, $CellContext`tmax$104222$$ = 
    0, $CellContext`ax$104223$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`ax$$ = 
        False, $CellContext`b$$ = 1, $CellContext`tmax$$ = 
        100, $CellContext`\[Phi]$$ = Rational[1, 4] Pi}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$104219$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$104220$$, 0], 
        Hold[$CellContext`\[Phi]$$, $CellContext`\[Phi]$104221$$, 0], 
        
        Hold[$CellContext`tmax$$, $CellContext`tmax$104222$$, 0], 
        Hold[$CellContext`ax$$, $CellContext`ax$104223$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      ParametricPlot[{
         Sin[$CellContext`a$$ $CellContext`t], 
         
         Sin[$CellContext`b$$ $CellContext`t + \
$CellContext`\[Phi]$$]}, {$CellContext`t, 0, $CellContext`tmax$$}, 
        PlotRange -> 1.05, Axes -> $CellContext`ax$$, 
        ImageSize -> {500, 400}, PerformanceGoal -> "Quality"], 
      "Specifications" :> {{{$CellContext`a$$, 1, 
          "horizontal frequency"}, 1, 3, Appearance -> 
         "Labeled"}, {{$CellContext`b$$, 1, "vertical frequency"}, 1, 
         3, Appearance -> 
         "Labeled"}, {{$CellContext`\[Phi]$$, Rational[1, 4] Pi, 
          "relative phase"}, 0, 2 Pi, Appearance -> "Labeled"}, 
        Delimiter, {{$CellContext`tmax$$, 100, "length"}, 0.1, 500, 
         Appearance -> 
         "Labeled"}, {{$CellContext`ax$$, False, "show axes"}, {
         True, False}}}, "Options" :> {ControllerLinking -> True}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{545., {304., 310.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.759799768861278*^9},
 CellID->1545952234]
}, {2}]]