Cell[CellGroupData[{Cell[BoxData[
 RowBox[{
  RowBox[{"aux", "[", 
   RowBox[{"k_", ",", "i_", ",", "t_"}], "]"}], ":=", 
  RowBox[{"Point", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{".025", " ", "5", 
      RowBox[{"(", 
       RowBox[{"k", "+", "2"}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"t", "/", "2"}], "]"}], 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{".25", " ", "t"}], "+", " ", 
        RowBox[{"k", " ", 
         RowBox[{"\[Pi]", "/", "7"}], " ", "i"}]}], "]"}], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"2", "\[Pi]", " ", 
          RowBox[{"n", "/", 
           RowBox[{"(", 
            RowBox[{"5", 
             RowBox[{"(", 
              RowBox[{"k", "+", "2"}], ")"}]}], ")"}]}]}], "]"}], " ",
         ",", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", "\[Pi]", " ", 
          RowBox[{"n", "/", 
           RowBox[{"(", 
            RowBox[{"5", 
             RowBox[{"(", 
              RowBox[{"k", "+", "2"}], ")"}]}], ")"}]}]}], "]"}]}], 
       "}"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", " ", 
       RowBox[{"5", 
        RowBox[{"(", 
         RowBox[{"k", "+", "2"}], ")"}]}]}], "}"}]}], "]"}], 
   "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{
  3.35696210375764*^9, {3.4559143097040567`*^9, 
   3.4559143151415567`*^9}, {3.4559143967509317`*^9, 
   3.4559145266259317`*^9}, 3.4559145727978067`*^9, {
   3.4559146405009317`*^9, 3.4559146631884317`*^9}, 
   3.4559148318446817`*^9, 3.4559150664228067`*^9, {
   3.4559152404540567`*^9, 3.4559152455946817`*^9}, 
   3.760728051551173*^9},
 CellID->391148869],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", "
", 
      RowBox[{"White", ",", " ", "
", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", 
       "
", 
       RowBox[{"PointSize", "[", "Large", "]"}], ",", 
       "
", "Gray", ",", "
", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"aux", "[", 
          RowBox[{"k", ",", "i", ",", "t"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}], 
      "
", "}"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"450", ",", "450"}], "}"}]}]}], "]"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "\"\<time\>\""}], "}"}], ",", " ", 
     "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "\"\<inertia\>\""}], "}"}], ",", 
     " ", "0", ",", 
     RowBox[{"\[Pi]", "/", "8"}]}], "}"}], ",", "
", 
   RowBox[{"SaveDefinitions", "->", "True"}], ",", 
   "
", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", "1", "}"}]}], ",", 
   RowBox[{"TrackedSymbols", "->", "True"}]}], 
  "
", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.455076455328125*^9, 3.455076543296875*^9}, {
   3.455076644765625*^9, 3.45507665121875*^9}, {3.455076702828125*^9, 
   3.455076825453125*^9}, {3.455076859640625*^9, 
   3.455076891265625*^9}, {3.455076929125*^9, 3.455076998265625*^9}, {
   3.455077113859375*^9, 3.455077121640625*^9}, {3.455077164515625*^9,
    3.455077187*^9}, 3.455077238734375*^9, {3.455077333484375*^9, 
   3.45507736425*^9}, {3.455077415375*^9, 3.455077500421875*^9}, {
   3.45507764409375*^9, 3.45507780515625*^9}, {3.45507787153125*^9, 
   3.455077871859375*^9}, {3.455077926890625*^9, 
   3.45507807609375*^9}, {3.455078119421875*^9, 3.4550781543125*^9}, {
   3.4550781915*^9, 3.4550782335*^9}, {3.455078297125*^9, 
   3.455078473015625*^9}, {3.455078743328125*^9, 3.45507879625*^9}, {
   3.455078828515625*^9, 3.455078931609375*^9}, {3.455078967328125*^9,
    3.455079038765625*^9}, {3.455079069234375*^9, 
   3.455079119890625*^9}, {3.455079212984375*^9, 
   3.4550792766875*^9}, {3.455082880921875*^9, 3.455082910875*^9}, {
   3.455082957375*^9, 3.45508297284375*^9}, {3.45508307259375*^9, 
   3.45508314334375*^9}, {3.455083178359375*^9, 3.4550833265625*^9}, {
   3.455083360203125*^9, 3.455083371328125*^9}, {3.45508424034375*^9, 
   3.455084273734375*^9}, {3.45508436821875*^9, 3.45508436875*^9}, {
   3.455085183015625*^9, 3.455085194546875*^9}, {3.455085678984375*^9,
    3.455085741875*^9}, 3.455091693296875*^9, {3.4551626733125*^9, 
   3.45516268934375*^9}, {3.455449252703125*^9, 3.45544925375*^9}, {
   3.45544932528125*^9, 3.455449382265625*^9}, {3.455450529703125*^9, 
   3.455450536484375*^9}, {3.4558964047765813`*^9, 
   3.455896463722475*^9}, {3.4559143492353067`*^9, 
   3.4559143733446817`*^9}, {3.4559147099853067`*^9, 
   3.4559147436884317`*^9}, 3.7607280515432253`*^9},
 CellID->87396575],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i$$ = 0, $CellContext`t$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`t$$], 0, "time"}, 0, 2 Pi}, {{
       Hold[$CellContext`i$$], 0, "inertia"}, 0, Rational[1, 8] Pi}}, 
    Typeset`size$$ = {450., {223., 227.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`t$32507$$ = 0, $CellContext`i$32508$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`i$$ = 0, $CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$32507$$, 0], 
        Hold[$CellContext`i$$, $CellContext`i$32508$$, 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" :> 
      Graphics[{White, 
         Circle[{0, 0}, 1], 
         PointSize[Large], Gray, 
         Table[
          $CellContext`aux[$CellContext`k, $CellContext`i$$, \
$CellContext`t$$], {$CellContext`k, 0, 6}]}, ImageSize -> {450, 450}],
       "Specifications" :> {{{$CellContext`t$$, 0, "time"}, 0, 2 
         Pi}, {{$CellContext`i$$, 0, "inertia"}, 0, Rational[1, 8] 
         Pi}}, "Options" :> {
       AutorunSequencing -> {1}, TrackedSymbols -> True}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{495., {282., 288.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`aux[
         Pattern[$CellContext`k, 
          Blank[]], 
         Pattern[$CellContext`i, 
          Blank[]], 
         Pattern[$CellContext`t, 
          Blank[]]] := Point[
         
         Table[((((0.025 5) ($CellContext`k + 2)) 
            Sin[$CellContext`t/2]) 
           Sin[0.25 $CellContext`t + ($CellContext`k (Pi/
                7)) $CellContext`i]) {
            Cos[(2 Pi) ($CellContext`n/(5 ($CellContext`k + 2)))], 
            
            Sin[(2 Pi) ($CellContext`n/(
              5 ($CellContext`k + 2)))]}, {$CellContext`n, 
           5 ($CellContext`k + 2)}]]}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.7607280515435333`*^9},
 CellID->284549164]
}, {3}]]