Cell[CellGroupData[{Cell[BoxData[
 RowBox[{
  RowBox[{"z", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"5", 
    RowBox[{"Mod", "[", 
     RowBox[{"t", ",", "5"}], "]"}]}], "-", 
   SuperscriptBox[
    RowBox[{"Mod", "[", 
     RowBox[{"t", ",", "5"}], "]"}], "2"]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{
  3.35696210375764*^9, {3.465832164557858*^9, 3.465832189003652*^9}, {
   3.4658332698583803`*^9, 3.465833294166521*^9}, {
   3.4658336631983213`*^9, 3.4658336634345913`*^9}, 
   3.465833976705373*^9, 3.465835943053008*^9, 
   3.4658359969498463`*^9, {3.467847164037615*^9, 
   3.467847198620881*^9}, {3.467847709463028*^9, 
   3.467847754018221*^9}, 3.759768238930252*^9},
 CellID->639930644],

Cell[BoxData[
 RowBox[{
  RowBox[{"plate", "[", 
   RowBox[{"t_", ",", "\[Theta]_", ",", "\[CapitalOmega]_"}], "]"}], ":=", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Translate", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Rotate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Rotate", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Rotate", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Glow", "[", "White", "]"}], ",", 
                  RowBox[{"EdgeForm", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", ".02", "]"}], ",", 
                    "Red"}], "}"}], "]"}], ",", " ", 
                  RowBox[{"Cylinder", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", 
                    RowBox[{"0", "-", ".05"}]}], "}"}]}], "}"}], ",", 
                    "1.5"}], "]"}], ",", 
                  RowBox[{"EdgeForm", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Thickness", "[", ".01", "]"}], ",", 
                    "Red"}], "}"}], "]"}], ",", " ", 
                  RowBox[{"Cylinder", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", 
                    RowBox[{"0", "-", ".025"}]}], "}"}]}], "}"}], ",",
                     "1.05"}], "]"}], " ", ",", 
                  RowBox[{"Thickness", "[", ".01", "]"}], ",", "Red", 
                  ",", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
                    StyleBox[
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".58"}], ",", 
                    RowBox[{"-", ".45"}], ",", "0"}], "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".707"}], ",", 
                    RowBox[{"-", ".2"}], ",", "0"}], "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".707"}], ",", ".707", ",", "0"}], 
                    "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", 
                    RowBox[{".707", ",", ".707", ",", "0"}], "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", 
                    RowBox[{".707", ",", 
                    RowBox[{"-", ".2"}], ",", "0"}], "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", 
                    RowBox[{".58", ",", 
                    RowBox[{"-", ".45"}], ",", "0"}], "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], 
                   "]"}], ",", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".707"}], ",", ".1", ",", "0"}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".707", ",", ".1", ",", "0"}], "}"}]}], 
                    "}"}], "]"}], ",", "
", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".3"}], ",", ".15", ",", "0"}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".5"}], ",", ".4", ",", "0"}], "}"}],
                     ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".5"}], ",", ".65", ",", "0"}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".1"}], ",", ".65", ",", "0"}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".1"}], ",", ".4", ",", "0"}], "}"}],
                     ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".3"}], ",", ".15", ",", "0"}], 
                    "}"}]}], "}"}], "]"}], ",", "
", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".15", ",", "0"}], "}"}], ",", 
                    
                    RowBox[{"{", 
                    RowBox[{".5", ",", ".4", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".5", ",", ".65", ",", "0"}], "}"}], ",", 
                    
                    RowBox[{"{", 
                    RowBox[{".1", ",", ".65", ",", "0"}], "}"}], ",", 
                    
                    RowBox[{"{", 
                    RowBox[{".1", ",", ".4", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".3", ",", ".15", ",", "0"}], "}"}]}], 
                    "}"}], "]"}], ",", "
", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".4"}], ",", 
                    RowBox[{"-", ".5"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".4"}], ",", "0", ",", "0"}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{".4", ",", "0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".4", ",", 
                    RowBox[{"-", ".5"}], ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", ".4"}], ",", 
                    RowBox[{"-", ".5"}], ",", "0"}], "}"}]}], "}"}], 
                   "]"}], ",", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".1", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], 
                   "]"}]}], "}"}], ",", 
                RowBox[{
                 RowBox[{"-", "\[CapitalOmega]"}], "  ", "t"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}], 
              "}"}], ",", "\[Theta]", " ", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], 
           "}"}], ",", 
          RowBox[{
           FractionBox[
            RowBox[{"2", "\[CapitalOmega]"}], 
            RowBox[{" ", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}]], 
           RowBox[{"Mod", "[", 
            RowBox[{"t", ",", "5"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"z", "[", "t", "]"}]}], "}"}]}], "]"}], "}"}], ",", 
    RowBox[{"PlotRange", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", ".75"}], ",", "6.85"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Boxed", "->", "False"}], ",", 
    RowBox[{"PlotLabel", "->", 
     RowBox[{"Grid", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"NumberForm", "[", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[CapitalOmega]", " ", 
                  RowBox[{"Mod", "[", 
                   RowBox[{"t", ",", "5"}], "]"}]}], 
                 RowBox[{"2", "\[Pi]"}]], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "2"}], "}"}]}], "]"}], ",", 
              "\"\< turns\>\""}], "}"}], "]"}], ",", "20", ",", 
           "Black"}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"Row", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"NumberForm", "[", 
               RowBox[{
                FractionBox[
                 RowBox[{"2", "\[CapitalOmega]", " ", 
                  RowBox[{"Mod", "[", 
                   RowBox[{"t", ",", "5"}], "]"}], " ", 
                  RowBox[{"Boole", "[", 
                   RowBox[{"\[Theta]", "!=", "0"}], "]"}]}], 
                 
                 RowBox[{"2", "\[Pi]", " ", 
                  RowBox[{"Cos", "[", "\[Theta]", "]"}]}]], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "2"}], "}"}]}], "]"}], ",", 
              "\"\< wobbles\>\""}], "}"}], "]"}], ",", "20", ",", 
           "Black"}], "]"}], "}"}]}], "
", "}"}], 
      "]"}]}]}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{
  3.35696210375764*^9, {3.465777192740986*^9, 3.465777286920117*^9}, {
   3.465777349043751*^9, 3.465777478416287*^9}, {3.465777517642125*^9,
    3.465777521538488*^9}, {3.465777676529542*^9, 
   3.465777851033252*^9}, {3.465777921028365*^9, 
   3.465777936675831*^9}, {3.465778151766028*^9, 
   3.465778172900991*^9}, {3.465778203631311*^9, 
   3.465778260961039*^9}, {3.465778361219925*^9, 
   3.4657783743649197`*^9}, {3.46577842660572*^9, 
   3.465778475655932*^9}, {3.4657785386614103`*^9, 
   3.465778547379747*^9}, {3.4657785939672127`*^9, 
   3.465778642145832*^9}, 3.465780666117385*^9, {
   3.4657807157156687`*^9, 3.46578075902813*^9}, {
   3.4657808625642633`*^9, 3.465780974179593*^9}, {
   3.465781032937777*^9, 3.465781102304413*^9}, 
   3.4657811515554667`*^9, {3.465781208870482*^9, 
   3.465781209836647*^9}, 3.465781252531907*^9, {
   3.4657812847776833`*^9, 3.4657812921524067`*^9}, 
   3.465781344195512*^9, {3.465781377683302*^9, 
   3.4657813870615597`*^9}, {3.4657814471098013`*^9, 
   3.465781476346261*^9}, {3.465781609093934*^9, 
   3.465781657783785*^9}, {3.465781692768427*^9, 
   3.465781757177821*^9}, {3.465781790349607*^9, 
   3.465781799759448*^9}, {3.4657818514394503`*^9, 
   3.46578185416579*^9}, {3.465781884772092*^9, 
   3.465781943326255*^9}, {3.465781984924982*^9, 
   3.4657819851833963`*^9}, 3.465782024934195*^9, {
   3.465782062663086*^9, 3.4657822482231007`*^9}, {
   3.465782374132423*^9, 3.465782384893497*^9}, {3.465782425030517*^9,
    3.465782446070388*^9}, 3.4657825473391314`*^9, {
   3.4657825953255043`*^9, 3.465782650736682*^9}, {
   3.465782693385243*^9, 3.465782714537704*^9}, {3.465782819390291*^9,
    3.4657828241246653`*^9}, {3.465783051098033*^9, 
   3.465783101576509*^9}, 3.4657831608671627`*^9, {
   3.4657831943328743`*^9, 3.465783249566907*^9}, 
   3.4657833046250553`*^9, {3.4657833446672077`*^9, 
   3.465783352369112*^9}, {3.465823798768242*^9, 
   3.465823837840613*^9}, {3.465824127477993*^9, 
   3.465824143748205*^9}, {3.4658245575301847`*^9, 
   3.4658245807223177`*^9}, {3.4658246162230587`*^9, 
   3.465824765545182*^9}, {3.46582483431853*^9, 
   3.465824910383677*^9}, {3.465824961317664*^9, 
   3.465825032691535*^9}, {3.465825095058029*^9, 
   3.465825117625033*^9}, {3.465825150181631*^9, 
   3.4658251618637323`*^9}, {3.465825253082155*^9, 
   3.465825276686447*^9}, {3.465825306827303*^9, 
   3.46582538316121*^9}, {3.465825452560215*^9, 
   3.4658254876139793`*^9}, {3.465825518294232*^9, 
   3.465825574402988*^9}, {3.4658256162081738`*^9, 
   3.465825712423559*^9}, {3.465825767573341*^9, 
   3.465825822748109*^9}, {3.465825856950653*^9, 
   3.465825870611919*^9}, {3.465825945358512*^9, 
   3.465825957796729*^9}, {3.465825987799913*^9, 
   3.4658261558964663`*^9}, {3.465826187356851*^9, 
   3.4658261995227118`*^9}, {3.46582810547827*^9, 
   3.465828141584239*^9}, {3.465828183952509*^9, 
   3.465828205535598*^9}, {3.4658282487473097`*^9, 
   3.4658282597826014`*^9}, {3.4658283205239687`*^9, 
   3.465828332847322*^9}, {3.4658284130341682`*^9, 
   3.465828467284431*^9}, {3.465828499971904*^9, 
   3.465828540341115*^9}, {3.465828602240213*^9, 
   3.465828610788392*^9}, {3.4658286752799053`*^9, 
   3.465828690181568*^9}, {3.465831026160315*^9, 
   3.465831153255843*^9}, {3.465831193859524*^9, 
   3.4658312271760893`*^9}, {3.465831280404395*^9, 
   3.465831360861603*^9}, {3.4658313946839113`*^9, 
   3.465831417312813*^9}, {3.465831465004747*^9, 
   3.465831504377706*^9}, {3.465831542734857*^9, 
   3.465831575344428*^9}, {3.465831632555135*^9, 
   3.4658317811810293`*^9}, 3.4658318113745127`*^9, {
   3.4658318440229273`*^9, 3.465832158187291*^9}, 
   3.465832479223387*^9, {3.4658326894183903`*^9, 
   3.465832728267559*^9}, 3.4658327984939404`*^9, {
   3.465832853202346*^9, 3.465832860515895*^9}, {
   3.4658329253506527`*^9, 3.465833023971195*^9}, {
   3.465833119879627*^9, 3.465833152782176*^9}, 
   3.465833193173854*^9, {3.465835829008389*^9, 3.465835858425441*^9},
    3.465836083527145*^9, {3.465836143582138*^9, 
   3.465836151094298*^9}, {3.4658361981163263`*^9, 
   3.465836203046425*^9}, {3.465836444515329*^9, 
   3.4658364727564287`*^9}, {3.4658365132713547`*^9, 
   3.4658365600136127`*^9}, 3.465836766209169*^9, 
   3.465836796752118*^9, {3.4658369220336943`*^9, 
   3.465836954857046*^9}, {3.4658370577474823`*^9, 
   3.4658370781568747`*^9}, 3.465837109611891*^9, 
   3.465837154771028*^9, 3.465837211671878*^9, {3.465838604236637*^9, 
   3.46583867539133*^9}, {3.465838706282591*^9, 
   3.4658387127487383`*^9}, 3.465838745893425*^9, {
   3.4658390898940487`*^9, 3.465839202208953*^9}, {
   3.465839240031893*^9, 3.465839248137288*^9}, 
   3.4658393600347223`*^9, {3.4658396849412518`*^9, 
   3.465839704467664*^9}, {3.4658398026172543`*^9, 
   3.46583980425583*^9}, 3.4658400142136*^9, 3.466448762971957*^9, 
   3.4664488153540907`*^9, {3.4664512316373796`*^9, 
   3.466451279878159*^9}, {3.466451613764243*^9, 
   3.466451698191004*^9}, {3.4664517329448347`*^9, 
   3.4664517923003597`*^9}, {3.466451842016136*^9, 
   3.466451868130426*^9}, {3.466451929857863*^9, 
   3.466451971348102*^9}, {3.466452024877487*^9, 
   3.4664520517964563`*^9}, {3.466452141522709*^9, 
   3.4664523104337387`*^9}, {3.466452341999392*^9, 
   3.466452386336639*^9}, {3.466452416380774*^9, 
   3.46645245259194*^9}, {3.466452508383905*^9, 
   3.466452654973165*^9}, {3.466452922076455*^9, 
   3.466452923815629*^9}, 3.4664667805282097`*^9, {
   3.466466822779839*^9, 3.466466946436762*^9}, 
   3.466467747098384*^9, {3.466528439042306*^9, 
   3.4665284670741086`*^9}, {3.466786738126747*^9, 
   3.466786780564247*^9}, {3.466787260986122*^9, 
   3.466787262314247*^9}, 3.467847236442226*^9, {3.467847925434793*^9,
    3.4678479300311203`*^9}, {3.467848235574999*^9, 
   3.467848286445921*^9}, {3.467848328699839*^9, 
   3.467848376731654*^9}, 3.4678484487447147`*^9, 
   3.467848752346506*^9, {3.467849675226531*^9, 3.467849698901083*^9},
    3.467849729785945*^9, 3.759768238930367*^9},
 CellID->1743597122],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "
", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"plate", "[", 
      RowBox[{"t", ",", "\[Theta]", ",", "\[CapitalOmega]"}], "]"}], 
     ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"325", ",", "450"}], "}"}]}]}], "]"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Theta]", ",", "0", ",", "\"\<tilt angle \[Theta]\>\""}], 
      "}"}], ",", "0", ",", 
     RowBox[{"\[Pi]", "/", "8"}], ",", ".01", ",", 
     RowBox[{"ImageSize", "->", "Small"}], ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[CapitalOmega]", ",", "0", ",", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<angular velocity \>\"", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"OverDot", "[", "\[Psi]", "]"}], "]"}]}], "}"}], 
        "]"}]}], "}"}], ",", "0", ",", 
     RowBox[{"4", 
      RowBox[{"\[Pi]", "/", "5"}]}], ",", ".01", ",", 
     RowBox[{"ImageSize", "->", "Small"}], ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "\"\<time t\>\""}], "}"}], ",", "0",
      ",", "5", ",", ".01", ",", 
     RowBox[{"ImageSize", "->", "Small"}], ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", "
", 
   RowBox[{"TrackedSymbols", ":>", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Theta]", ",", "\[CapitalOmega]"}], "}"}]}], 
   ",", 
   RowBox[{"ControlPlacement", "->", "Left"}], ",", 
   RowBox[{"SaveDefinitions", "->", "True"}], ",", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, {3.465832306757401*^9, 3.465832389421117*^9}, {
   3.465833416248172*^9, 3.465833461696822*^9}, {3.465833675348344*^9,
    3.4658336756125526`*^9}, {3.465833794159562*^9, 
   3.465833820879724*^9}, 3.465833992728058*^9, {3.465834121165073*^9,
    3.465834127586205*^9}, {3.46583427959739*^9, 
   3.465834302549662*^9}, {3.465834705745091*^9, 
   3.4658347670464478`*^9}, {3.465834826676264*^9, 
   3.4658348978917627`*^9}, {3.465834974201038*^9, 
   3.4658350217610598`*^9}, {3.465835062435629*^9, 
   3.46583514389039*^9}, {3.465835174031896*^9, 
   3.4658352064303503`*^9}, {3.465835327026729*^9, 
   3.465835507305994*^9}, {3.465835560876659*^9, 
   3.4658355645130577`*^9}, {3.465835667787133*^9, 
   3.465835685504807*^9}, {3.465835742915305*^9, 
   3.465835743317637*^9}, 3.46583595591105*^9, 3.465836011295949*^9, {
   3.465836288758919*^9, 3.465836391860379*^9}, {3.465836485776404*^9,
    3.465836500279264*^9}, 3.46583673035779*^9, {3.465838823976915*^9,
    3.46583883059785*^9}, 3.465838882529749*^9, 
   3.465839535955544*^9, {3.4658403025826693`*^9, 
   3.465840303792556*^9}, {3.465840388421515*^9, 
   3.465840406394578*^9}, {3.4658404905899067`*^9, 
   3.4658405435488577`*^9}, {3.465840578295704*^9, 
   3.465840579459847*^9}, {3.466369412946011*^9, 
   3.466369471409416*^9}, {3.466369523518343*^9, 
   3.466369571013113*^9}, {3.466369606136793*^9, 
   3.4663696635105047`*^9}, 3.4663697203394833`*^9, 
   3.466447855727169*^9, {3.4664479382734833`*^9, 
   3.46644794883926*^9}, 3.466448750516605*^9, {3.466451164286001*^9, 
   3.466451173455269*^9}, {3.466451405015161*^9, 
   3.466451435269524*^9}, {3.4664667261997337`*^9, 
   3.466466756005336*^9}, {3.4664671099158792`*^9, 
   3.466467134080888*^9}, {3.4665282609219866`*^9, 
   3.4665283963860407`*^9}, {3.4665284918095818`*^9, 
   3.466528496298031*^9}, {3.4678446742497263`*^9, 
   3.467844742484313*^9}, {3.467844826666144*^9, 
   3.4678448605609503`*^9}, {3.467844916718288*^9, 
   3.4678449273317633`*^9}, {3.467845204655793*^9, 
   3.46784528985032*^9}, {3.467845320891645*^9, 
   3.4678453544129047`*^9}, {3.467845463826844*^9, 
   3.467845494538212*^9}, 3.467845543627761*^9, {3.467845816951771*^9,
    3.4678459009291*^9}, {3.467845937484123*^9, 
   3.467845982708301*^9}, {3.4678472953523808`*^9, 
   3.467847328608159*^9}, {3.46784857392808*^9, 
   3.467848596190509*^9}, {3.467848792761479*^9, 
   3.46784884699039*^9}, {3.4678488812774963`*^9, 
   3.46784891053856*^9}, 3.467849035412037*^9, {
   3.4678491322782707`*^9, 3.467849149681731*^9}, 
   3.4678492752051153`*^9, 3.467849327349105*^9, {
   3.4678494394259377`*^9, 3.467849473479147*^9}, {
   3.4679726079905653`*^9, 3.467972644027895*^9}, {
   3.467972707229784*^9, 3.467972751279354*^9}, {3.467972878717368*^9,
    3.467972881339048*^9}, 3.759768238914011*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 0, $CellContext`\[Theta]$$ = 
    0, $CellContext`\[CapitalOmega]$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`\[Theta]$$], 0, "tilt angle \[Theta]"}, 0, 
      Rational[1, 8] Pi, 0.01}, {{
       Hold[$CellContext`\[CapitalOmega]$$], 0, 
       Row[{"angular velocity ", 
         Style[
          OverDot[$CellContext`\[Psi]]]}]}, 0, Rational[4, 5] Pi, 
      0.01}, {{
       Hold[$CellContext`t$$], 0, "time t"}, 0, 5, 0.01}}, 
    Typeset`size$$ = {325., {223., 227.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`\[Theta]$12650$$ = 
    0, $CellContext`\[CapitalOmega]$12651$$ = 
    0, $CellContext`t$12652$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`t$$ = 0, $CellContext`\[Theta]$$ = 
        0, $CellContext`\[CapitalOmega]$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$12650$$, 
         0], 
        Hold[$CellContext`\[CapitalOmega]$$, $CellContext`\
\[CapitalOmega]$12651$$, 0], 
        Hold[$CellContext`t$$, $CellContext`t$12652$$, 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" :> Show[
        $CellContext`plate[$CellContext`t$$, $CellContext`\[Theta]$$, \
$CellContext`\[CapitalOmega]$$], ImageSize -> {325, 450}], 
      "Specifications" :> {{{$CellContext`\[Theta]$$, 0, 
          "tilt angle \[Theta]"}, 0, Rational[1, 8] Pi, 0.01, 
         ImageSize -> Small, Appearance -> 
         "Labeled"}, {{$CellContext`\[CapitalOmega]$$, 0, 
          Row[{"angular velocity ", 
            Style[
             OverDot[$CellContext`\[Psi]]]}]}, 0, Rational[4, 5] Pi, 
         0.01, ImageSize -> Small, Appearance -> 
         "Labeled"}, {{$CellContext`t$$, 0, "time t"}, 0, 5, 0.01, 
         ImageSize -> Small, Appearance -> "Labeled"}}, 
      "Options" :> {
       TrackedSymbols :> {$CellContext`t$$, $CellContext`\[Theta]$$, \
$CellContext`\[CapitalOmega]$$}, ControlPlacement -> Left, 
        AutorunSequencing -> {1, 3}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{605., {252., 258.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`plate[
         Pattern[$CellContext`t, 
          Blank[]]] := Graphics3D[{
          Glow[White], 
          EdgeForm[{
            Thickness[0.02], Red}], 
          Cylinder[{{0, 0, 
             $CellContext`z[$CellContext`t]}, {
            0, 0, $CellContext`z[$CellContext`t] - 0.05}}, 1.5], 
          EdgeForm[{
            Thickness[0.01], Red}], 
          Cylinder[{{0, 0, 
             $CellContext`z[$CellContext`t]}, {
            0, 0, $CellContext`z[$CellContext`t] - 0.05}}, 1.05], 
          Thickness[0.01], Red, 
          Line[{{0, -1, 
             $CellContext`z[$CellContext`t]}, {-0.58, -0.45, 
             $CellContext`z[$CellContext`t]}, {-0.707, -0.2, 
             $CellContext`z[$CellContext`t]}, {-0.707, 0.707, 
             $CellContext`z[$CellContext`t]}, {0.707, 0.707, 
             $CellContext`z[$CellContext`t]}, {0.707, -0.2, 
             $CellContext`z[$CellContext`t]}, {0.58, -0.45, 
             $CellContext`z[$CellContext`t]}, {0, -1, 
             $CellContext`z[$CellContext`t]}}], 
          Line[{{-0.707, 0.1, 
             $CellContext`z[$CellContext`t]}, {0.707, 0.1, 
             $CellContext`z[$CellContext`t]}}], 
          Line[{{-0.3, 0.15, 
             $CellContext`z[$CellContext`t]}, {-0.5, 0.4, 
             $CellContext`z[$CellContext`t]}, {-0.5, 0.65, 
             $CellContext`z[$CellContext`t]}, {-0.1, 0.65, 
             $CellContext`z[$CellContext`t]}, {-0.1, 0.4, 
             $CellContext`z[$CellContext`t]}, {-0.3, 0.15, 
             $CellContext`z[$CellContext`t]}}], 
          Line[{{0.3, 0.15, 
             $CellContext`z[$CellContext`t]}, {0.5, 0.4, 
             $CellContext`z[$CellContext`t]}, {0.5, 0.65, 
             $CellContext`z[$CellContext`t]}, {0.1, 0.65, 
             $CellContext`z[$CellContext`t]}, {0.1, 0.4, 
             $CellContext`z[$CellContext`t]}, {0.3, 0.15, 
             $CellContext`z[$CellContext`t]}}], 
          Line[{{-0.4, -0.5, 
             $CellContext`z[$CellContext`t]}, {-0.4, 0, 
             $CellContext`z[$CellContext`t]}, {0.4, 0, 
             $CellContext`z[$CellContext`t]}, {0.4, -0.5, 
             $CellContext`z[$CellContext`t]}, {-0.4, -0.5, 
             $CellContext`z[$CellContext`t]}}], 
          Line[{{0, 0.1, 
             $CellContext`z[$CellContext`t]}, {0, -1, 
             $CellContext`z[$CellContext`t]}}]}, 
         PlotRange -> {{-2, 2}, {-2, 2}, {-0.25, 6.5}}, Boxed -> 
         False], $CellContext`plate[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`\[Theta], 
          Blank[]], 
         Pattern[$CellContext`\[CapitalOmega], 
          Blank[]]] := Graphics3D[{
          Translate[{
            Rotate[{
              Rotate[{
                Rotate[{
                  Glow[White], 
                  EdgeForm[{
                    Thickness[0.02], Red}], 
                  Cylinder[{{0, 0, 0}, {0, 0, 0 - 0.05}}, 1.5], 
                  EdgeForm[{
                    Thickness[0.01], Red}], 
                  Cylinder[{{0, 0, 0}, {0, 0, 0 - 0.025}}, 1.05], 
                  Thickness[0.01], Red, 
                  
                  Line[{{0, -1, 
                    0}, {-0.58, -0.45, 0}, {-0.707, -0.2, 0}, {-0.707,
                     0.707, 0}, {0.707, 0.707, 0}, {0.707, -0.2, 0}, {
                    0.58, -0.45, 0}, {0, -1, 0}}], 
                  Line[{{-0.707, 0.1, 0}, {0.707, 0.1, 0}}], 
                  
                  Line[{{-0.3, 0.15, 0}, {-0.5, 0.4, 0}, {-0.5, 0.65, 
                    0}, {-0.1, 0.65, 0}, {-0.1, 0.4, 0}, {-0.3, 0.15, 
                    0}}], 
                  
                  Line[{{0.3, 0.15, 0}, {0.5, 0.4, 0}, {
                    0.5, 0.65, 0}, {0.1, 0.65, 0}, {0.1, 0.4, 0}, {
                    0.3, 0.15, 0}}], 
                  
                  Line[{{-0.4, -0.5, 0}, {-0.4, 0, 0}, {0.4, 0, 0}, {
                    0.4, -0.5, 0}, {-0.4, -0.5, 0}}], 
                  
                  Line[{{0, 0.1, 0}, {0, -1, 
                    0}}]}, (-$CellContext`\[CapitalOmega]) \
$CellContext`t, {0, 0, 1}]}, $CellContext`\[Theta], {0, 1, 0}]}, ((
               2 $CellContext`\[CapitalOmega])/
              Cos[$CellContext`\[Theta]]) Mod[$CellContext`t, 5], {0, 
             0, 1}]}, {0, 0, 
            $CellContext`z[$CellContext`t]}]}, 
         PlotRange -> {{-2, 2}, {-2, 2}, {-0.75, 6.85}}, Boxed -> 
         False, PlotLabel -> Grid[{{
             Style[
              Row[{
                
                NumberForm[($CellContext`\[CapitalOmega] 
                  Mod[$CellContext`t, 5])/(2 Pi), {4, 2}], " turns"}],
               20, Black]}, {
             Style[
              Row[{
                
                NumberForm[(((2 $CellContext`\[CapitalOmega]) 
                   Mod[$CellContext`t, 5]) 
                  Boole[$CellContext`\[Theta] != 0])/((2 Pi) 
                 Cos[$CellContext`\[Theta]]), {4, 2}], " wobbles"}], 
              20, Black]}}]], $CellContext`z[
         Pattern[$CellContext`t, 
          Blank[]]] := 
       5 Mod[$CellContext`t, 5] - Mod[$CellContext`t, 5]^2, 
       Attributes[PlotRange] = {ReadProtected}}; 
     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.35696210375764*^9, 3.4679732026833267`*^9, 
  3.7597682389143753`*^9},
 CellID->1111381336]
}, {4}]]